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Summary of Amendments 
for LY24-5195-1 
Release 2 


LY 24-5195-1 contains information about the following items: 


Additional space classes 
CANCEL command 
Dedicated VSAM volume 
Default models 

Default volumes 
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Dynamic files 

File disposition parameters 

JCL simplification 

Partition and processor independence 

Interface between Access Method Services and the 
VSE/VSAM Space Management for SAM Feature. 


Additions, deletions, and corrections are included for the new 
items. Various editorial changes are also included to improve the 
usefulness of this book. 
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This book describes the internal logic of the routines 
of Access Method Services and provides diagnostic 
information. This information is directed to mainte- 
nance personnel and development programmers 
who require an in-depth knowledge of the program’s 
design, organization, and data areas. It is not re- 
quired for effective use of Access Method Services. 


This volume is one of three logic manuals that de- 
scribe the internal functioning of VSE/VSAM. The 
other two volumes are: 


© VSE/VSAM VSAM Logic, Volume 1: Catalog 
Management, Open/Close, DADSM, IIP, Con- 
trol Block Manipulation, LY24-5191. 


e VSE/VSAM VSAM Logic, Volume 2: Record 
Management, LY24-5192 


The interface between Access Method Services and 
the VSE/VSAM Space Management for SAM Fea- 
ture is described in VSE/VSAM Space Management 
for SAM Feature Logic, LY24-5204. 


You should be familiar with general programming 
techniques and VSE/VSAM concepts and use be- 
fore reading this book. If you are unfamiliar with 
these concepts, read: 


¢ VSE/VSAM General Information, GC24-5143. 


e Using VSE/VSAM Commands and Macros, 
SC24-5 144, which describes the general syntax 
of the Access Method Services language, the 
commands of this processor, VSAM macros, 
and how they are used. 


Preface 


Another book that may be helpful to you is: 


e VSE/Advanced Functions Serviceability Aids and 
Debugging Procedures, SC33-6099, which de- 
scribes how to analyze a main storage dump 
from VSE. 


This book is divided into six chapters: 


e “Chapter I: Introduction” describes the design 
philosophy of this processor, and defines terms 
used later in the book. 


e “Chapter 2: Method of Operation” describes 
how the program works. Emphasis is on the 
flow of data and the technology that is used 
rather than on the organization of modules. 


e “Chapter 3: Program Organization” shows how 
the processor is packaged into load modules. 
Relationships between the Access Method Ser- 
vices processor and the operating system are 
given. 


e “Chapter 4: Microfiche Directory” relates the 
information in this book to the listings found on 
microfiche. 


e “Chapter 5: Data Areas” describes the control 
- blocks and other data areas that are internal to 
this processor. 


e “Chapter 6: Diagnostic Aids” shows how to 
analyze a dump of the processor and find specif- 
ic modules and data areas. 
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Requirements 


Chapter 1: Introduction 


Access Method Services is that part of the operating system that performs the 
utility-like functions required to establish and manage VSAM (Virtual 
Storage Access Method) data sets. (The terms “data set” and “‘file” are 
equivalent. We have used “data set” in this book.) Access Method Services 
allows you to define, print, delete, or copy VSAM data sets, build alternate 
indexes, recover data and catalog entries in the event of a catalog failure, 
convert ISAM or SAM data sets into VSAM data sets, alter or list the entries 
in a VSAM catalog, and create portable (or backup) copies. Features of its 
logic are: 


e The processor is organized into executable and non-executable modules. 
An executable module contains instructions that can be performed by the 
computer. A non-executable module contains nothing that can be per- 
formed by the computer. In Access Method Services all descriptive 
information—such as, command descriptors—and static text—such as, 
messages—are centralized in non-executable modules. (In Access Me- 
thod Services, there is generally a one to one correspondence between 
modules and phases. Consequently, this publication generally discusses 
modules. One exception is IDCAMS. For more information on ID- 
CAMS, see “Program Organization.”’) 


e All external interfaces to Access Method Services are isolated in a small 
set of modules. Changing these modules allows this processor to run with 
another operating system or with access methods other than those sup- 
ported by this release of Access Method Services. 


e Each module serves just one purpose and is coded to most efficiently 
accomplish that purpose. 


This book does not discuss VSAM, its concepts, or its data areas. For a 
discussion of VSAM, see VSE/VSAM VSAM Logic, Volume 1, and 
VSE/VSAM VSAM Logic, Volume 2. 


The Access Method Services processor accepts commands and sometimes 
input data sets or catalogs. It produces output data sets and/or printed 
reports. Details of the commands and the use of Access Method Services are 
found in Using VSE/VSAM Commands and Macros. 


This processor requires DOS/VSE as its operating system. The processor 
executes as a problem program. Virtual storage requirements for the proc- 
essor are found in DOS/VSE System Generation. 


The Access Method Services Processor 


Figure 1-1 describes the structure of the processor. Figures 1-2 through 1-4 
describe in general how the processor functions. 


Figure 1-1 shows the executable elements of the Access Method Services 
processor as they form a structure within the operating system. As shown 
here, six of the elements form a “substructure” that supports the remaining 
elements, which form a “superstructure.” 
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1. The superstructure consists of the FSRs (Function Support Routines), There is one FSR for 
each command verb of Access Method Services. Any system interface or I/O function that is 
required by one of the FSRs is supplied through the substructure. The superstructure is thus 
insulated from the operating system by the substructure. 


2. The substructure consists of the Executive, the Reader/ Interpreter, the System Adapter, the 
I/O Adapter, the Text Processor, and the Debugging Aids. The Executive routes control 
between the other components of Access Method Services—specifically, between the 
Reader/Interpreter and the FSRs. The Reader/Interpreter translates the commands for 
Access Method Services into an internal form, called the FDT (Function Data Table). The 
System Adapter similarly provides ai] system interfaces for the processor. The I/O adapter 
issues all 1/O operations at the behest of any other routine in Access Method Services. The 
Text Processor prepares aii printed materials, whether simple messages or listings, that are 
required to fulfill a command. The Debugging Aids writes diagnostic information when 
requested. 


3. The operating system supports the Access Method Services processor, just as the substructure 
supports the superstructure (the FSRs). However, the FSRs execute in total independence of 
the actual operating system in which Access Method Services is running. All requests for 
system services or I/O are made to the substructure, which receives the request and issues the 
appropriate request to the operating system. Thus additional access methods can be easily 
supported by Access Method Services, by merely augmenting the I/O Adapter appropriately. 
Access Method Services can be run in a different host operating system by changing the 
System Adapter and the I/O Adapter to match the new host. 


Figure 1-1. The Structure of the Access Method Services Processor 





Following the flow of logic reveals more of the processor than the structure of 
executable modules. Figure 1-2 and the two which follow show the sequence 
in which modules execute, important internal tables, and how non-executable 
modules are used. 
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Figure 1-2. Initialization of Access Method Services 





The System Adapter is the external entry and exit point for Access Method 
Services. At entry time, the GDT (Global Data Table) is built by the System 
Adapter. The GDT is always passed as a parameter when any internal 
module is called, and through the GDT can be found the entry point for any 
service supplied by the substructure. The GDT contains the addresses for the 
various services provided by the System Adapter, the I/O Adapter, and the 
Text Processor. The GDT also points to historical data areas that are built 
and maintained by various processor substructure modules. 


Control passes from the initialization effected by the System Adapter to the 
Executive. Figure 1-3 shows this transfer of control, and details the parsing 
operation of the processor. 
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Figure 1-3. Reading and Parsing a Command (Part | of 2) 
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1, The Executive calls the Reader/Interpreter, which reads a command from the input stream. 
The I/O Adapter performs the actual read at the behest of the Reader/Interpreter; the 
address for the “get” service is found in the GDT. 


2. To parse the command, the Reader/Interpreter compares it against a special table called a 
Command Descriptor. This Command Descriptor forms a non-executable phase, and is 
loaded from the core image library by a service of the System Adapter. There is a Command 
Descriptor for each possible verb to be recognized by Access Method Services. This Com- 
mand Descriptor specifies each possible keyword, its permitted range of values, and any 
other information that is needed to parse and interpret the command. 


3, As acommand is parsed, certain messages may be issued. To format these messages, the Text 
Processor is invoked (again through the GDT). The Text Processor determines the format of 
printed material and the text of fixed messages by using Text Structures. These Text 
Structures are also non-executable phases (loaded by the System Adapter when needed), and 
they describe page layout, static portions of the text, headings, footings, and other details of 
the printed page. Once a line of message is formatted, the I/O Adapter writes the line to the 
print file. 


4. Asacommand is parsed, the Reader/Interpreter builds an FDT (Function Data Table) from 
the values that it finds. The FDT is an encoded representation of the user’s command. The 
FDT is passed back to the executive as the results of the parse. The Executive in turn passes 
the FDT to the appropriate FSR for processing. 


5. Control returns to the Executive, along with the FDT and the name of the FSR needed to 
process this command. Figure 1-4 depicts the FSR in action. 


Figure 1-3. Reading and Parsing a Command (Part 2 of 2) 
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1. The command at this point in time is described in the FDT. The FDT is an internal encoding 
of the original command, in a rigorous format with the values for all possible parameters in a 
prescribed order. 

2. Any data sets or user catalogs required for this particular function are accessed through the 
I/O Adapter. The address of this service is found in the GDT. 

3. Any printed output is prepared by the Text Processor, whose addresses are also found in the 
GDT. Static text and page layout instructions are found in the Text Structures, which are 
loaded by the System Adapter. 

4. Finally, all output is produced by another of the services of the I/O Adapter. 

5. Control returns to the Executive. If more commands remain, the Reader/Interpreter repeats 
its procedure, followed by the appropriate FSR. Control is routed back and forth between 
the Reader/Interpreter and the FSRs by the Executive in this fashion until all commands 
have been processed. 


Figure 1-4, Performing a Function 
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Naming Conventions 


The Access Method Services processor is named IDCAMS. The names of all 
modules that form this processor are seven or eight characters long, and begin 
with the characters IDC. The remaining characters of the name relate to its 
use. Executable modules and Command Descriptors have seven-character 
names, while Text Structures have eight-character names. 


The modules of the processor are grouped by their functional relationship. 
Each of these relationships is indicated by a two-character mnemonic identi- 
fier, which appears as characters 4 and 5 of the module name. These identifi- 
ers are listed in the following table: 


AL ALTER FSR MP IMPORT FSR 

BI BLDINDEX FSR PM PARM FSR 

CD Command Descriptor PR PRINT FSR 

CL CANCEL FSR RC EXPORTRA FSR 

DB Debugging Facility RI ~—— Reader/Interpreter 

DE DEFINE FSR RM IMPORTRA FSR 

DI NonVSAM Access RP REPROFSR 
Method Macros RS RESETCAT FSR 

DL DELETE FSR SA System Adapter 

EX Executive TP Text Processor 

IO I/O Adapter TS Text Structure 

LC LISTCAT FSR VY VERIFY FSR 

LR LISTCRA FSR XP EXPORT FSR 

MP IMPORT FSR 


The remaining characters of a module name indicate the function of that 
module. Two numeric digits are used for the name of a module and the entry 
point of a single-entry module. Two alphabetic characters indicate an entry 
point in a multiple-entry module. Thus the name “IDCPRO1” is the name of 
the first module for the PRINT FSR, and “IDCPRO1” is the only entry point 
to that module. “IDCSA02” is the second module for the System Adapter, 
and “IDCSAGS” is the entry point in that module for the “get space” service. 


The last two characters of a Command Descriptor are the mnemonic identifi- 
er for the FSR for that Command Descriptor. Similarly, Text Structure 
names end with the FSR mnemonic identifier and a single digit (to allow for 
multiple Text Structures per FSR). For example the three modules for 
PRINT are: 


IDCPRO1 PRINT FSR module 
IDCCDPR PRINT Command Descriptor 
IDCTSPRO _ First Text Structure for PRINT 


Names for processor-wide data structures and fields are six characters long. 
The first three characters identify the structure. The last three characters 
indicate the function of the field. (In this publication, the data areas are often 
referred to by the first three characters.) Values for a field (for example, a bit 
in a flag field) have names that are eight characters long. The last two char- 
acters of a value indicate the meaning of that value. For example, 
“IOCDSO” is a field of the I/O Communications Structure that defines the 
data set organization. One of its bits is named “IOCDSOAM,” which means 
that this bit signifies a VSAM organization. 


Local names used internally by only one subcomponent follow no processor- 
wide conventions. 
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Character Code Dependencies 


Most of the character dependencies of this processor are isolated in the 
Command Descriptor modules and the Text Structure modules. For exam- 
ple, all input text is translated by referring to the Command Descriptor 
modules, and all output text is controlled by the Text Structure modules and 
a parameter defining the output graphics. 


Most of the executable modules of the processor have no character dependen- 
cies. However, some modules of the Reader/Interpreter and the Text Proc- 
essor have character dependencies. Such character dependencies are identi- 
fied in the prologue of each module. 


The character set used at execution time must be equivalent to that used 
during assembly of the character-dependent modules. The IBM-supplied 
version of these modules assumes EBCDIC character representations. If a 
different character representation is to be used during execution, then the 
character-dependent modules must be re-assembled. 
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Chapter 2: Method of Operation 


This chapter contains method of operation diagrams for each element within 
the substructure and superstructure of Access Method Services. Following 
each diagram is an extended description of the processing steps and the name 
of the modules and procedures used to perform each step within the diagram. 
Using these names, you can go either to the chapter “Microfiche Directory” 
or to the microfiche itself for more information. 


The following legend explains the symbols used throughout this chapter. 


<> Data flow 


Flow of control, entry and exit points 





To > Data flow when existing data has been altered 


On page connector 


Off page connector 





—— Pointer to more information 
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Access Method Services Visual Table of Contents 


Main Functions 


General 
Overview 


Inittalization 





4.0 
Interpreter 


6.0 





Service Functions 


System 1/O Text Debugging 
Adapter Adapter Processor Aids 
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Access Method Services Overview 


INPUT 
Register | 














Invokers 
Parameter List 






Commands 


= 


Input Data Sets and 
VSAM Catalogs 


= 









PROCESSING 


L. Initializes. 
See Diagram 


Y 


2. Reads and interprets commands. 


See Diagram 


3. Processes commands. 
See Diagrams 


4. Terminates. 
See Diagram 


G 


CRS, 


From Access Method Services Invoker 


Function Data Table (FDT) 





p= eee | 


OUTPUT 


Output Data Sets 
and VSAM Catalogs 


Messages and 
Reports 


Register | 


Modified Invokers 
Parameter List 


Register 15 


_s 
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Extended Description for Access Method 
Services Overview 


IDCEX01 
1 Procedure: IDCEX01 
Calls IDCEX02 


2 Procedure: MAIN, CALLRI 


If MAXCOND indicates termination, go to Step 4. 
If MAXCOND does not indicate termination: 


© Calls reader interpreter 
e EOFCOND is set to R/I return code. 
3 Procedure: MAIN, CALLFSR 


If EOFCOND indicates end-of-file, go to Step 4. 
If EOFCOND does not indicate end-of-file: 


e FSR is called 


¢ MAXCOND is set to maximum of MAXCOND and 
the return code for the FSR 


e FDT is freed 
e Text processor is reset 
e Return to Step 2. 

4 Procedure: IDCEX0! 
Calls IDCEX03. 
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Initialization Visual Table of Contents 


1.0 






Initialization 
Overview 









I/O Adapter 
Initialization 
UIOINIT Macro 











System Adapter 
Initialization 






Wa] 30 Aysedoig — [8j2018}4) posusoy] 


8-7 


OfSO'] SOOJAIOG POT stooo"v WVSA/ASA 


Diagram 1.0. Access Method Services Initialization Overview 


From Access Method 
Services Invoker 





PROCESSING OUTPUT 


1. Initializes System Adapter 
See Diagram —fu> 








GDTIOH 
GDTTPH 
GDTSAH 


#DD Name 
t Page’ Number 
{1/0 List 


2. Initializes 1/O Adapter. 
See Diagram 
3. Initializes text lines. 





! 





+ 1/0 List 


System Adapter 
Historical Data Area 


















IODATA 


4. Establishes page length. 


IL 


3, Initializes page controls. 


WAI 50 Arado1g — [8]19;8;y posussyy] 


woHBsedgO Jo pom; :z J0}d¥y> 


6-2 


Extended Description Diagram 1.0 


IDCSA01 
Procedure: IDCSA0! 


1 The System Adapter receives control from the invoker 
from either an EXEC statement or from a program. The 
System Adapter sets up the GDT, trace tables, and the 
System Adapter Historical Data Area. The System 
Adapter obtains storage for modules that are continuously 
used such as the System Adapter and the I/O Adapter. 
Diagram 1.1 shows System Adapter initialization in detail. 


IDCEX02 
Procedure: IDCEX02 


2 IDCEX02 issues the UIOINIT inacro to cause the 1/0 
Adapter to initialize. The 1/O Adapter initializes its 
Historical Data Area. IDCIOIT saves the addresses of 
alternate DD name list if supplied by the invoker. 
Diagram !.2 shows 1/O Adapter initialization in detail. 


IDCEX02 
Procedure: IDCEX02 


3 IDCEX02 issues a UESTS macro instruction to set up the 
Print Control Table, PCT. The address for the Text 
Processor Historical Data Area is in the GDTTPH field of 
the GDT. Since GDTTPH contains zero, the text 
processor builds the primary PCT. 


IDCEX02 
Procedure: IDCEX02 


4 IDCEX02 issuesa COMRG macro instruction to get the 
address of the partition communication region. It then 
extracts the value of “SYSLST lines per page” from 
displacement 78 and uses this value in a UREST macro 
instruction to establish the SYSLST page depth. 


IDCEX02 
Procedures: IDCEX02, SCANPARM 


§ Ifthe invoker supplied a starting page number in the 
parameters, IDCEX02 issues a UREST macro instruction 
to set the page number. Control is given to the R/I to 
process the input as well as any parameters supplied on the 
EXEC statement that invoked Access Method Services. 
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Diagram 1.1. System Adapter Initialization 


INPUT 


Register | 


Parameter List 


From Access Method Services Invoker 
PROCESSING 


Obtains storage. 


Initializes the GDT. 


Initializes storage table. 


Initializes trace tables. 


Initializes Historical Data Area. 


Establishes save area. 


OUTPUT 


Q 
oO 
— 


GDTPRM 
GDTTRI | GDTTR2 


GDTSAH |GDTABH 


Umacro entry point 


AUTOTBL 


7 


Inter-Module Trace Table 


Intra-Module Trace Tabl 


System Adapter 
Historical Data Area 
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Extended Description for Diagram 1.1 


IDCSAO1 
Procedure: IDCSA01 


1 


IDCSAOl issues a GETVIS instruction to obtain space for 
the following tables: 


Global Data Table, GDT 
Inter-Module-Trace Table 
Intra-Module-Trace Table 
System Adapter Historical 
Data Area 

e Storage Table, AUTOTBL 


If the initial GETVIS fails, IDCSA0O1 issues an ABORT 
message via EXCP and returns to the invoker of Access 
Method Services. 


IDCSA01 
Procedure: IDCSAO1 
2 IDCSAO! puts the chatacters ‘GDT®’ in the first four 


bytes of the GDT. It puts the address of the invoker’s 
parameter list, which is in Register 1, in the GDTPRM 
field of the GDT. IDCSAO! puts the address of the System 
Adapter Historical Data Area in GDTSAH. It also puts 
the address of the Inter-Module-Trace Table in GDTTR1 
and the address of the Intra-Module-Trace Table in 
GDTTR2. IDCSAO! puts the address of the System 
Adapter save area in GDTABH. Additionally it puts 
addresses for the processor-defined macro instructions, 
called U-macros, in the GDT. All remaining fields of the 
GDT contain zeros. 


IDCSA01 
Procedure: IDCSA01 
3 Rather than obtaining new storage each time IDCSA02, 


IDCSA03, IDCTPOlI, or IDCIOO] is called, the System 
Adapter issues one GETVIS macro for each module and 
Saves the storage address in the Storage Table, 
AUTOTBL. When one of the modules is called, it calls the 
PROLOG routine that returns the address of the storage 
obtained for the module during System Adapter 
initialization. The storage address for IDCSA03, however, 
is kept in the GDTSPR field of the GDT because 
IDCSA03 contains the PROLOG routine code and needs 
to get its storage without using the PROLOG routine. 


IDCSA01 
Procedure: IDCSAOl 


4 


IDCSAOI initializes the Inter- and Intra-Module-Trace 
tables to blanks. It places the characters ‘bINTERbb’ and 
SINTRAbDb’ before the respective tables. It also puts the 
characters ‘SAOI’ in the Inter-Module-Trace Table and in 
the save area provided by the Access Method Services 
invoker. 


IDCSA01 
Procedure: IDCSAO! 
5 IDCSAO! sets the firs: UGPOOL storage area pointer in 


the System Adapter Historical Data Area to zero. It sets 
the last UGPOOL storage area pointer to the address of 
the firsts UGPOOL area pointer. 


IDCSAO1 
Procedure: 1DCSAO1 


6 The System Adapter saves the current values of its 


registers in a save area pointed to by the GDTABH field 
in the GDT. The UABORT routine uses the register 
values to establish addressability before processing. 
Control goes to Diagram 1.0, step 2. 
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Diagram 1.2. I/O Adapter Initialization — UIOINIT Macro 


From System Adapter Initialization 
Via Executive 


INPUT PROCESSING 


1. Obtains storage. 


2. Initializes IODATA. 
External Data 
Routine List 


3. Establishes identifiers. 


OUTPUT 


GDT 


GDTIOH 


IODEOD | IODOSS 


| 1ODOss | 
ee ee! 
es 


Register 15 


(2 ee 
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Extended Description for Diagram 1.2 
IDCIO01 
Procedure: IDCIOIT 


1 


The 1/O Adapter issues a UGPOOL to obtain storage for 
its Historical Data Area—IODATA. IDCIOIT puts the 
IODATA address in the GDTIOH field in the GDT. If 
storage is not obtained from either UGPOOL, the 1/O 
Adapter issues a UABORT to terminate the processor. 


IDCIOO1 
Procedure: IDCIOIT 


2 


The I/O Adapter initializes IODATA. If the Access 
Method Services invoker supplied filenames for the system 
data sets, IDCIOIT puts the address of those filenames in 
the IODADD field of IODATA (this code is for 
compatibility with OS/VS; alternate filenames for system 
data sets cannot be used in VSE). If the invoker supplied 
the address a list of his own 1/O programs, IDCIOIT puts 
that address in IODXTN. IDCIOIT puts the address of 
the Access Method Services End-of-Data routine in 
IODEOD. It puts the address for a synad routine for 
nonVSAM input data sets in IODOSS and the address for 
a synad routine for nonVSAM output data sets in IODSO. 
It also puts the address of the End-of-Data routine for 
VSAM data sets in IODAEI. 


IDCIOO1 
Procedure: IDCIOIT 


3 


IDCIOIT initializes the IODSID to the characters ‘]O00’. 
The I/O Adapter uses this identifier to keep track of data 
sets. VOPEN gives the first data set the I/O Adapter is 
required to open the identification of IO0O1, the second 
1002, and so on. The identification appears at the 
beginning of the storage area for each data set. IDCIOIT 
puts a return code of zero in Register 15 and gives control 
to Diagram 1.0, step 3. 
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Reader/Interpreter Visual Table of Contents 


2.0 









Reader/ 
Interpreter 
Overview 





2.4 2.5 
Get Next Prepare Scan 
Initialization * To Scan Termination 
Command Command 
Command 
2.4.1 DAD 

Syntax 

Check Build FDT 


Parameter 





252.1 2i2cd 2.2.3 
IF-THEN 


2220 


END 


ELSE SET 
Modal 
Command 


Modal Modal 
Command Command 


Modal 
Command 


Modal 
Command 
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Diagram 2.0. Reader/Interpreter Overview 


INPUT 


Register | 


GDT 
$ FDT UGPOOL ID 


# MAXCC 
+ LASTCC 


IDCRILT 
IDCRIKT 


Command 


Descriptor 








From Executive Controlled 
Termination or Initialization 


PROCESSING 


1. If entering from first command, 
continue to Step 2; if entering 
after first command, go to Step 3. 


2. Initializes. 
See Diagram 


3. Gets next command. 
See Diagram 
4. Prepares to scan command. 


See Diagram 2) 


5, Scans command. 
See Diagram 
6. Terminates. 
See Diagram 





OUTPUT 


LASTCC 


MAXCC 


© Register 15 


Register | 
4 GDT 


4 FDT Address 


# FDT UGPOOL ID 
# MAXCC 
# LASTCC 


+ FSR Name 
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Extended Description for Diagram 2.0 


IDCRIO1 
Procedure: RIINIT 


1 Ifentrance is from Initialization, processing continues 
with step 2. If entrance is from Executive Controlled 
Termination, processing continues with step 3. 


2 RIINIT initializes the Reader/Interpreter Historical Data 
Area, HDAREA. RIINIT loads the command descriptor 
name table, IDCRILT, and the modal command name 
table, IDCRIKT. RIINIT opens the input data set, 
SYSIPT, and RIINIT prepares the parameters from the 
EXEC statement for scanning, if they exist. Diagram 2.1 
shows the initialization procedure in detail. 


IDCRIO! 


Procedures; GETNEXT, MODALSET, MODALIF, 
MODLELSE 


3 GETNEXT reads and processes modal commands until a 
functional command is encountered. The execution of the 
functional command depends’‘on the results from the 
modal commands. However, every command is 
completely checked for syntax errors whether or not it is 
executed. Diagram 2.2 shows obtaining a command in 
detail. 


IDCRIO2 
Procedure: IDCRI102 


4 IDCRIO2 loads the command descriptor for the functional 
command to be scanned. IDCRIO2 initializes the Function 
Data Table, FDT. Diagram 2.3 shows the preparation for 
command scanning in detail. 


IDCRIO1 


Procedures: SCANCMD, K WDPARM, PCSPARM, 
INREPEAT, BUILDFDT, CONVERT, GETSPACE, 
DSIDCHK, ERROR], ERROR2 


§ SCANCMD and BUILDFDT check the functional 
command for correctness. If the command is incorrect, 
ERRORI or ERROR2 writes an error message. 
BUILDFDT and INREPEAT complete the FDT for 
correct commands. Diagram 2.4 shows the command 
scanning in detail. 


IDCRIO3 
Procedure: IDCRIO3 


6 IDCRIO03 deletes the work tables and temporary storage. If 
the command Is to be executed, control is given to 
Executive Controlled Termination which gives control to 
the Function Support Routine, FSR, that executes the 
command. If the command ts not to be executed due to 
syntax errors or due to the results of a modal expression, 
control returns to step 3 to get the next command. If the 
error is severe, control returns to Executive Controlled 
Termination, Diagram 4.1, with an indication that the 
processor cannot continue. Diagram 2.5 shows termination 
processing in detail. 
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Diagram 2.1 Reader/Interpreter Initialization 


From Diagram 2.0 





INPUT PROCESSING OUTPUT 


Register | 
1. Obtains storage for and initializes 
HDAREA. GDTRIH 





EXEC Parameters 
GDT 
HDAREA 
LEFTMGN . 
RIGHTMGN 


LOADTPTR 
KWDTPTR 


FDT UGPOOL ID 
MAXCC 
¢ LASTCC 


MODLFLGS 


Loads IDCRILT. 
IDCRILT 


IDCRIKT 
: 3. Loads IDCRIKT. 





4. Opens input data set. 


nN 
e 


SYSIPT 
Data Set 


GDT 5. Checks parameter options. 


Parameter Options 


GDTPRM 
6. Prepares to scan parameters. | 


Verb Name ‘PARM’ 


Length 


Parameter Options 
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Extended Description for Diagram 2.1 


IDCRIO1 
Procedure: RIINIT 


1 


RIINIT obtains storage for HDAREA and sets the left 
margin field to 2 and the right margin field to 72. A user 
changes the margins using a PARM command. RIINIT 
initializes the rest of HDAREA to zero. If RIINIT cannot 
obtain storage, control is given to Reader/Interpreter 
Termination, Diagram 2.5, with an indication that causes 
the processor to end. 


IDCRIO1 
Procedure: RIINIT 


2 


RIINIT loads the command name table, IDCRILT, and 
places the address of IDCRILT in the LOADTPTR field 
in HDAREA. IDCRILT contains the name of each verb 
and corresponding command descriptor. 


IDCRIO1 
Procedure: RIINIT 


3 


RIINIT loads the modal name table, IDCRIKT and 
places the address of IDCRIKT in the KWDTPTR field 
in HDAREA. IDCRIKT contains modal command 
keyword and verb name symbols, plus the length of each 
symbol. 


IDCRIO1 
Procedure: RIINIT 


4 


RIINIT opens the input data set which has a default 
filename of SYSIPT. If SYSIPT cannot be opened, control 
is given to Reader/Interpreter termination, Diagram 2.5, 
with an indication that causes the processor to end. 


IDCRIO1 
Procedure: RIINIT 
§ The Reader/Interpreter checks for parameters supplied 


before SYSIPT is read. The invoker may supply 
parameters by putting them in the EXEC job control 
statement. Parameters may also be supplied through the 
data the user provides to the processor at the time the 
user’s program invokes Access Method Services. If 
parameters are supplied, the GDTPRM field of the GDT 
contains the address of a fullword that contains the 
address of the parameters. The first 2 bytes of the 
parameters is the total length of the parameters. If no 
parameters are supplied, the length field is zero. 


IDCRIO1 
Procedure: RIINIT 
6 The parameters are printed on SYSLST and are treated as 


the parameters fora PARM command. The symbol! for 
PARM in IDCRIKT is supplied as the verb name and the 
options are scanned by the Reader/Interpreter just as 
though a PARM command had been encountered in 
SYSIPT. After the pseudo PARM command is executed 
by the PARM FSR, Executive Controlled Termination 
gives Reader/Interpreter control to read the first 
command. Control goes to Diagram 2.2 to get the first 
command. 
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Diagram 2.2. Reader/Interpreter Get Next Command 


From Diagram 2.0 





PROCESSING OUTPUT 


Input Records 






1. Extracts next command. 







MAXCC 






2. Processes modal command. LASTCC 


See Diagrams 


HDAREA 











MODFLGS 
Cee) fee 







AREA 
3. Prepares to interpret functional aD 
commands. 





MODFLGS 
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Extended Description for Diagram 2.2 
IDCRIO1 


Procedures; GETNEXT, GETRECRD, NXTFIELD, 
NEXTCHAR 


1 GETRECRD reads SYSIPT to get an input record and 
writes each input record on SYSLST. GETNEXT locates 
the verb on the input record and checks it against the 
symbols for the modal verbs IF, ELSE, SET, DO, and 
END in IDCRIKT. If a match is found, the verb is a 
correct modal verb and processing continues to step 2. Ifa 
match is not found, the verb is assumed to be a functional 
verb and processing goes to step 3. 


IDCRIO1 


Procedures: GETNEXT, MODALIF, MODLELSE, 
MODALSET 


2 GETNEXT sets condition codes and the MODLFLGS 
field in HDAREA depending on the modal command. 
Control returns to step | to get the next command. The 
modal commands are shown in detail in the following 
diagrams: 


IF-THEN, Diagram 2.2.1 
ELSE, Diagram 2.2.2 
SET, Diagram 2.2.3 

DO, Diagram 2.2.4 
END, Diagram 2.2.5 


IDCRIO1 
Procedure: GETNEXT 


3 GETNEXT checks the MODLFLGS field in HDAREA 
to determine if the function command should be executed. 
If the functional command is not to be executed, 
GETNEXT sets a flag. Every command is completely 
checked for syntax errors whether or not it is to be 
executed. If the functional command finishes an 
IF—THEN command, GETNEXT subtracts | from the 
number of nested IF—THEN commands and sets 
MODLFLGS for the finished IF—THEN command to 


zero. The functional commands are shown in detail in the 
following diagrams: 


ALTER, Diagram 3.1 
BLDINDEX, Diagram 3.11 
CANCEL, Diagram 3.16 
DEFINE, Diagram 3.2 
DELETE, Diagram 3.3 
EXPORT, Diagram 3.4 
EXPORTRA, Diagram 3.13 
IMPORT, Diagram 3.5 
IMPORTRA, Diagram 3.14 
LISTCAT, Diagram 3.6 
LISTCRA, Diagram 3.12 
PARM, Diagram 3.7 
PRINT, Diagram 3.8 
REPRO, Diagram 3.9 
RESETCAT, Diagram 3.15 
VERIFY, Diagram 3.10 


Control goes to Diagram 2.4 to scan the command. 
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Diagram 2.2.1. Reader/Interpreter IF-THEN Modal Command 


INPUT 
HDAREA 


NESTLVL 


MODLFLGS 


IDCRIKT 


LASTCC 


MAXCC 





From Diagram 2.2 


PROCESSING 


1 - Increases IF-THEN commands 
count, if nested. 


Zs Interprets IF clause. 


3. Determines whether THEN or 
ELSE clause is to be executed. 


4, Checks for THEN clause. 


HDAREA 


NESTVL 


MODLFLGS 


OUTPUT 


HDAREA 
NESTLVL 
MODLFLGS 
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Extended Description for Diagram 2.2.1 


IDCRIO1 
Procedure: MODALIF 


1 


The value in the NESTLVL field of HDAREA is used as 
an index to the MODLFLGS field for the current 
IF—-THEN command and the THEN and ELSE clauses 
that belong to the IF—THEN. MODALIF adds | to the 
number of nested IF commands in NESTLVL. There is 
one set of modal flags in HDAREA for each level of 
IF—THEN commands. The new level of MODLFLGS is 
initialized to zero. To see if too many IF—THEN 
commands are nested, MODALIF compares the number 
of nested IF—-THEN commands to the number permitted, 
10. 


When a syntax error is detected, MODALIF sets LASTCC 
to 16, and control is given to Reader/Interpreter 
termination, Diagram 2.5, to cause the Executive to 
terminate the processor. 


IDCRIO1 


Procedures: MODALIF, PACKCVB, NXTFIELD, 
NEXTCHAR 


2 


MODALIF compares the characters following the IF with 
the symbols for LASTCC and MAXCC in IDCRIKT. 
MODALIF compares the operator with all possible 
operators: LT, GT, EQ, NE, GE, LE (<, >, =, #, >, s). 
PACKCVB converts the decimal value following the 
operator to binary. If any errors are detected, the syntax 
error procedure in step | is followed. 


IDCRIO1 
Procedure: MODALIF 
3 MODALIF sets the THENFLAG to 1 to indicate that the 


THEN clause of the IF—THEN command is being 
processed. MODALIF compares the value of LASTCC or 
MAXCC with the number in the IF -THEN command 
and evaluates it for tru< or false depending upon the 
operator. If the result is false, MODALIF sets the 
SKIPFLAG in HDAREA to 1, indicating that commands 
in the THEN clause of the IF—-THEN command are to be 
skipped—that is, the Reader/Interpreter is to check only 
the syntax of the commands in the THEN clause. 


IDCRIO1 
Procedure: MODALIF 
4 MODALIF compares the characters following the 


relational expression with the symbol for THEN in 


IDCRIKT. An error occurs if THEN does not follow IF, 
and the syntax error procedure in step | is followed. Ifa 
terminator follows the THEN keyword, there is a null 
THEN clause in the current IF—THEN command. 
Control returns to Diagram 2.2 to obtain the next 
command. 
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Diagram 2.2.2. Reader/Interpreter ELSE Modal Command 


HDAREA 


MODLFLGS 


From Diagram 2.2 


PROCESSING 


Validates ELSE command. 


Determines if commands following 
ELSE are to be executed. 


Checks for completion of IF-THEN 
command. 





OUTPUT 


HDAREA 


MODLFLGS 


NESTLVL 
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Extended Diagram for Diagram 2.2.2 


IDCRIO1 
Procedure: MODLELSE 


1 


MODLELSE sets the ELSEFLAG in HDAREA for the 
current IF—THEN command to |, indicating that the 
ELSE clause of the IF—-THEN command is being 
processed. The THENFLAG is turned off. An error is 
caused by an ELSE without a prior IF—THEN, and the 
Syntax error procedure in step 1, Diagram 2.2.1, is 
followed. 


IDCRIO1 
Procedure: MODLELSE 
2 SKIPFLAG indicates whether the commands in the ELSE 


clause of the IF—-THEN command should be executed or 
only checked for syntax errors. If SKIPFLAG is zero, the 
THEN clause of the IF—-THEN command was executed; 
the ELSE clause should not be executed, and 
MODLELSE sets SKIPFLAG to |. If SKIPFLAG is I, 
the THEN clause of the IF--THEN command was not 
executed; the ELSE clause should be executed, and 
MODLELSE sets SKIPFLAG to zero. However, if the 
entire IF—THEN-—ELSE command is nested within 
another THEN or ELSE clause that is not being executed, 
neither the THEN clause or the ELSE clause of the nested 
IF—THEN—ELSE command is executed. 


IDCRI0i 
Procedures: MODLELSE, NXTFIELD, NEXTCHAR 
3 Ifaterminator immediately follows ELSE, there are no 


commands in the ELSE clause of the current IF—THEN 
command. MODLELSE subtracts | from NESTLVL since 
the IF command is completed. Control is given to 
Diagram 2.2 to obtain the next command whether or not a 
terminator follows the ELSE. 
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Diagram 2.2.3. Reader/Interpreter SET Modal Command 


From Diagram 2.2 





INPUT PROCESSING 
IDCRIKT 1. Validates SET command. 
MAXCC 

VILL, «~SCow ‘Sets LASTCC or MAXCC. 
HDAREA 









VILLE, ~=—SOe:~ Checks IF-THEN command 
completion. 


NESTLVL 


OUTPUT 


LASTCC 


VILL LLL MAXCC 


HDAREA 


MODLFLGS 


NESTLVL 
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Extended Description for Diagram 2.2.3 


IDCRIO1 


Procedures: MODALSET, PACKCVB, NXTFIELD, 
NEXTCHAR 


1 


MODALSET compares the characters following SET with 
the symbols for LASTCC and MAXCC in IDCRIKT. 
MODALSET compares the operator with the symbols EQ 
and =. PACKCVB converts the decimal value following 
the operator to binary. If a syntax error is encountered, the 
processing in Diagram 2.2.1, step | is followed. 


IDCRIO1 
Procedure: MODALSET 


2 


MODALSET obtains MAXCC or LASTCC and changes 
its value to the value specified in the SET command. If the 
command is SET LASTCC, MODALSET compares 
MAXCC and LASTCC, and the larger value is put into 
MAXCC. If the SET command is only being checked for 
syntax errors, neither MAXCC nor LASTCC is changed. 


IDCRIO1 
Procedure: MODALSET 


3 


MODALSET determines that the current IF command is 
finished by checking that the SET command follows an 
ELSE keyword and that the SET command is not within a 
DO group. If both of these conditions are met, 
MODALSET subtracts | from NESTLVL in HDAREA, 
and returns control to Diagram 2.2 to obtain the next 
command. 
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Diagram 2.2.4. Reader/Interpreter DO Modal Command 


INPUT 


HDAREA 


NESTLVL 
NULLDO 
MODLFLGS 





From Diagram 2.2 





PROCESSING 


1. Determines if DO is part of an 
IF-THEN command. 


2. Processes DO command within 
IF-THEN command. 


a. Immediately following THEN or 
ELSE. 


b. Not immediately following THEN 
or ELSE. 


OUTPUT 


HDAREA 


NESTLVL 


NULLDO 
MODLFLGS 
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Extended Description for Diagram 2.2.4 


IDCRI01 
Procedures: GETNEXT, NXTFIELD, NEXTCHAR 


1 Ifa DO command is not part of an IF—THEN command, 
control returns to Diagram 2.2 to obtain the next 
command. If a DO command is part of an IF—THEN 
command, processing continues to step 2. 


IDCRIO] 


Procedures: MODALIF, MODELSE, NXTFIELD, 
NEXTCHAR, GETNEXT 


2 a. Ifa DO command is part of an IF—THEN command 
and immediately follows a THEN or ELSE keyword, 
MODALIF or MODLELSE sets DOFLAG to |. 
Control returns to Diagram 2.2 for the first command 
of the DO group. 


b. Ifa DO command is part of an IF—THEN command, 
but it does not immediately follow a THEN or ELSE 
keyword, the DO command is unnecessary. 
GETNEXT increases the NULLDO field in 
HDAREA by I, and control returns to Diagram 2.2 for 
the first command of the unnecessary DO group. 
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Diagram 2.2.5. Reader/Interpreter END Modal Command 


INPUT 


HDAREA 


MODLFLGS 
NULLDO 


From Diagram 2.2 


PROCESSING 


1. Determines if END is part of an 
IF-THEN command. 


2. Processes END command within 
IF-THEN command: 


When paired with an unneccessary 
DO command. 


When paired with a necessary DO 
command. 





OUTPUT 


HDAREA 


MODLFLGS 
NULLDO 
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Extended Description for Diagram 2.2.5 


IDCRIOI 
Procedure: GETNEXT 


1 


GETNEXT checks the NESTLVL field in HDAREA; if 
NESTLVL contains a zero, no IF—THEN command is 
being processed and control returns to Diagram 2.2 to 
obtain the next command. If NESTLVL contains a value 
other than zero, processing continues with step 2 


IDCRIO1 
Procedure: GETNEXT 


2 AnEND encountered during the processing of an 


IF—THEN command must be paired with a DO 
command. If a DO command has not been found in the 
current IF—THEN command, the END is processed as a 
syntax error as in Diagram 2.2.1, step 1. 


a. Ifthe END command is paired with an unnecessary 


DO command, GETNEXT subtracts | from the count 
in the NULLDO field in HDAREA. Control returns to 
Diagram 2.2 to obtain the next command. 


. If an END is paired with a necessary DO command, 


GETNEXT sets the DOFLAG for the current 
IF—-THEN command to zero. An IF—THEN 
command is completed if the END is paired with a 
necessary DO that followed an ELSE. GETNEXT 
subtracts | from the count of nested IF—-THEN 
commands in NESTLVL. Control returns to Diagram 
2.2 to obtain the next command. 
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Diagram 2.3 Reader/Interpreter Prepare to Scan Command 


From Diagram 2.0 





INPUT PROCESSING 
IDCRILT 1. Validates verb. 
C Vv 

ommand Verb Name 2. Gets command descriptor. 


Command 3. Builds PARMINFO table. 


Descriptor 





4, Gets FSR name. 


5, Initializes FDT. 


OUTPUT 


PARMINEFO Table 


Command Descriptor 


COMMAREA 


FSR Load 
Module Name 


' EX00 


t [verb Name 
To 
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Extended Description for Diagram 2.3 


IDCRIO2 
IDCRIO1 


Procedures: IDCRI02, ERROR2 


1 Reader/Interpreter Initialization, Diagram 2.1, gives 


control to this section only if parameters were present 
before SYSIPT was read. Otherwise, control comes from 
Diagram 2.2. IDCR1I02 compares the verb name with the 
valid functional verb names in IDCRILT. If a match is 
found, JDCRI02 obtains the name of the verb’s command 
descriptor from the table. If a match is not found or the 
load of the command descriptor fails due to phase not 
found, the verb is invalid, and ERROR2 prints a message 
on SYSLST. The remainder of the command ts ignored, 
and control is given to Reader/Interpreter termination, 
Diagram 2.5 


IDCRIO2 
Procedure: IDCRI02 


2 IDCRIO2 uses the command descriptor name to load the 


command descriptor. A command descriptor is a load 
module describing all the parameters the command may 
have. Access Method Services defines a parameter as: 


¢ Positional data—positional parameters cannot have 
subparameters. 


¢ Keyword with or without data—keyword parameters 
may have subparameters. 


Data is a constant or list of constants. 
Some examples of parameters are: 
® entryname... in DELETE isa positional parameter. 


e VOLUMES (111111) is one parameter with a keyword 
VOLUMES and data of “LIT111”. 


e VOLUMES (111111, 222222) is one parameter with 
keyword VOLUMES and data of “I1IIII” and 
*222222”. (LLLLLL, 222222) is a list of constants. Each 
constant is the same thing—that is a volume serial 
number. 


e KEYS (5, 40) is three parameters—KEYS, length with 
value 5, and offset with value 40. KEYS is a keyword 
while length and offset are each positional parameters. 
(length, offset) is not a list of constants because the 
second item, offset, is different from the first, length. 
length and offset are subparameters of KEYS. 


e KEYRANGES ((5, 40), (50, 60), (70, 80)) is three 
parameters—K EYRANGES, lowkey, and highkey. 


The subparameters of KEYRANGES, lowkey and 
highkey, are repeated. In Access Method Services each 
repetition of a parameter must be enclosed in 
parentheses. Since Jowkey and highkey are positional 
parameters, they must always be in the same relative 
position. They are repeated as a pair to maintain their 
position. 


IDCRIO2 
IDCRIOI 


Procedures: IDCRIO2, SETFLAG 


3 The command descriptor contains an identification 
number for each parameter the command is permitted to 
have. Since the sections of the command descriptor that 
describe the parameters are in no set order, IDCRI02 
builds the PARMINFO Table to access information in the 
order of the parameter identification number. The 
PARMINFO Table consists of several sections. In the 
Descriptor Pointer section the first pointer in the array 
points to the Command Descriptor section that describes 
parameter with identification number 1. The second 
pointer points to the Command Descriptor section that 
describes parameter with identification number 2, and so 
on. The PARMFLAG section contains one entry for each 
parameter identification possible in the command. 
PARMFLAG is used to keep track of which parameters 
have been found. When a parameter is found, SETFLAG 
sets the indicator for the parameter in PARMFLAG. 


In Access Method Services, a subparameter is a parameter 
that modifies another parameter. For example, in 
DEFINE SPACE (VOL....), VOL is a subparameter of 
SPACE. In this document the parameter that the 
subparameter modifies is called its superparameter. In this 
example, SPACE is the superparameter of VOL. A 
superparameter, then, is a parameter that is modified by 
other parameters. For each subparameter, IDCRIO2 puts 
the number of its superparameter in the PARMINFO 
Table in the Superparameter ID section that the R/I uses 
to determine the relationship among parameters. 


IDCRIO2 
Procedure: IDCRIO2 


4 IDCRIO2 obtains the FSR load module name from the 
command descriptor and places the name in the 
FSRLNAME field in COMMAREA. The Executive uses 
the FSR load module name to load the FSR that executes 
the command. 


IDCRIO2 
Procedure: 1DCRI102 
§ IDCRI02 obtains storage for the Function Data Table, 


FDT. The verb uses 8 bytes of storage, and each parameter 
uses 4 additional bytes. IDCRI02 obtains more storage for 
the FDT if any parameter is repeated. The amount of 
storage for repeated parameters is calculated from the 
command descriptor. Because IDCRIO2 uses a UGPOOL 
macro instruction to obtain storage, the identifier EX00 
precedes the FDT. IDCRIO2 initializes the FDT to zero 
and places the verb name in the first 8 bytes. The FDT 
contains the information from the command that an FSR 
needs to execute the command. The FDT is the interface 
between the R/I and the FSRs and consists of a primary 
array of addresses, one secondary array of addresses for 
each repeated parameter, and encoded data from the 
command. 
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Diagram 2.4 Reader/Interpreter Scan C»mmand 


INPUT 


Command 


Command Descriptor 


a 


PARMINFO 
Table 





From Diagram 2.0 


PROCESSING 





1. Interprets each parameter until end of 
command or end of nested repetition, 
then goes to Step 2. 


a. Obtains parameter. 


PARMINFO Table 


or iiss 


b. Checks for errors. 
See Diagram 


c. Puts parameter data items 
in FDT. 


See Diagram 24d) 


Zs Supplies defaults and checks for 
errors. 





FDT 


OUTPUT 
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Extended Description for Diagram 2.4 


IDCRI01 


Procedures: BUILDFDT, CONVERT, DSIDCHK, 
NAMESCAN, SCANCMD, KWDPARM, POSPARM, 
INREPEAT, GETDATA, GETSIMPL, GETQUOTD, 
ERROR], ERROR2, NXTFIELD, NEXTCHAR, 
GFTRECRD 


1 


If the Reader/Interpreter is processing a specified 
parameter, processing continues with step fa. If the 
Reader/Interpreter is processing the end of a command or 
the end of a repeated parameter, processing continues with 
step 2. A parameter set is a parameter repeated as a group. 
Each repeated parameter set is treated separately from the 
command and from other repeated parameter sets. 
PARMFLAG for the parameters in a repetition is reset to 
zero for each group of repeated parameters in order to 
Start the processing again for the new repeated group of 
parameters. 


a. SCANCMD extracts a parameter from the input 
record in storage. If the entire parameter is not in 
storage, GETRECRD reads SYSIPT until all the 
parameter is in storage. 


b. SCANCMD checks the parameter for syntax errors 
based upon the information for the parameter in the 
command descriptor. If errors are found, ERRORI or 
ERROR2 writes a message to SYSLST and sets 
LASTCC to 12. The rest of the command is skipped, 
and control is passed to R/I termination. 


c. AsSCANCMD scans the command, BUILDFDT 
encodes the command into the FDT in order to 
describe the command to the FSR that will execute it. 
The data items are checked for additional errors (errors 
are processed as described in step 1.b). Parameter 
scanning continues one parameter at a time until the 
end of a repeated parameter list is reached or until the 
command terminator is found. For positional 
parameters and data belonging to keywords, 
BUILDFDT checks to ensure that a string does not 
exceed the allowed length, that a number is not out of 
range, and that there are not too many elements in a 
list. 


IDCRIO1 
Procedures: DEFAULTS, SETDELT, NEEDNOTS 
2 The PARMINFO Table is used to access the description 


of each parameter. If a repeated group of parameters or a 
command is incomplete, default values are supplied to the 
FDT. The defaults, which are in the command descriptor, 


are always supplied whenever an input parameter is 
omitted, unless the defaults conflict with the input 
parameters. DEFAULTS and SETDFLT check to ensure 
that the combination of defaults supplied for the 
command is meaningful, that is, no parameters that are 
syntactically correct but logically incorrect. PARMFLAG 
and the command descriptor are used to make 
inter-parameter checks for missing keywords and mutually 
exclusive keywords. If command scanning is not complete, 
control returns to step | to obtain the next parameter. 
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Diagram 2.4.1 Reader/Interpreter Syntax Check Parameter 
From Diagram 2.4 


INPUT PROCESSING 





Command 1. Gets parameter number. 


Command Descriptor 


2. Indicates parameter is found. 


3. Checks constant for errors. 


4. Prepares to scan subparameters. 





Jpemamiaoers 


Parameter Number 





OUTPUT 


PARMINEO Table 


FDTTBL 
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Extended Description for Diagram 2.4.1 


IDCRIO1 
Procedures: SCANCMD, KWDPARM 


The identification number is found differently for 
positional and keyword parameters. For a positional 
parameter, SCANCMD obtains the number of the 
parameter from the subparameter 1D number list in the 
current superparameter’s descriptor. For a keyword 
parameter, KWDPARM compares the keyword to every 
possible keyword permitted in the current level of 
parameter processing. When a match is found, 
KWDPARM saves the ID number of the keyword. 


IDCRIO1 
Procedure: SETFLAG 


2 


SETFLAG uses the ID number of the parameter as an 
index to the FDT. SETFLAG puts the address of the FDT 
field in the same FDT field—the FDT field points to 
itself—to indicate that the parameter has been found. If 
the parameter has data, the FDT field will be changed 
later to the address of the data. Also, SETFLAG sets the 
PARMFLAG value to | for this parameter to indicate the 
parameter has been found in the command. 


IDCRIO1 


Procedures; GETDATA, CONVERT, PACKCVB, 
DSIDCHK, ERROR2 


3 


If the parameter is a constant in the case of positional 
parameters, or if a constant is associated with the 
parameter in the case of a keyword parameter, 
GETDATA checks the constant for syntax errors. If an 
error is encountered, ERROR2 issues a message on 
SYSLST and sets LASTCC to 12. In Access Method 
Services, a constant is one of the following: 


dsname/ password 
dsname(membername)/password 
dname/password 

‘character string’ 

character string 

X‘hexadecimal digits’ 

decimal digits 

B‘binary digits’ 


A list of constants is several constants in the same format 
following each other. A constant or a list of constants may 
belong to one parameter. 


IDCRIO1 
Procedure: SCANCMD 


4 Ifthe keyword parameter has subparameters associated 


with it, SCANCMD processes the subparameters next. For 
example, if the following command is specified: 


VERB A( x) B(C( pq) D( rs E(x))) F G(x) 


A, B, C, D, E, F, and G are keyword parameters. p, g, r, 
and s are positional parameters. x represents data. 


The command has the following structure for scanning: 


Verb 
Sahai SaAGaE Meee: 
A B F G 
C D 
Pp q r 5 E 


The structure is in levels of parameter dependency. The 
verb is on level zero. Parameters A, B, F, and G are on 
level one. When the R/I scans level one and finds 
parameter B, the scanning begins one level lower with 
parameters C and D on level two. When parameter C is 
found, the scan again moves one level lower to scan the C 
subparameters. At the end of the C subparameters, the 
scan returns to level two to scan the next parameter on 
level two. At the end of the D subparameters, there are no 
more parameters on level two, and the scan returns to level 
one for parameter F. In other words, the parameters are 
processed in the same order that they appear on the input 
statement. R/I keeps the level number of the parameter 
being scanned in PARMLVL. R/I keeps the ID number of 
the superparameter for the level being scanned in 
SUPERID. R/I keeps the ID number of the parameter 
being scanned in PARMID. 


Wal Jo Aysedoig — [8]2998]\| posued}] 


8E-2 


IFO] SOOIAIOS POMP] 88009" WWSA/ASA 


Diagram 2.4.2 Reader/Interpreter Build FDT 
rom Diagram 2.4 


INPUT PROCESSING 





Command Deseriptor 
1. Determines type of parameter: 





e Non-repeated parameter, Step 2. 


e Repeated parameter, Step 3. 


2. Puts address in FDT primary 
vector for non-repeated parameter. 


PT 





List of addresses 


3. Puts address in FDT array for 
repeated parameter. 


OUTPUT 





Dattaor 


Count and Data 
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Extended Description for Diagram 2.4.2 
IDCRIO1 


Procedures: PACKCVB, CONVERT, GETSPACE, 
MORESPACE 


1 The parameter type determines how it is encoded into the 
FDT. If the parameter cannot be repeated, processing 
continues with step 2; if the parameter can be repeated, 
processing continues with step 3. Refer to Diagram 2.3 for 
a definition of parameter. 


2 Anon-repeated parameter is one of the following: 


¢ A keyword with no data and no repeated 
subparameters 


e A keyword with no data and repeated subparameters 


¢ A positional or keyword parameter with a single 
constant as data 


¢ A positional or keyword parameter with a list of 
constants as data 


Each category is encoded differently into the FDT as 
follows in the same order as above: 


e The address in the FDT points to itself 


e The address in the FDT points to a fullword containing 
the number of subparameter repetitions 


e The address in the FDT points to the single constant 


¢ The address in the FDT points to a halfword 
containing the number of constants and immediately 
preceding the list of constants 


Character string constants are not changed, but 
PACKCVB and CONVERT convert numbers and 
hexadecimal strings to binary before the address is put in 
the FDT. Ifa list of constants is found, GETSPACE 
obtains space for the list when the first constant is 
processed. MORESPACE obtains additional space, if 
necessary. In the R/I listings, the word scaler is 
interchangable with the word constant. Control returns to 
Diagram 2.4 for the next parameter. 


IDCRIO1 


Procedures: SCANMD, INREPEAT, DEFAULTS, 
NEEDNOTS 


3 Each repeated parameter—positional or keyword— is one 
of two repetition types. 


Repetition Type | 
The repeated parameter is not embedded in another 
repeated parameter. The objectname parameter in the 
IMPORT command has type | repetition. 


Repetition Type 2 
The repeated parameter is embedded within another 


repeated parameter. The Jowkey parameter in the 
IMPORT command has type 2 repetition. 


The maximum number of repetitions for a parameter is in 
the command descriptor for the parameter. The R/I uses 
the repetition type to insert the addresses of the data 
associated with the parameter in a secondary FDT array of 
addresses. The address of the array is put in the primary 
FDT. For each repetition type the FDT array is different. 


Repetition Type | 


The array is one-dimensional and contains one address 
for each possible occurrence of the parameter. 


Repetition Type 2 
The array is two-dimensional. There is one row for each 
possible occurrence of the type | or outer parameter. 
There is one column for each possible occurrence of the 
type 2 or inner parameter. 


Consider a command in the following format: 
VERB A( (BCC D( (x y)...)) E)... ) F 


The type | parameters are B, C, D, and E because the 
entire parameter ( B( C D( (x y) ... )) E) can be repeated, 
but it is not embedded in another repeated parameter. 


The type 2 parameters are x and y because (x y) can be 
repeated, and it is embedded in another repeated 
parameter. A one dimensional array is built for each type 1 
parameter, B, C, D, and E, but a two dimensional array is 
built for each type 2 parameter, x and y. 


The data from each repetition of a parameter is treated as 
in step 2, but instead of putting the data address in the 
primary FDT array, R/I puts the address in the secondary 
array of addresses for the parameter. In the R/I listings, 
repetition type is called repeatedness nesting. Refer to the 
examples of FDT in the Data Areas chapter. Control 
returns to Diagram 2.4 for the next parameter. 
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Diagram 2.5 Reader/Interpreter Termination 


INPUT 


HDAREA 


LOADTPTR 
KWDTPTR 


COMMAREA 


LASTCC 


EOFFLAG 


DESCNAME 





From Diagram 2.0 


PROCESSING 


1. Deletes tables. 


2. Updates condition code. 


3. Determines if command is to be executed. 





OUTPUT 


Register [5 


Register | 


GDT 
FDT Address 
I'DT UGPOOL ID 


MAXCC 


LASTCC 


FSR Name 
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Extended Description for Diagram 2.5 


IDCRIO3 
Procedure: IDCRI03 


IDCRIO3 deletes the command descriptor table for the 
current command and temporary storage. If end-of-file or 
a severe error is encountered, IDCRI03 deletes the 
command name table (IDCRILT), the modal name table 
(IDCRIKT), and HDAREA. 


IDCRIO3 
Procedure: IDCRIO1, IDCRIO3 


2 


If end-of-file is encountered on SYSIPT, IDCRIO3 sets a 
flag in COMMAREA and IDCRIO1 puts a nonzero value 
in register 15, indicating that the Executive is not to call 
the R/I again. If end-of-file has not been encountered and 
no severe errors were found, IDCRIO! sets register 15 to 
zero. If an error causes the R/I to terminate all processing, 
IDCRI1O03 prints an error message on SYSLST. IDCRI03 
sets MAXCC to 16 which indicates that the Executive is 
not to call the R/I again. 


IDCRIO03 
IDCRIO1 


Procedure: [DCRI03, IDCRIOI 


3 If the command had errors or was being scanned only for 


syntax errors due to a modal expression, IDCRI03 releases 
‘he FDT aad gives control to Diagram 2.2 to get the next 
command from SYSIPT. If the command is to be executed 
or severe errors were encountered, IDCRIOI gives control 
to Executive Controlled Termination Diagram 4.1. 
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Function Support Routine (FSR) Visual Table of Contents 


3.1 3.3 3.5 Sat 3.9 3.11 3.13 
ALTER DELETE IMPORT REPRO BLDINDEX EXPORTRA 


3.2 3.4 3.6 3.8 3.10 
DEFINE EXPORT LISTCAT PRINT VERIFY 


3.2.1 


MASTER- 
CATALOG 


3.2.3 


NONVSAM 


3.2.4 


SPACE 


ALTERNATE- 
INDEX 





CLUSTER or 


3.2:2 
USER- 
3.4.1 
CLUSTER or 
ALTERNATE- 
INDEX 
3.2.5 
CLUSTER 
SiZat 
PATH 


ALTERNATE- 





3.6.1 


Gets 


Information 





Catalog 
Reload 


3.9.1 


3.11.1 


Get Information 
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Diagram 3.1. ALTER FSR 


INPUT 


Register | 





VSAM 
Catalog 





From Executive 
Controlled Termination 





PROCESSING 
1. Opens user catalog. CTGPL 
2. Obtains information from apa 
catalog. Ce 
3 LOCTABLE 


CTGFLs 


- Verifies new values are compatible. 
4. Verifies entry type is valid for Alter, a 
operation. 
CTGPL 


5. Builds catalog parameter lists. 


CTGFV 


6. Changes catalog entry. Ge ee 


7. Writes message. 


CTGFLs 


OUTPUT 


VSAM 
Catalog 


Register | 
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Extended Description for Diagram 3.1 


IDCALO01 
Procedure: IDCALO! 


1 First, IDCALO! gets storage for the catalog parameter list. 
If a VSAM catalog is specified on the ALTER command, 
IDCALO! builds an OPNAGL and issues a UOPEN to 
open the catalog. UOPEN returns the address of the 
catalog ACB. If the open is not successful, the ALTER 
command is terminated, and control goes to Step 7. Ifa 
catalog dname is passed, IDCALOI! compares the data set 
name returned from UOPEN (in IOCDSN) to that 
specified in the CATALOG parameter. If the compare is 
unequal, a message is written, the command is terminated 
and control goes to Step 7. 


if an attempt is made to rename a reserved default model 

or rename an object to a reserved default model name, an 
error message is issued and the command is terminated. A 
reserved default model name is any name that begins with 
“DEFAULT.MODEL.” 


IDCALO61 
Procedure: LOCATPRC 


2 Due to the arrangement of information ina VSAM 
catalog, in order to change part of a field the entire field 
must be retrieved and changed. If only NEWNAME, 
OWNERINULLIFY OWNER, TO|FOR|NULLIFY 
RETENTION, BUFFERSIZE, 
EXCEPTIONEXIT|NULLIFY EXCEPTIONEXIT, 
NOUPGRADE|UPDATE|NOUPDATE, or 
ADDVOLUMES|REMOVEVOLUMES is specified, 
control goes to Step 5. LOCATPRC builds a CTGPL and 
CTGFLs which reference the PASSWALL, DSATTR, 
AMDSBCAT, RGATTR, NAMEDS, HURBADS, 
ENTYPE and CATACB catalog fields. This initial locate 
performed in LOCATPRC is termed the primary locate. 


A test is built to limit the number of associations returned 
for NAMEDS to a maximum of five. Refer to the list in 
Step 5 for the contents of the catalog fields obtained with a 
particular CTGFL. LOCATPRC issues a UCATLG 
macro to retrieve the information from the catalog. If the 
return code is zero, LOCATPRC uses the returned 
information to build a table, LOCTABLE. If the return 
code is 40, the work area for VSAM is too small. 
LOCATPRC increases the work area and reissues the 
UCATLG. If the return code is any other nonzero 
number, the ALTER command is terminated and control 
goes to Step 7. 


IDCALO1 
Procedure: CHECKPRC 
3. Following the primary locate, IDCALO1 will invoke 


CHECKPRC if any of the following parameters were 
specified: UPGRADE, KEYS, RECORDSIZE, 
UNIQUEKEY. CHECKPRC will perform further 
verification of these parameters which will, in most cases, 
require additional locates (called ‘secondary’ locates). 
Password processing for the primary and secondary locates 
and for the Alter function itself is handled as follows: 


If KEYS and/or RECORDSIZE are not specified: 


a. On the primary locate, if a password is supplied, 
reference it from the CPL. Set the verify master 
password bit. 


b. If UPGRADE 1s specified, a secondary locate for the 
data HURBADS is required. If a password is supplied, 
reference it from the CPL. Turn off the verify master 
password bit. The password (which is that of the cluster 
level) will be verified as being read level or higher. 


c. On the Alter, if a password is supplied, reference it 
from the CPL. Turn off the verify master password bit. 
Password verification will be as in prior release (master 
password of catalog or entry being altered). 


If KEYS and/or RECORDSIZE are specified: 


a. On the primary locate, if a password ts supplied, 
reference it from the CPL. Set the verify master 
password bit. 


b. On the secondary locates, if a password is supplied, 
reference it from the CPL. Turn off the verify master 
password bit. Turn on the bypass verification bit. No 
verification will take place and the requested 
information will be returned. 


c. On the Alter, processing is as described in b above. 


If UPGRADE was specified, CHECKPRC will verify that 
the ENTYPE isa G (alternate index). If UPGRADE was 
specified, CHECKPRC will verify that the high-used RBA 
is zero. This latter check will require a locate of the data 
HURBADS. If UNIQUEKEY was specified when the 
attribute was previously NONUNIQUEKEY, 
CHECKPRC will verify that the high-used RBA of the 
data object is zero and that the data object is associated 
with an alternate index. If any of these error checks fail, a 
message is printed and processing is terminated. 


The major portion of the new CHECKPRC procedure will 
perform the validity checking required to alter the KEYS 


ENTYPE Locates 


D 


and/or RECORDSIZE values of an empty data set. This 
checking will require the following secondary locates, 
based on the ENTYPE returned from the primary locate: 


Fields Requested 


l-CorG NAMEDS (a maximum 
association of three 

associations) 
2-1 association AMDSBCAT 


CorG 


1-D association AMDSBCAT, HURBADS, 


NAMEDS, ENTYPE, 
DSATTR, PASSWALL 


AMDSBCAT 


AMDSBCAT, HURBADS, 
NAMEDS, ENTYPE, 
DSATTR, PASSWALL 


AMDSBCAT 
AMDSBCAT, HURBADS, 


2-I association 


1-D association 


2-1 association 


1-D association 


of AIX or NAMEDS, ENTYPE, 
cluster DSATTR, PASSWALL 
2-I association AMDSBCAT 

of AIX or 

cluster 


If the ENTYPE is none of the above, CHECKPRC will 
return to IDCALO! with a terminating condition code. 
The LOCATE for the index AMDSBCAT will be issued 
only fora KSDS. CHECKPRC will also verify that the 
HURBADS is zero. If not, CHECKPRC will return to 
IDCALO! with a terminating condition code. If the object 
being altered is a relative record data set, CHECKPRC 
will verify that the average and maximum record size 
specified are equal and, if not, will return to IDCALO! 
with a terminating condition code. If the ENTYPE 
returned in the primary locate is C, G or R, CHECKPRC 
will save the control interval number of the data 
component which is to be altered. 


After retrieval of the appropriate AMDSBCATs, the 
following check will be made of the new average and 
maximum recordsizes and/or new key values. 


a. Data Object 
AMDRKP + AMDKEYLN - AMDLRECL 
or, if the object has the spanned attribute, 
AMDRKP + AMDKEYLN - AMDCINV - D.H.R.S 
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b. DATA object 


AMDCINV 2 AMDRKP + AMDKEYLN + D.R.H.S 
& AMDCIPCA * (AMDCINV - D.R.H.S) 2 
AMDLRECL 


c. Index AMDCINV 2 max (x,y) where: 


X = LR.H.S + (2 *(AMDKEYLN + 2)) + (3 * 
AMDCIPCA) + D.R.H.S 


Y =1.R.H.S + (8 * AMDCIPCA) + (2 * SQRT 
(AMDCIPCA)) + D.R.HLS. 


I.R.H.S = index record header size = 24 
D.R.H.S = data record header size = 7 if non-spanned 
D.R.H.S = data record header size = 10 if spanned 

If any of these relationships do not hold, CHECKPRC 


will return to IDCALO! with a terminating condition code. 


If this is an alteration of an ESDS the index validity check 
will not be performed. If this is an alteration of an 
alternate index, the AMDRKP is a fixed value of X‘05’. If 
relative key position is specified, it applies to the position 
of the alternate key within the base cluster record. 


If the object being altered is a alternate index and the 
KEYS parameter was specified, a further check must be 
made that requires retrieving the AMDSB of the base 
cluster’s data component. The table below shows the 
locates that CHECKPRC will issue based on the 
ENTYPE returned from the primary locate. 


ENTYPE Locates Fields Requested 
D 1-C association NAMEDS (the first 
of G retrieved association) 
in secondary 
locate 
2-D association AMDSBCAT (the 
of C first association) 
G 1-C association NAMEDS 
retrieved in 
primary locate 
2-D association AMDSBCAT 
of C 
R 1-D association AMDSBCAT 
of base cluster 
retrieved in 
primary locate 


Using the base cluster’s data AMDSB, CHECKPRC will 
verify the following: 


AIX AMDAXRKP + AIX AMDKEYILN S base cluster 
AMDLRECL 


or, if the base cluster has the spanned attribute, 


AIX AMDAXRKP + AIX AMDKEYLN S base cluster 
AMDCINV-D.R.H.S 


where D.R.H.S = 10 


If either of these conditions are not true, CHECKPRC will 
return to IDCALO! with a terminating error. 


Assuming no terminating errors have been found, 
CHECKPRC will now set the appropriate return code to 
IDCALOI indicating what situation was encountered. The 
return code will eventually be passed back to the caller, and a 
message written. The table below shows the return code value 
which will be set: 


New values New values 
are equal are not equal 
to previous to previous 
values values 

Previous KEYS 4 0 

KEYS and/or 

RECORDSIZE 

values were 

default values 

Previous KEYS 4 12 

and/or RECORDSIZE 

values were not 

default values 


If the return code is 0, the alter will be performed. If the 
return code is 4, KEYS and RECORDSIZE will not be 
altered but alters will be performed for any other 
parameters specified. A return code of 12 is treated as a 
terminating condition code. If the verification of the new 
values fails, the return code is 12. 


Control is returned to IDCALO!. 


IDCALO1 
Procedures: PARAMCHK 


4 Ifonly NEWNAME, OWNER|NULLIFY (OWNER), 
TO|FOR|NULLIFY (RETENTION), 
EXCEPTIONEXIT, NOUPGRADE, 
UPDATE|NOUPDATE, or BUFFERSPACE is specified, 
control goes to step 5. Otherwise, IDCALO1 passes control 
to the internal procedure PARAMCHK. PARAMCHK 
verifies that the parameters specified on the ALTER 


command are valid for the entry type of the object to be 
altered. The WRITECHECK(|NOWRITECHECK, 
INHIBIT|NOINHIBIT, and SHAREOPTIONS 
parameters are only allowed for data or index objects. The 
ERASE|NOERASE, FREESPACE and 
UNIQUEKEY|NONUNIQUEKEY parameters are only 
allowed for data objects. An error is indicated if the 
ERASE, WRITECHECK, EXCEPTIONEXIT, or 
BUFFERSIZE option is specified for a SAM ESDS in 
NOCIFORMAT. If PARAMCHK detects an error, 
control goes to step 7, otherwise, control goes to step 5. 


IDCALO1 
Procedure: ALTERPRC 


5 ALTERPRC uses the data from the ALTER command in 
the FDT and LOCTABLE. ALTERPRC builds a 
CTGPL, a CTGFYV, and several CTGFLs in order to 
change information in the catalog. Only fields that are 
specified in the ALTER command are changed in the 
catalog. If information in a field is not being changed, the 
CTGFL for the field is not built. The following table lists 
the data areas that pass information to VSAM and the 
keywords whose data is passed. 
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Data Area 
CTGPL 


BUFSIZE CTGFL 
DESTEXDT CTGFL 


DSATTR CTGFL 


OWNERID CTGFL 


PASSWALL CTGFL 


AMDSBCAT CTGFL 


EXCPEXIT CTGFL 


RGATTR CTGFL 


LRECL CTGFL 


Keyword Data 
NEWNAME address 
FILE address 
ADDVOLUMES address 
REMOVEVOLUMES 
address 


BUFFERSPACE 


TO|FOR 
NULLIFY RETENTION 


ERASE|NOERASE 
SHAREOPTIONS 
UNINHIBIT|INHIBIT 


OWNER 
NULLIFY OWNER 


MASTERPW 
CONTROLPW 
UPDATEPW 

READPW 

CODE 

ATTEMPTS 
AUTHORIZATION 
NULLIFY for any keywords 
just listed 


FREESPACE 
WRITECHECK| 
NOWRITECHECK 
KEYS 
RECORDSIZE-maximum 
UNIQUEKEY| 
NONUNIQUEKEY 


EXCEPTIONEXIT 
NULLIFY 
EXCEPTIONEXIT 


UPGRADE|NOUPGRADE 
UPDATE|NOUPDATE 


RECORDSIZE-average 


If KEYS or RECORDSIZE was specified, CHECKPRC 
has saved the control interval number of the data 
component being altered. This number is moved to the 
CPL and is used instead of the data component name for 


faster access. 


Prior to IDCALO1 issuing the UCATLG macro the 
CTGFVTYP field will be set to G if 
UPGRADE/NOUPGRADE is specified. 


CTGFVTYP will be set to R 1f UPDATE/NOUPDATE 
is specified. 


IDCAL01 
Procedure: IDCALO1 
6 IDCALOI issuesa UCATLG macro to change the catalog 


entry. If the return code from UCATLG is nonzero, an 
error conversion table is built and a call is made to 
UERROR. UERROR will handle printing of the error 
message. If KEYS is specified fora KSDS or an alternate 
index, a second UCATLG macro is issued to change the 
catalog entry of the associated index object. If the return 
code is nonzero, it builds an error conversion table and 
calls UERROR. UERROR will handle the printing of the 
error message. 


IDCALO1 
Procedure: IDCALO! 
7 ICDALOI also writes a message with LASTCC to 


SYSLST. If IDCALOI opened a VSAM catalog, it closes 
the catalog with a UCLOSE macro. Control goes to 
Executive Controlled Termination. 
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Diagram 3.2. DEFINE FSR 


INPUT 
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4. 
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6. 


From Executive 
Controlled Fermination 


PROCESSING 





CTGPL 







Initializes catalog parameter lists. CTGEVs 


Opens catalog, if specified. 


Determines object being defined: - 
MASTERCATALOG 
See Diagram —— 
e USERCATALOG 
See Diagram —— 
| 
e NONVSAM | 
See Diagram—— 
e SPACE 
See Disaram——| 3.24) 
e CLUSTER 
See Dieram 132) 
e ALTERNATE INDEX 
See Diagram 28) 
e PATH 
See Diagram 527) 


Performs validity checking. 





ClGELs 


i 


Invokes VSAM catalog | 
management. 





Writes message. 





OUTPUT 


VSAM 
Catalog 
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Extended Description for Diagram 3.2 


IDCDE01 
Procedure: IDCDE0! 


1 IDCDEO! issues a UGPOOL macro to obtain core for a 
CTGPL, four CTGFVs and two work areas. One work 
area is used by catalog management during its processing. 
The second is used by catalog management to return the 
volume serial of the recovery volume for the object 
defined if the catalog is recoverable. The CTGPL, 
CTGFVs and CTGFLs are used to pass information to 
VSAM catalog management. The CTGFVs are found 
through the CTGPL, and the CTGFLs are found through 
the CTGFVs. Refer to the VSE/VSAM LOGIC, Volume 
1, for more information on the CTGPL, CTGFV, and 
CTGEL. Refer to the Diagnostic Aids chapter for an 
illustration of the DEFINE FSR work area. The 
characters CATPLIST preceed the CTGPL. A call is made 
to IECDE02 to establish addressability for IDCDE02 to 
declarations common to all DEFINE modules. If a 
catname is supplied with a CATALOG parameter, 
IDCDEO! puts the address of the catname and the 
password in the CTGPL. 


IDCDE01 
Procedure: IDCDEO1 


2 Ifthe CATALOG parameter specifies a dname, IDCDEO1 
opens the catalog with a UOPEN macro. If the return code 
from UOPEN is zero, IDCDEOI compares the data set 
name returned from UOPEN (in LIOCDSN) to that 
specified in the CATALOG parameter. If the compare is 
unequal, a message is written and control goes to Step 6. 
The I/O Adapter returns the address of the ACB for the 
catalog in the IOCSTR. IDCDEO! puts the address of the 
ACB in the CTGPL. IDCDEO! puts the address of the 
catalog ACB in the same CTGPL field where the address 
of the catname was placed. The ACB is used instead of the 
name for faster catalog access by VSAM catalog 
management. If the return code from the UOPEN is 
nonzero, a message is written with a UPRINT macro and 
control goes to step 6. Otherwise, IDCDEO1 calls 
IDCDE03 to format the catalog parameter list. 


IDCDE03 
Procedure: IDCDE03 


3 IDCDEO! determines the type of DEFINE by testing for 
the following keywords: CLUSTER, 
MASTERCATALOG, USERCATALOG, NONVSAM, 


SPACE, ALTERNATEINDEX, PATH. The types of 
DEFINE are shown in detail in the following diagrams: 


MASTERCATALOG see Diagram 3.2.1 
USERCATALOG see Diagram 3.2.2 
SPACE see Diagram 3.2.3 

NONVSAM see Diagram 3.2.4 
CLUSTER see Diagram 3.2.5 
ALTERNATEINDEX see Diagram 3.2.6. 
PATH see Diagram 3.2.7. 


IDCDE01 
Procedure: INTGCHK 


4 


INTGCHK performs validity checking to insure: 
KSDS, ESDS, RRDS, and AIX 
e Space parameters have been properly specified. 


e User is warned when USECLASS has been ignored 
due to the absence of space parameters at the same 
level. 


e Volumes have been specified in both DATA and 
INDEX FVTs. 


e If KEYLENGTH and KEY POSITION (in Data 
AMDSB) have not been specified supply defaults: 
length=64, relative key position=0. 


e If average and maximum recordsize have not been 
specified, specify defaults: average for 
non-spanned=4089, average for spanned=4086, 
maximum for non-spanned=4089, maximum for 
spanned=32,600 


e If UNIQUE is specified insure CTGFVIND (dname) 
has been set and build null volume FVT. 


e UNIQUE was not specified with a USECLASS other 
than zero. 


e RECORDSIZE was omitted with 
RECORDFORMAT FIXUNB or FIXBLK 


e If NOALLOCATION was specified for a KSDS/AIX, 
it should be specified in both the DATA and INDEX 
components. 


e Ifa default model has been defined, it should have the 
NOALLOCATE attribute and should always have a 
volume list. 


e Ifthe DEFAULTVOLUMES parameter is ignored 
due to override by the VOLUMES parameter, a 
warning message is given. 


¢ RECORDFORMAT was not specified with 
INDEXED, NUMBERED, SPANNED, or 
RECOVERY. 


¢ NOCIFORMAT was not specified with 
WRITECHECK, ERASE, or EXECPTIONEXIT. 


¢ Acomponent with ORDERED attributes has a volume 
list. 


¢ Ifan ESDS, KSDS or AIX has the REUSABLE 
attribute make sure it is not unique nor have 
KEYRANGES been specified. 


° If AMDRRDS indicates an RRDS, insure that the 
average and maximum LRECL are equal. 


¢ Ifthe data AMDSB indicates an RRDS, insure that it 
does not also indicate spanned. 


e If record size is greater than 32,761 (maximum CI size), 
insure that it has the spanned attribute. 


° if KEYRANGES is specified, ensure key values do not 
exceed maximum key length. 


¢ Because USECLASS is effective only when space 
parameters (for example, CYL) are specified, modeled, 
or propagated at the same level, INTGCHK performs 
the final audit and application of USECLASS to the 
SPACPARM CTGFLs. 


SPACE 
e Space parameters have been properly specified. 


e Because USECLASS is effective only when space 
parameters (for example, CYL) are specified, modeled 
or propagated at the same level, INTGCHKperforms 
the final audit and application of USECLASS to the 
SPACPARM CTGFLs. 


IDCDE01 
Procedure: IDCDEO! 
5 IDCDEOI! invokes VSAM catalog management by issuing 


a UCATLG macro. If a nonzero catalog management 
return code is received, and if it relates to volume 
allocation status, a UPRINT macro lists the volumes 
associated with the error conditions. 


For allocation of space on a fixed block device, a UPRINT 
macro prints specific extents to indicate possible rounding 
of actual extents to conform to device characteristics. 


If a list of names is returned, the list is written with a 
UPRINT macro. If the return code from UCATLG is 
nonzero, IDCDEO! builds an error conversion table and 
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invokes UERROR. UERROR will handle printing of the 
error message. 


If a recovery volume serial is returned, it is printed with a 
UPRINT macro. 


IDCDE01 
Procedures: IDCDE01 


6 Ifacatalog was opened in step 2, IDCDE01 closes the 
catalog with a UCLOSE macro. A message with LASTCC 
is written with a UPRINT macro. IDCDEOI calls 
FREESTG to free all automatic storage for CSECT 
IDCDEO2. IDCDEO! issues a UFPOOL to free all the 
storage obtained for the DEFINE FSR. Control goes to 
Executive Controlled Termination. 


Wl Jo Aysodoig — [epioyeyy poses] 


wS-2 


SIZO'T SOotAIOS pomoPy s8900Y WWSA/ASA 


Diagram 3.2.1. DEFINE FSR — DEFINE MASTERCATALOG 


From Diagram 3.2 





INPUT PROCESSING 


CTGPL 
1. Builds cluster CTGFV. 


2. Builds volume CTGEFV. 


3. Builds data CTGFV. 


4. Builds index CTGEV. 


5. Checks volume information. 


OUTPUT 
CTGPL 


Cluster 
CTGEV 


Volume 
CTGEY 


Data 
CTGEN 





Index 
CoPGsEN 





Data 
CTGELs 


Data 


CiTGELs 


Data 


Data 


Co 

pm : 
= 

= 

fv 
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ad 1 information from DATA is put in the DATA CTGFV 
CLSTRFVT 


overriding anything already in the DATA CTGFV. 


First, the information under MASTERCATALOG is put 
in the DATA CTGFYV as follows: 


NAMEPROC issues a UTIME macro to get the creation 
date which is put ina DSETCRDT CTGFL. KEYPROC 


Extended Description for Diagram 3.2.1 


IDCDE02, IDCDE03 


Procedures: CTLGPROC, ALLCPROC, NAMEPROC, 
PROTPROC 


1 Inthe DEFINE MASTERCATALOG command, you 





MASTERCATALOG CLUSTER 


CTGFV 
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specify information under three main keywords: 
MASTERCATALOG, DATA, and INDEX. The 
DEFINE FSR builds a CTGFYV to describe the cluster, 
data and index components of the mastercatalog as well as 
building a volume CTGFV. Information specified under 
MASTERCATALOG goes in the CLUSTER and 
VOLUME CTGFVs; information under DATA goes in 
the DATA CTGFV; and information under INDEX goes 
in the INDEX CTGFV. If not enough information is 
specified under DATA or INDEX to build the DATA or 
INDEX CTGFYV, information from 
MASTERCATALOG completes the DATA or INDEX 
CTGFV. If information is duplicated under DATA or 
INDEX and under MASTERCATALOG—like 
WRITECHECK—information from DATA or INDEX 
overrides the information from MASTERCATALOG in 
the DATA or INDEX CTGFV. The exception is space 
information from TRACKS, CYLINDERS, BLOCKS, or 
RECORDS. Space information is never copied from 
MASTERCATALOG to the DATA and INDEX 
CTGFVs. CTLGPROC sets the identification of 
CLSTRFVT in the 8 bytes before the CLUSTER 
CTGFV. An “M” is set in the CTGTYPE field in the 
CTGPL to indicate that a master catalog is being defined. 
CTLGPROC puts the address of the objectname from 
NAME in the CLUSTER CTGFV. ALLCPROC builds a 
SPACPARM CTGEL with the primary and secondary 
space information from TRACKS, CYLINDERS, 
BLOCKS, or RECORDS along with DEDICATE and 
CLASS indicators. ALLCPROC sets the address of the 
recovery volume serial work area in the CTGFVWKA 
field of the cluster FVT. NAMEPROC issues a UTIME 
macro to get the creation date which is put ina 
DSETCRDT CTGFL. NAMEPROC also builds a 
DSETEXDT CTGFL with the information from 
TO|FOR.PROTPROC builds a PASSWALL CTGFL 
with information from MASTERPW, CONTROLPW, 
UPDATEPW, READPW, CODE, ATTEMPTS, and 
AUTHORIZATION. PROTPROC also builds a 
OWNERID CTGEFL with information from OWNER. 





IDCDE02, IDCDE03 
Procedures: CTLGPROC, ALLCPROC 


2 The DEFINE FSR builds a VOLUME CTGFV with 
information specified under MASTERCATALOG. 
CTLGPROC sets the identification of VOLUMFVT in 
the 8 bytes preceding the VOLUME CTGFV. 
ALLCPROC builds a SPACPARM CTGFIL with the 
primary and secondary space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS along with 
DEDICATE and CLASS indicators. ALLCPROC puts 
the address of volser from VOLUME and the address of 
dname if specified from FILE in the VOLUME CTGFV. 


| eed == a acoe ry) | 


VOLUMFVT 







MASTERCATALOG VOLUME 


CTGFV 


IDCDE02, IDCDE03 


Procedures: CTLGPROC, NAMEPROC, KEYPROC, 
ALLCPROC 


3 CTLGPROC sets the identification of DATAFVT in the 8 
bytes preceding the DATA CTGFV. The DEFINE FSR 
builds the DATA CTGFYV with information specified 
under MASTERCATALOG and under DATA. If 
information is duplicated under MASTERCATALOG 
and under DATA, the information in DATA overrides 
information from MASTERCATALOG. The DEFINE 
FSR first puts the information from 
MASTERCATALOG in the DATA CTGFV; second, 


builds a AMDSBCAT CTGEL, but no information is put 
in yet. ALLCPROC puts the address of the volser if 
specified from VOLUME and the address of dname if 
specified from FILE in the DATA CTGFV. 
WRITECHECK|NOWRITECHECK is put in the 
AMDSBCAT CTGFL. ALLCPROC builds a BUFSIZE 
CTGFL with information from BUFFERSPACE. 
ALLCPROC builds a DSATTR CTGFL for data set 
attributes and, in addition, sets the Recoverable or Not 
Recoverable indicator in DSATTR. In the listings this is 
called the implicit pass. 


Second, the information under DATA is put in the DATA 
CTGFV as follows: 


ALLCPROC builds a SPACPARM CTGFEL for primary 
and secondary space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS. The value 
specified for CLASS is also set in the SPACEPARM 
CTGFL. ALLCPROC initializes the Recoverable/Not 
Recoverable flag in the DSATTR CTGFL. 
IfWRITECHECK|NOWRITECHECK is specified under 
DATA, it is overridden in the AMDSBCAT CTGEL. If 
BUFFERSPACE is specified under DATA, ALLCPROC 
builds a BUFSIZE CTGFL or modifies the existing one. 
In the listings this is called the explicit pass. 






MASTERCATALOG 
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IDCDE02, IDCDE03 


Procedures; CTLGPROC, NAMEPROC, KEYPROC, 
IXOPPROC, ALLCPROC 


4 CTLGPROC sets the identification of INDEXFVT in the 
8 bytes preceding the INDEX CTGFV. The DEFINE 
FSR builds the INDEX CTGFYV with information 
specified under MASTERCATALOG and under INDEX. 
If information is duplicated under MASTERCATALOG 
and under INDEX, the information in INDEX overrides 
information from MASTERCATALOG. The DEFINE 
FSR first puts the information form 
MASTERCATALOG in the INDEX CTGFV; second, 
information from INDEX is put in the INDEX CTGFV 
overriding anything already in the INDEX CTGFYV. First, 
the information under MASTERCATALOG is put in the 
INDEX CTGFYV as follows: 


NAMEPROC issues a UTIME macro to get the creation 
date which is put ina DSETCRDT CTGFL. KEYPROC 
builds a AMDSBCAT CTGFL, but no information is put 
in yet. In IXOPPROC, IMBED|NOIMBED is put into the 
AMDSB. ALLCPROC puts the address of the volser from 
VOLUME and the address of dname if specified from 
FILE in the INDEX CTGFV. 
WRITECHECK|NOWRITECHECK is put in the 
AMDSBCAT CTGEFL. ALLCPROC builds a DSATTR 
CTGFL for data set attributes. In the listings this is called 
the implicit pass. 


Second, the information under INDEX is put in the 
INDEX CTGFV as follows: 


ALLCPROC builds a SPACPARM CTGFL for primary 
and secondary space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS. The value 
specified for CLASS is also set in the SPACPARM 
CTGFL. WRITECHECK|NOWRITECHECK is 
overridden in the AMDSBCAT CTGFL. ALLCPROC 
initializes the Recoverable/Not Recoverable flag in the 
DSATTR CTGEL. In the listings this is called the explicit 
pass. 






Fe = se = 


MASTERCATALOG INDEXEVT | 


INDEX 
CTGFV 





IDCDE01 
Procedure: INTGCHK 


§ For MASTERCATALOG four CTGFV’s have been built: 
one for cluster information, data information, index 
information, and volume information. ASPACPARM 
CTGFL must be specified on the CTGFV for volume 
information. In addition, INTGCHK checks the other 
three CTGFVs fora SPACPARM CTGFV. The following 
table shows the possible CTGFVs where a SPACPARM 
CTGFL may have been built (in addition to the 
VOLUME CTGFYV) and the action INTGCHK takes. 


SPACPARM CTGFL 
Cluster Data Index Action 


X X X IDCDEO!1 erases the 
SPACPARM CTGFL 
from the CLUSTER 
CTGFV. 


IDCDEO0!1 erases the 
SPACPARM CTGFL 
from the CLUSTER 
CTGFV. 


This is an error; IDCDEO1 
terminates the DEFINE. 


X OK; no action. 


This is an error; IDCDEO1 
terminates the DEFINE. 


INTGCHK insures that space parameters exist wherever 
CLASS|USECLASS has been specified (or internally 
generated). If space parameters do not exist, 


X X 


hone none none 


CLASS|USECLASS is dropped from the SPACPARM 
CTGEFL. 


Note that for DEFINE MASTERCATALOG, primary 
useclass is not specified explicitly; it is logically generated at 
the data and index levels to agree with the value established 
for CLASS. Secondary useclass is always the same as primary 
useclass. 


The SPACPARM CTGEL is checked for a dname from FILE. 


Control goes to Diagram 3.2, step 4. If an error occurs, 
INTGCHK writes a message and control goes to step 6. 
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Diagram 3.2.2. DEFINE FSR — DEFINE USERCATALOG 
From Diagram 3.2 


INPUT PROCESSING 


CTGPL 
1. Builds cluster CTGFV. 


2. Builds volume CTGFV. 


3. Builds data CTGFV. 


4. Builds index CTGFV. 


5, Checks volume information. 


OUTPUT 






MDTBL 
a= feed 





Cluster 
CTGEYV 

CTGELs 
Volume | 
CTGEYV 






CTGELs 


CTGELs 










MDIBL 







MDTBL 


Inde x 


eee es CTGEV 






CTGELs 
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Extended Description for Diagram 3.2.2 


IDCDE02, IDCDE03 


Procedures: CTLGPROC, NAMEPROC, MODELPRC, 
PROTPROC, ALLCPROC 


1 


In the DEFINE USERCATALOG command, you specify 
information under three main keywords: 
USERCATALOG, DATA, and INDEX. The DEFINE 
FSR builds a CTGFV to describe the cluster, data and 
index components of the usercatalog as well as building a 
VOLUME CTGFYV. information specified under 
USERCATALOG goes in the CLUSTER and VOLUME 
CTGFVs; information under DATA goes in the DATA 
CTGFV; and information under INDEX goes in the 
INDEX CTGFV. If not enough information is specified 
under DATA or INDEX to build the DATA or INDEX 
CTGFYV, information from USERCATALOG completes 
the DATA or INDEX CTGFYV. If information is 
duplicated under DATA or INDEX and under 
USERCATALOG—like WRITECHECK— information 
from DATA or INDEX overrides the information from 
USERCATALOG in the DATA or INDEX CTGFV. The 
exception is space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS along with 
DEDICATE and CLASS indicators. Space information is 
never copied from the cluster. 


lf a MODEL is specified, the information in the command 
overrides the information in the MODEL. The MODEL 
has one catalog entry to describe its cluster, one entry for 
its data, and one entry for its index. The information in the 
MODEL’s cluster catalog entry is used to build the 
CLUSTER CTGFYV; information in the MODEL’s data 
Catalog entry is used to build the DATA CTGFV; and 
information in the MODEL’s index entry is used to build 
the INDEX CTGFYV. The order of precedence when 
modeling is shown below where | has the highest 
precedence: 


CLUSTER CTGFV 


1. USERCATALOG parameters 
2. Cluster object of model 


DATA CTGFV 


1. DATA parameters 
2. USERCATALOG parameters 
3. Data object of model 


INDEX CTGFV 


1. INDEX parameters 
2. USERCATALOG parameters 
3, Index object of model 


CTLGPROC sets the identification of CLSTRFVT in the 
8 bytes before the CLUSTER CTGFV. A U is put in the 
CTGTYPE field of the CTGPL to indicate that a user 
catalog is being defined. CTLGPROC puts the address of 
the objectname from NAME in the CLUSTER CTGFV. 
CTLGPROC checks fora MODEL keyword. If MODEL 
is specified, MODELPRC issues a UCATLG macro to 
retrieve information from the modeled catalog. The 
information from the cluster catalog entry of the modeled 
catalog is put in a table, MDLTABL, and the Control 
Interval number for the data and index entries of the 
modeled catalog are saved. MDLTABL contains an 
address and the length of each field of information 
returned from the UCATLG. In building the CLUSTER 
CTGFYV, information is obtained from MDLTABL and is 
then overlaid by the information specified in the 
USERCATALOG parameters. NAMEPROC builds a 
DSETEXDT CTGFI with the information from 
TO|FOR. PROTPROC builds a PASSWALL CTGFL 
with information foom MASTERPW, CONTROLPW, 
UPDATEPW, READPW, CODE, ATTEMPTS, and 
AUTHORIZATION. PROTPROC also builds a 
OWNERID CTGEL with ownerid from OWNER. 
ALLCPROC builds a SPACPARM CTGFL with the 
primary and secondary space information from TRACKS, 
CYLINDERS, BLOCKS, and RECORDS along with 
DEDICATE and CLASS indicators. NAMEPROC issues 
a UTIME macro to get the creation date which is put in a 
DSETCRDT CTGFL. ALLCPROC sets the address of 
the recovery volume serial work area in the CTGFVWKA 
field of the cluster FVT. 


Se _ —_— «3 o- l 
CLSTREVT 





eer SERCA CLUSTER 
Part of Model USERCATALOG CT GEV 


IDCDE02, IDCDE03 
Procedures: CTLGPROC, ALLCPROC 
2 The DEFINE FSR builds a VOLUME CTGFV with 


information specified under USERCATALOG. No 
information is taken from a MODEL for the VOLUME 
CTGFV. CTLGPROC sets the identification of 
VOLUMFVT in the 8 bytes preceding the VOLUME 
CTGFV. ALLCPROC builds a SPACPARM CTGFL 
with the primary and secondary space information from 
TRACKS, CYLINDERS, BLOCKS, or RECORDS along 
with DEDICATE and CLASS indicators. ALLCPROC 


puts the address of volser from VOLUMES and the 
address of dname if specified from FILE in the VOLUME 
CTGFV. 


= eRe oD 


VOLUMEVTI 





Volume 
CTGFEV 


USERCATALOG 


IDCDE02, IDCDE03 


Procedures: CTLGPPROC, NAMEPROC, KEYPROC, 
ALLCPROC, MODELPRC 


3 CTLGPROC sets the identification of DATAFVT in the 8 
bytes preceding the DATA CTGFV. The DEFINE FSR 
builds the DATA CTGFYV with the information specified 
in USERCATALOG parameters. This information is then 
overlaid by the information specified in the DATA 
parameters. 


Two passes are performed. On the first pass, called the 
implicit pass, the following occurs: 


If MODEL is not specified, the DATA CTGFV is built 
with information specified in the USERCATALOG 
parameters. 


If MODEL is specified, MODELPRC uses the saved 
Control Interval number for the data entry of the 
modeled catalog to get information from the dataentry. 
The information from the data entry of the modeled 
catalog is putin MDLTABL. The DATA CTGFYV is 
built with information from MDLTABL and is then 
overlaid by the information specified in 
USERCATALOG parameters. 


NAMEPROC issues a UTIME macro to get the creation 
date which is put ina DSETCRDT CTGFL. KEYPROC 
builds a AMDSBCAT CTGEL, but no information is put 
in yet. ALLCPROC puts the address of the volser if 
specified from VOLUME and the address of dname if 
specified from FILE in the DATA CTGFV. 
WRITECHECK|NOWRITECHECK is put in the 
AMDSBCAT CTGFL. ALLCPROC builds a BUFSIZE 
CTGFL with information from BUFFERSPACE. 
ALLCPROC builds a DSATTR CTGFL for data set 
attributes and, in addition, sets the Recoverable/Not 
Recoverable flag of the field. 
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On the second pass, called the explicit pass, the 
information in the DATA CTGFV from the implicit pass 
is overlaid by the information specified in the DATA 
parameters. 


Ifa DSETCRDT CTGFL does not exist, NAMEPROC 
builds one. Normally, a DSETCRDT CTGFL does exist. 
ALLCPROC builds a SPACPARM CTGFL for primary 
and secondary space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS. The value 
specified for CLASS is also set into the SPACPARM 
CTGEL. If WRITECHECK|NOWRITECHECK is 
specified under DATA, it is overridden in the 
AMDSBCAT CTGEL. If BUFFERSPACE is specified 
under DATA, ALLCPROC builds a BUFSIZE CTGFL 
or modifies the existing one. ALLCPROC initializes the 
Recoverable/Not Recoverable flag in the DSATTR 
CTGFL. 











DATA Part 


v2 ewes -—= 
DATAEVTbE 
of MODEL 





USERCATALOG 


IDCDE02, IDCDE03 


Procedures: CTLGPROC, NAMEPROC, KEYPROC, 
IXOPPROC, ALLCPROC, MODELPRC 


4 CTLGPROC sets the identification of INDEXFVT in the 
8 bytes preceding the INDEX CTGFV. The DEFINE 
FSR builds the INDEX CTGFYV with the information 
specified in USERCATALOG parameters which 1s 
overlaid by the information specified in the INDEX 
parameters. Two passes are performed. On the first pass, 
called the implicit pass, the following occurs: 


If MODEL is not specified, the INDEX CTGFV is built 
with information specified in USERCATALOG 
parameters. 


If MODEL is specified, MODELPRC uses the saved 
Control Interval number for the index entry of the 
modeled catalog to get information from the index entry. 
The information from the index entry of the modeled 
catalog is put in MDLTABL. The INDEX CTGFYV is 
built with information from MDLTABL and then 
overlaid by the information specified in the 
USERCATALOG parameters. 





NAMEPROC issues a UTIME macro to get the creation 
date which is put ina DSETCRDT CTGFL. 
KEYPROC builds a AMDSBCAT CTGFL, but no 
information is put in yet. In IXOPPROC, 
IMBED|NOIMBED is put into the AMDSBCAT. 
CTGFL. ALLCPROC puts the address of the volser 
from VOLUME and the address of dname if specified 
from FILE in the INDEX CTGFV. 
WRITECHECK|NOWRITECHECK is put in the 
AMDSBCAT CTGFL. ALLCPROC builds a DSATTR 
CTGFL for data set attributes. 


On the second pass, called the explicit pass, the 
information in the INDEX CTGFYV from the implicit pass 
is overlaid by the information specified in the INDEX 
parameters. 


ALLCPROC builds a SPACPARM CTGEL for primary 
and secondary space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS. The value 
specified for CLASS is also set into the SPACPARM 
CTGFL. WRITECHECK|NOWRITECHECK is 
overridden in the AMDSBCAT CTGFL. 










INDEX Part 
of MODEL 






USERCATALOG INDEXEVT I 





IDCDE01 
Procedure: INTGCHK 


§ For USERCATALOG four CTGFVs have been buiit - 
one for cluster information, data information, index 
information, and volume information. ASPACPARM 
CTGFL must be specified on the CTGFV for volume 
information. In addition, INTGCHK checks the other 


three CTGFVs for a SPACPARM CTGFV. The following 
table shows the possible CTGFVs (in addition to the 
VOLUME CTGFV) where a SPACPARM CTGFL may 
have been built and the action INTGCHK takes: 


SPACEPARM CTGFL 
Cluster Data Index 
X X xX 


Action 


IDCDEDO! erases the 
SPACPARM CTGFL 
from the CLUSTER 
CTGFV. 


IDCDEO1 erases the 
SPACPARM CTGFL 
from the CLUSTER 
CTGFV. 


This is an error; IDCDEOI 
terminates the DEFINE. 


x OK; no action. 


This is an error; IDCDEO! 
terminates the DEFINE. 


INTGCHK insures that space parameters exist wherever 
CLASS|USECLASS has been specified (or internally 
generated). If space parameters do not exist, 
CLASS|USECLASS is dropped from the SPACPARM 
CTGFL. 


Note that for DEFINE USERCATALOG, primary useclass is 
not specified explicitly; it is logically generated at the data and 
index levels to agree with the value established for class. 
Secondary useclass is always the same as primary useclass. 


The SPACPARM CTGEFLI is checked for a dname from FILE. 
Control goes to Diagram 3.2, step 4. If an error occurs, 
INTGCHK writes a message and control goes to Diagram 3.2, 
step 5. 


xX x 


none none none 
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Diagram 3.2.3. DEFINE FSR-DEFINE NONVSAM 
From Diagram 3.2 
INPUT PROCESSING OUTPUT 


1. Builds nonVSAM CTGFV. CTGPL 
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Extended Description for Diagram 3.2.3 


IDCDE02, IDCDE03 


Procedures: NVSAMPRC, ALLCPROC, PROTPROC, 
NAMEPROC 


1 NVSAMPRC sets the identification of NVSAMFVT in 
the 8 bytes preceding the area that is usually used for a 
CLUSTER CTGFV. NVSAMPRC puts the address of the 
NONVSAM CTGFYV in the CTGFVT field of the 
CTGPL. NAMEPROC puts the address of objectname 
from NAME in the NONVSAM CTGFV. ALLCPROC 
puts the address of volser from VOLUMES in the 
NONVSAM CTGFV. ALLCPROC builds a DEVTYPE 
CTGFL for information from DEVICETYPES. If 
FILESEQUENCENU MBERS is specified, ALLCPROC 
puts the address of numbers from 
FILESEQUENCENUMBERS in the NONVSAM 
CTGFV. ALLCPROC sets the address of the recovery 
volume serial work area in the CTGFVWKA field. 
Control goes to Diagram 3.2, step 4. 


| ad 
NVSAMEVTI 





NONVSAM NONVSAM 
CTGFV 
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Diagram 3.2.4. DEFINE FSR — DEFINE SPACE 
From Diagram 3.2 


INPUT PROCESSING 








1. Builds volume CTGFV. 


2. Checks volume tnformation. 


OUTPUT 


CTGFLs 
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Extended Description for Diagram 3.2.4 
IDCDE02, IDCDE03 
Procedures: DSPACPRC, ALLCPROC 


1 DSPACPRC sets the identification of VOLUMFVT in the 
8 bytes preceding the VOLUME CTGFV. The address of 
the VOLUME CTGFYV is put in the CTGPL in the field 
named CTGFVT because the VOLUME CTGFV is the 
only CTGFV for a DEFINE SPACE. ALLCPROC puts 
the address of the volser if specified from VOLUMES and 
the address of dname if specified from FILE in the 
VOLUME CTGFV. ALLCPROC builds a SPACPARM 
CTGFL with primary and secondary space information 
from TRACKS, CYLINDERS, BLOCKS, or RECORDS 
along with DEDICATE and CLASS indicators. 


If RECORDS is specified, ALLCPROC builds a LRECL 
CTGFL with information from RECORDSIZE. 
ALLCPROC sets the address of the recovery volume serial 
work area in the CTGFVWKAA field of the volume FVT. 


| aed 
VOLUMEVTI! 





VOLUME 
CTGFV 


IDCDE01 


Procedures: INTGCHK 


2 For DEFINE SPACE only a VOLUME CTGEFYV is built. 
INTGCHK checks the VOLUME CTGFYV to be sure a 
SPACPARM CTGEL is present. If the space is in units of 
records, the VOLUME CTGFYV must contain the address 
ofa LRECL CTGFL. 
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Diagram 3.2.5. DEFINE FSR — DEFINE CLUSTER 


INPUT 


CTGPL 


From Diagram 3.2 





PROCESSING OUTPUT 
MDTBL 


Cluster 
CTGFV 


i 


1. Builds cluster CTGFV. 


MDTBL 


i 
. 


2. Builds data CTGFV. 


MDTBL 


3. Builds index CTGEV. 


Volume 


CTGFV 


i 
| 
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4. Builds volume CTGFV if 
UNIQUE ts specified. 


5. Checks volume information. 
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Extended Description for Diagram 3.2.5 
IDCDE02, IDCDE03 


Procedures: DODETPROC, NAMEPROC, MODELPRC, 
PROTPROC, ALLCPROC 


1 Inthe DEFINE CLUSTER command, you specify 
information under three main keywords: CLUSTER, 
DATA, and INDEX. The DEFINE FSR builds a CTGFV 
to describe the cluster, data, and index components of the 
cluster as well as building a VOLUME CTGFV if 
UNIQUE is specified. Information specified under 
CLUSTER goes in the CLUSTER CTGFYV; information 
under DATA goes in the DATA CTGFV; and 
information under INDEX goes in the INDEX CTGFV. 
Nothing is put in the VOLUME CTGFYV. If not enough 
information is specified under DATA or INDEX to build 
the DATA or INDEX CTGFYV, information from 
CLUSTER completes the DATA or INDEX CTGFV. If 
information is duplicated under DATA or INDEX and 
under CLUSTER—like WRITECHECK—information 
from DATA or INDEX overrides the information from 
CLUSTER in the DATA or INDEX CTGFV. The 
exception is space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS. This space 
information is never copied from CLUSTER. 


Both explicit( MODEL parameter) and implicit (default) 
modeling are supported, but for any one component 
(CTGFVT), explicit and implicit modeling cannot be 
mixed, ie., explicit models preclude implicit models. 


If MODELs are applied, the information in the command 
overrides the information ina MODEL. A MODEL has 
one catalog entry to describe its cluster, one entry for its 
data, and one entry for its index, if the MODEL is a keyed 
sequence data set. The information in a MODEL’s cluster 
catalog entry is used to build the CLUSTER CTGFV; 
information in a MODEL’s data entry is used to build the 
DATA CTGFV; and information in the MODEL’s index 
entry is used to build the INDEX CTGFV. The order of 
precedence for any particular parameter when modeling is 
shown below where | takes the highest precedence: 


CLUSTER CTGFV 


!. CLUSTER parameters 
2. Cluster object of CLUSTER explicit or default model 
3. System default 


DATA CTGFV 


1. DATA parameters 
| 2. DATA explicit model 
3. CLUSTER parameters 


4. Data object of CLUSTER explicit or default model 
5. System default 


INDEX CTGFV 


1. INDEX parameters 

2. INDEX explicit model 

3. CLUSTER parameters 

4. Index object of CLUSTER explicit or default model 
5. System default 


If MODEL is applied, MODELPRC issues a UCATLG to 
retreive information from the modeled VSAM data set. 
The information from the cluster catalog entry of the 
modeled data set is put in a table, MDLTABL, and the 
Control Interval number for the data and index entries of 
the modeled data set are saved. MDLTABL contains an 
address and the length of each field of information 
returned from the UCATLG. In building the CLUSTER 
CTGFYV, information is obtained from MDLTABL is then 
overlaid by information specified in the CLUSTER 
parameters. 


DSETPROC sets the identification of CLSTRFVT in the 
8 bytes before the CLUSTER CTGFV. DSETPROC also 
sets the address of the recovery volume serial work area in 
the CTGFVWKA field. NAMEPROC issues a UTIME 
macro to get the creation date which is put in a 
DSETCRDT CTGFL. NAMEPROC puts the address of 
objectname from NAME in the CLUSTER CTGFV. 
NAMEPROC builds a DSETEXDT CTGFL with the 
information from TO|FOR. If a reserved name (default 
model name) prefix (““DEFAULT.MODEL.”) is used, a 
check is made for additional valid qualifiers. PROTPROC 
builds a PASSWALL CTGFL with information from 
MASTERPW, CONTROLPW, UPDATEPW, 
READPW, CODE, ATTEMPTS, and 
AUTHORIZATION. PROTPROC also builds a 
OWNERID CTGFL with information from OWNER. 
ALLCPROC builds a SPACPARM CTGFL with the 
primary and secondary space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS, along with 
USECLASS. 





CLUSTER Part 
of CLUSTER CLUSTER CLUSTER 


Model CTGFV 








~CLSTREVT ! 


IDCDE02, IDCDE03 


Procedures: DSETPROC, NAMEPROC, KEYPROC, 
MODELPRC, ALLCPROC, PROTPROC 


2 DSETPROC sets the identification of DATA FVT in the 8 
bytes preceding the DATA CTGFV. The DEFINE FSR 
builds the DATA CTGFYV with the information specified 
in CLUSTER parameters. This information is then 
overlaid by the information specified in the DATA 
parameters. Two passes are performed. 


On the first pass, called the implicit pass, the following 
occurs: 


If MODEL is not specified at the data level, the DATA 
CTGFV is built with information specified in the 
CLUSTER parameters. 


if MODEL is applied under CLUSTER or a default 
model exists for the cluster type (KSDS, RRDS, VSAM 
ESDS, SAM ESDS) and MODEL is not specified under 
DATA, MODELPRC uses the saved Control Interval 
number for the data entry of the applicable modeled data 
set to get information from the data entry. The 
information from the data entry of the modeled data set is 
put in MDLTABL. If the DEFAULTVOLUMES 
parameter is given at either the CLUSTER or the DATA 
level, nullify the volumes list pointer in the MDLTABL. 
The DATA CTGFYVV is built with information from 
MDLTABL and is then overlaid by the information 
specified in CLUSTER parameters. 


NAMEPROC issues a UTIME macro to get the creation 
date which is put ina DSETCRDT CTGEL. 
NAMEPROC also builds an EXCPEXIT CTGFL with 
exception exit information. KEYPROC builds a 
AMDSBCAT CTGFL, and ALLCPROC builds a 
DSATTR CTGFL, but no information is put in them yet. 
KEYPROC puts the length and offset from KEYS in the 
AMDSBCAT CTGEL. If no key values are specified, 
KEYPROC sets up default values. In addition, 
KEYPROC sets an indication in the AMDSB if 
SPANNED has been specified. KEYPROC also puts the 
address of (lowkey highkey)... from KEYRANGES in the 
DATA CTGFV. If NUMBERED has been specified, 
KEYPROC sets AMDRRDS in the AMDSB field. This 
FPL is being built by KEYPROC. ALLCPROC puts the 
address of dname from FILE and the address of volser 
from VOLUMES in the DATA CTGFV. Volumes are not 
taken from the default model. ALLCPROC builds a 
SPACPARM CTGFL with the primary and secondary 
space information from TRACKS, CYLINDERS, 
BLOCKS, or RECORDS, along with USECLASS. 
ALLCPROC also builds a BUFSIZE CTGFL with 
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information from BUFFERSPACE. The following are 
inserted by ALLOCPROC and PROTPROC: 


ORDERED|UNORDERED 

cipercent and capercent from FREESPACE 

size from CONTROLINTERVALSIZE 

WRITECHECK|NOWRITECHECK 
RECORDFORMAT 

maximum from RECORDSIZE are put in 
the AMDSBCAT CTGFL 


UNIQUE|SUBALLOCATION|NOALLOCATION and 
SPEED|RECOVERY are put in the DSATTR CTGFL. 
ERASE|NOERASE and DOS shareoptions and the 
reserved for OS shareoptions from SHAREOPTIONS are 
put in the DSATTR CTGFL. 


Protection information ts obtained only from the explicit 
MODEL via MDLTABL in order to provide different 
protection at the CLUSTER and DATA. PROTPROC 
builds a PASSWALL CTGFIL with protection 
information from the MODEL as well as an OWNERID 
CTGFL with owner information from the MODEL. 
PROTPROC sets the appropriate bit of the ATTR1 field 
of the DSATTR field to indicate REUSE|NOREUSE. 


On the second pass, called the explicit pass, the following 
occurs: 


If MODEL is not specified under DATA the 
information specified in the DATA parameters overlays 
the information placed in the DATA CTGFYV on the 
implicit pass. 


If MODEL is applied under DATA or a default model 
exists, MODELPRC issues a UCATLG to get 
information from the data catalog entry of the modeled 
data set. The information from the data entry of the 
modeled data set is put in MDLTABL. If the 
DEFAULTVOLUMES parameter is given at either the 
CLUSTER or DATA level, nulify the volume list 
pointer in the MDLTABL. The information in 
MDLTABL overlays the information placed in the 
DATA CTGFYV on the implicit pass. Finally, the 
information in the DATA CTGFYV is overlaid with the 
information specified in the DATA parameters. 


NAMEPROC puts the address of objectname from NAME 
in the DATA CTGFYV. If a reserved name was used at the 
CLUSTER level (““DEFAULT.MODEL.” prefix), the 
DATA qualifier is added from the data component and 
this constructed name is forced. Using a pointer to the 
name of the EXCEPTIONEXIT routine, NAMEPROC 
builds and initializes the EXCPEXIT FPL and references 
it in the FVT field CTGFVEXT. KEYPROC sets the 
AMDSPAN flag of AMDATTR in the AMDSB to 
indicate the SPANNED|NONSPANNED option. 


KEYPROC puts length and offset from KEYS in the 
AMDSBCAT CTGEL. KEYPROC puts the address of 
(lowkey highkey)... range list from KEYRANGES in the 
DATA CTGFV. ALLCPROC puts the address of dname 
from FILE and the address of volser from VOLUMES in 
the DATA CTGFV. Note: the volume serial list is not 
merged with any other volume serial list. ALLCPROC 
also builds or modifies the SPACPARM CTGFL with 
primary and secondary space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS, along with 
USECLASS; the LRECL CTGFL with average from 
RECORDSIZE; and the BUFSIZE CTGFL with size 
from BUFFERSP4.CE. PROTPROC builds or modifies 
the PASSWALL CTGFL with information from 
MASTERPW, CONTROLPW, UPDATEPW, 
READPW, CODE, ATTEMPTS, and 
AUTHORIZATION. PROTPROC also builds or 
modifies the OWNERID CTGEL with ownerid from 
OWNER. The following are inserted by ALLCPROC and 
PROTPROC: 


ORDERED|UNORDERED 

cipercent and capercent from FREESPACE 

size from CONTROLINTERVALSIZE 

WRITECHECK!|NOWRITECHECK 
RECORDFORMAT 

maximum from RECORDSIZE or put in the 
AMDSBCAT CTGFL 


UNIQUE|SUBALLOCATION|NOALLOCATION and 
SPEED|RECOVERY are put in the DSATTR CTGFL. 
ERASE|NOERASE and DOS shareoptions and the 
reserved for OS shareoptions from SHAREOPTIONS are 
put in the DSATTR CTGFL. 










DATA Part of 
CLUSTER MODEL 
(not used if 
MODEL specified 
under DATA) 
















CLUSTER 


CTGEN 





DATA Part of 
DATA MODEL. 


IDCDE02, IDCDE03 


Procedures; DSETPROC, NAMEPROC, KEYPROC, 
ALLCPROC, MODELPROC, IXOPPROC, PROTPROC 


3 An INDEX CTGFV is built if any of the following are 
true: 


INDEXED is specified 
NONINDEXED or NUMBERED is not specified 
The MODEL under CLUSTER is an indexed data set 


In the listings an indexed data set is called a KSDS for Key 
Sequence Data Set. A non-indexed data set is called an 
ESDS for Entry Sequence Data Set. 


DSETPROC sets the identification of INDEXFVT in the 
8 bytes preceding the INDEX CTGFV. The DEFINE 
FSR builds the INDEX CTGFV with the information 
specified in the CLUSTER parameters, which is overlaid 
by the information specified in the INDEX parameters. 
Two passes are performed. 


On the first pass, called the implicit pass, the following 
occurs: 


If MODEL is not specified at the data level, the INDEX 
CTGFV is built with information specified in 
CLUSTER parameters. 


If MODEL is specified under CLUSTER or a default 
model exists for the CLUSTER type (KSDS, RRDS, 
VSAM ESDS, SAM ESDS) and MODEL is not 
specified under INDEX, MODELPRC uses the saved 
Control Interval number for the index entry of the 


| applicable modeled data set to get information from the 


index entry. The information from the index entry of the 
modeled data set is put in MDLTABL. If the 
DEFAULTVOLUMES parameter is given at either the 
CLUSTER or INDEX level, nullify the volume list 
pointer in the MDLTABL. The INDEX CTGFV is built 
with information from MDLTABL and is then overlaid 
by the information specified in the CLUSTER 
parameters. 


NAMEPROC issues a UTIME macro to get the creation 
date which is put ina DSETCRDT CTGFL. 
NAMEPROC also puts the address of objectname from 
NAME in the INDEX CTGFYV. Using a pointer to the 
name of the EXCEPTIONEXIT routine, NAMEPROC 
builds and initializes the EXCPEXIT FPL and references 
itin the FVT field CTGFVEXT. KEYPROC builds a 
AMDSBCAT CTGFL, and ALLCPROC builds a 
DSATTR CTGFL, but no information is put in them yet. 
IMBED|NOIMBED in the AMDSBCAT CTGFL. 
ALLCPROC puts the address of dname from FILE and 
the address of volser from VOLUMES in the INDEX 
CTGFYV. Volumes are not taken from the default model. 
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ALLCPROC also builds a SPACPARM CTGFEL with 
primary and secondary space information from TRACKS, 
CYLINDERS, BLOCKS, or RECORDS, along with 
USECLASS. The following is put in the AMDSBCAT 
CTGFL: 


ORDERED|UNORDERED 
WRITECHECK|NOWRITECHECK 
size from CONTROLINTERVALSIZE 


UNIQUE|SUBALLOCATION|NOALLOCATION is put 
in the DSATTR CTGEL. Record size is not indicated 
because it is always fixed length for the index of a VSAM 
data set. 


Protection information is obtained only from the explict 
MODEL via MDLTABL in order to provide different 
protection at the CLUSTER and INDEX. PROTPROC 
builds a PASSWALL CTGFL with protection 
information from the MODEL as well as a OWNERID 
CTGFL with owner information from the MODEL. 
PROTPROC sets the appropriate bit of the ATTRI field 
of the DSATTR field to indicate REUSE|NOREUSE. 


On the second pass, called the explicit pass, the following 
occurs: 


If MODEL is not specified under INDEX the 
information specified in the INDEX parameters overlays 
the information placed in the INDEX CTGFV on the 
implicit pass. 


If MODEL is specified under INDEX or a default model 
exists, MODELPRC issues a UCATLG to get 
information from the index catalog entry of the modeled 
data set. The information from the index entry of the 
modeled data set is put in MDLTABL. If the 
DEFAULTVOLUMES parameter is given at either the 
CLUSTER or the INDEX level, nullify the volumes list 
pointer in the MDLTABL. The information in 
MDLTABL overlays the information placed in the 
INDEX CTGFYV on the implicit pass. Finally, the 
information in the INDEX CTGFYV is overlaid with the 
information specified in the INDEX parameters. 


NAMEPROC puts the address of objectname from NAME 
in the INDEX CTGFYV. Ifa reserved name was used at the 
CLUSTER level (““‘DEFAULT.MODEL.” prefix), the 
INDEX qualifier is added for the INDEX component and 
this name is forced. Using a pointer to the name of the 
EXCEPTIONEXIT routine, NAMEPROC builds and 
initializes the EXCPEXIT FPL if specified under INDEX. 
IXOPPROC puts REPLICATE|NOREPLICATE and 
IMBED|NOIMBED in the AMDSBCAT CTGEFL. 
ALLCPROC puts the address of dname from FILE and 
the address of volser from VOLUMES in the INDEX 
CTGFV. ALLCPROC also builds or modifies the 
SPACPARM CTGFIL with primary and secondary space 


information from TRACKS, CYLINDERS, BLOCKS, or 
RECORDS, along with USECLASS. PROTPROC builds 


or modifies the PASSWALL CTGFL with information 
from MASTERPW, CONTROLPW, UPDATEPW, 
READPW, CODE, ATTEMPTS, and 
AUTHORIZATION. PROTPROC also builds or 
modifies the OWNERID CTGFL with ownerid from 
OWNER. The following is put in the AMDSBCAT 
CTGEL: 


ORDERED|UNORDERED 
WRITECHECK|NOWRITECHECK 
size from CONTROLINTERVALSIZE 


The following is put in the DSATTR CTGFL: 


| UNIQUE|SUBALLOCATION|NOALLOCATION 


ERASE|NOERASE 


| DOS shareoptions and the reserved for OS shareoptions 


from SHAREOPTIONS 














INDE®N Part of 
CLUSTER MODEL 
(not used if 

MODEL specified 
under INDEX) 
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INDEX 
CTGEV 






INDEX Part of 
INDEX MODEL 


IDCDE03 


Procedures: DSETPROC, IDCDEO1 
4 If UNIQUE is specified, a null VOLUME CTGFYV is 


built. DSETPROC puts the identification VOLUMFVT in 


the 8 bytes preceding the VOLUME CTGFV. The 


VOLUME CTGFV is not initialized because VSAM uses 


the VOLUME CTGFYV for a work area. 


VOLUMEVT|! 










1 
{ 
No Input Volume 
CTGFV 
| 
IDCDEO!1 
Procedure: INTGCHK 


§ Fora VSAM data set two or three CTGFVs have been 


built—one each for cluster, data, and index information. If 


a VOLUME CTGFYV has been built, it does not have any 
information in it because VSAM uses it for a work space. 
The following table shows the possible places where a 
SPACPARM CTGFL may have been built and the action 
INTGCHK takes. 


For an INDEXED data set: 
SPACPARM CTGFL 
Cluster Data Index 

X X X 


Action 


If the data/index space 
parameter did not come from 
a model, this is an error, 
IDCDEO1 terminates the 
DEFINE. 


This is an error; IDCDEOl! 
terminates the DEFINE. 


This is an error; IDCDEOl 
terminates the DEFINE. 


OK; If index level space 
specification is taken from a 
model, nullify it. 


X OK; no action. 
X OK; no action. 


X This is an error; IDCDEO1 
terminates the DEFINE. 


This is an error; IDCDEO! 
terminates the DEFINE. 


For an NONINDEXED data set: 


none none none 


SPACEPARM CTGFL 
Cluster Data Action 
X xX If the data level space parameters are 


from a model, this is an error; 
IDCDEOI terminates the DEFINE. 


xX OK; no action. 
xX OK; no action. 


none none‘ This is an error; IDCDEO1 terminates 


the DEFINE. 


INTGCHK insures that space parameters exist wherever 
USECLASS has been specified, propagated, or modeled. If 
space parameters do not exist, USECLASS is dropped from 
the SPACPARM CTGFL. 


INTGCHK checks the data CTGFYV to be sure that Logical 
Record Length is specified with a LRECL CTGEL. If not, 
one is built with a default average recordsize. Control goes to 
Diagram 3.2, step 4. 
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Diagram 3.2.6. DEFINE FSR — DEFINE ALTERNATE INDEX 


INPUT 


CTGPL 


From Diagram 3.2 





PROCESSING 


1. Builds alternate index CTGFV. 


2. Builds data CTGFV. 


3. Builds index CTGFV. 


4. Builds volume CTGFV if 
UNIQUE 1s specified. 


5. Checks volume information. 


MDTBL 


i 


MDTBL 


MDTBL 


imal 
aa} 


CTGPL 








OUTPUT 


Alternate Index 
CTGFV 





Data 
CTGFV 





Volume 


CTGEV 


CTGFLs 


Data 
CTGELs 


CTGELs 


Wal Jo Aysodoig — [8}19)8J] posussyy] 


uonviedg jo pope ‘7 191deYqD 


69-2 


Extended Description for Diagram 3.2.6 


IDCDE02, IDCDE03 


Procedures: AIXPROC, NAMEPROC, MODELPRC, 
PROTPROC, ALLCPROC 


1. Inthe DEFINE AIX command, you specify information 
under three main keywords: AIX, DATA, and INDEX. 
The DEFINE FSR builds a CTGFV to describe the 
alternate index, data, and index components of the 
alternate index as well as building a VOLUME CTGFYV if 
UNIQUE is specified. Information specified under 
ALTERNATEINDEX goes in the ALTERNATEINDEX 
CTGFV; information under DATA goes in the DATA 
CTGFYV; and information under INDEX goes in the 
INDEX CTGFV. Nothing is put in the VOLUME 
CTGFYV. If not enough information is specified under 
DATA or INDEX to build the DATA or INDEX 
CTGFYV, information fom ALTERNATEINDEX 
completes the DATA or INDEX CTGFYV. If information 
is duplicated under DATA or INDEX and under 
ALTERNATEINDEX—like 
WRITECHECK— information from DATA or INDEX 
overrides the information from ALTERNATEINDEX in 
the DATA or INDEX CTGFYV. The exception is space 
information from TRACKS, CYLINDERS, BLOCKS, or 
RECORDS. This space information is never copied from 
ALTERNATEINDEX. 


Both explicit (MODEL parameter) and implicit (default) 
modeling are supported, but for any one component 
(CTGFVT), explicit and implicit modeling cannot be 
mixed, i.e., explicit models preclude implicit models. 


If MODELS are applied, the information in the command 
overrides the information ina MODEL. A MODEL has 
one catalog entry to describe its alternate index, one entry 
for its data, and one entry for its index. The information in 
a MODEL’s alternate index catalog entry is used to build 
the ALTERNATEINDEX CTGFYV; information in a 
MODELS’s data entry is used to build the DATA 
CTGFYV; and information in the MODEL’s index entry is 
used to build the INDEX CTGFV. The order of 
precedence for any particular parameter when modeling is 
shown below where |! takes the highest precedence: 


ALTERNATEINDEX CTGFV 


|. ALTERNATEINDEX parameters 

2. Cluster object of ALTERNATEINDEX explicit or 
default model 

3. System default 





DATA CTGFV 


1. DATA parameters 

2. DATA explicit model 

3. ALTERNATEINDEX parameters 

4. Data object of ALTERNATEINDEX explicit or 
default model 

5. System default 


INDEX CTGFV 


1. INDEX parameters 

2. INDEX explicit model 

3. ALTERNATEINDEX parameters 

4. Index object of ALTERNATEINDEX explicit or 
default model. 

5. System default 


AIXPROC sets the identification of AIXFVT in the 8 
bytes before the ALTERNATEINDEX CTGFV. If MODEL 
is applied, MODELPRC issues a UCATLG to retrieve 
information from the modeled alternate index. The 
information from the alternate index catalog entry of the 
modeled data set is put in a table. MDLTABL, and the 
control interval number for the data and index entries of the 
modeled data set are saved. MDLTABL contains an address 
and the length of each field of information returned from the 
UCATLG. In building the ALTERNATEINDEX CTGFV, 
information is obtained from MDLTABL and is then overlaid 
with information specified in the ALTERNATEINDEX 
parameters. NAMEPROC issues a UTIME macro to get the 
creation date which is put in an DSETCRDT CTGFL. Ifa 
reserved name (default model name) prefix 
(“DEFAULT.MODEL.”) is used, a check is made for 
additional valid qualifiers. NAMEPROC puts the address of 
objectname from NAME in the CLUSTER CTGFYV. The call 
to NAMEPROC for initialization of the alternate index level 
sets up a pointer to the related name and its password, if any, 
in the CTGFV. ALLCPROC will set the address of the 
recovery volume serial work area in the CTGFVWKA field of 
the alternate index (G) FVT. NAMEPROC builds a 
DSETEXDT CTGFL with the information from TO|FOR. 
PROTPROC builds a PASSWALL CTGFL with information 
from MASTERPW, CONTROLPW, UPDATEPW, 
READPW, CODE, ATTEMPTS, and AUTHORIZATION. 
PROTPROC also builds an OWNERID CTGFIL with 
information from OWNER. The call to PROTPROC in the 
initialization of the AIX FVT inciudes an indication as io 
whether UPGRADE or NOUPGRADE has been specified. 
PROTPROC builds a RGATTR FPL and initializes it 
depending upon the information passed by AIXPROC. If 
neither of these parameters was specified, a default of 
UPGRADE is set in RGATTR. ALLCPROC builds a 
SPACPARM CTGEFL with the primary and secondary space 


| 


| 


information from TRACKS, CYLINDERS, BLOCKS, or 
RECORDS, along with USECLASS. 


CAE 7 


ALTERNATEINDEX 
Patt of ALTERNATEINDEX 


ALTERNATEINDEX CTGFV 


ALTERNATEINDEX 
Model 





IDCDE02, IDCDE03 


Procedures: AIXPROC, NAMEPROC, KEYPROC, 
MODELPRC, ALLCPROC, PROTPROC 


2 AIXPROC sets the identification of DATAFVT in the 8 
bytes preceding the DATA CTGFV. The DEFINE FSR 
builds the DATA CTGFV with the information specified 
in ALTERNATEINDEX parameters. This information is 
then overlaid by the information specified in the DATA 
parameters. Two passes are performed. 


On the first pass, called the implicit pass, the following 
occurs: 


If MODEL is not applied at the data level, the DATA 
CTGFYV is built with the information specified in the 
ALTERNATEINDEX parameters. 


if MODEL is specified under ALTERNATEINDEX or 
a default model exists and MODEL ts not specified 
under DATA, MODELPRC uses the saved control 
interval number for the data entry of the modeled data 
set to get information from the data entry. The 
information from the data entry of the modeled data set 
is putin MDLTABL. If the DEFAULTVOLUMES 
parameter is specified at either the 
ALTERNATEINDEX or the DATA level, nullify the 
volumes list pointer in the MDLTABL. 


The DATA CTGFYV is built with information from 
MDLTABL and is then overlaid by the information 
specified in ALTERNATEINDEX parameters. 


NAMEPROC issues a UTIME macro to get the creation 
date which is put in an DSETCRDT CTGEL. The calls to 
NAMEPROC in the initialization of the DATA FVT for 
an alternate index includes a pointer to the name of the 
EXCEPTIONEXIT routine; NAMEPROC builds and 
initializes the EXCPEXIT FPL and references it in the 
FVT field CTGFVEXT. KEYPROC builds an 
AMDSBCAT CTGFL, and ALLCPROC builds a 
DSATTR CTGFL, but no information is put in them yet. 


KEYPROC puts the /ength and offset from KEYS in the 
AMDSBCAT CTGEL. If no key values have been 
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specified, KEYPROC sets up defaults. KEYPROC also 
puts the address of (lowkey highkey)... from 
KEYRANGES in the DATA CTGFYV. The calls to 
KEYPROC in the construction of the DATA FVT of an 
AIX includes an indication of 
UNIQUEKEY/NONUNIQUEKEY. KEYPROC 
initializes the AMDUNQ flag in the AMDSB to indicate 
the appropriate condition. KEYPROC sets the AMDRKP 
field to a fixed value of X‘0S’ and the AMDAXRKP field 
to the value specified for relative key position. KEYPROC 
sets the AMDSPAN flag in the AMDSB since all alternate 
indexes have the spanned attribute. The AMDSB FPL is 
built by KEYPROC. ALLCPROC puts the address of 
dname from FILE and the address of volser from 
VOLUMES in the DATA CTGFYV. Volumes are not 
taken from the default model. ALLCPROC builds a 
SPACPARM CTGFIL with the primary and secondary 
space information from TRACKS, CYLINDERS, 
BLOCKS, or RECORDS, along with USECLASS. 
ALLCPROC also builds a BUFSIZE CTGFL with 
information from BUFFERSPACE. The following are 
inserted by ALLCPROC and PROTPROC: 


ORDERED|UNORDERED 

cipercent and capercent from FREESPACE 

size from CONTROLINTERVALSIZE 

WRITECHECK|NOWRITECHECK 

maximum from RECORDSIZE and put in the 
AMDSBCAT CTGFL 


UNIQUE|SUBALLOCATION|NOALLOCATION and 
SPEED|RECOVERY are put in the DSATTR CTGFL. 
ERASE|NOERASE, REUSE|NOREUSE, and DOS 
shareoptions and the reserved for OS shareoptions from 
SHAREOPTIONS are put in the DSATTR CTGFL. 


Protection information is obtained only from the explicit 
MODEL via MDLTABL in order to provide different 
protection at the ALTERNATEINDEX and DATA. 
PROTPROC builds a PASSWALL CTGFL with 
protection information from the MODEL as well as a 
OWNERID CTGFIL with owner information from the 
MODEL. 


On the second pass, called the explicit pass, the following 
occurs: 


| If MODEL is not applied under DATA, the information 


specified in the DATA parameters overlays the 
information placed in the DATA CTGFV on the 
implicit pass. 

If MODEL ts specified under DATA or a default model 
exists, MODELPRC issues a UCATLG to get 
information from the data catalog entry of the modeled 
alternate index. The information from the data entry of 


| 


the modeled alternate index is put in MDLTABL. If the 
DEFAULTVOLUMES parameter is given at either the 
ALTERNATEINDEX or DATA level, nullify the 
volume list pointer in the MDLTABL. The information 
in MDLTABL overlays the information placed in the 
DATA CTGFV on the implicit pass. Finally, the 
information in the DATA CTGFV is overlaid with the 
information specified in the DATA parameters. 


NAMEPROC puts the address of objectname from NAME 
in the DATA CTGFYV. If a reserved name was used at the 
alternate level (““DEFAULT.MODEL.” prefix), the 
DATA qualifier is added from the data component and 
this constructed name is forced. KEYPROC puts length 
and offset from the keys in the AMDSBCAT CTGFL. 
KEYPROC puts the address of (lowkey highkey)... from 
KEYRANGES in the DATA CTGFV. ALLCRPOC puts 
the address of dname from FILE and the address of volser 
from VOLUMES in the DATA CTGFYV. Note: the 
volume serial list is not merged with any other volume 
serial list. ALLCPROC also builds or modifies the 
SPACPARM CTGFL with primary and secondary space 
information froom TRACKS, CYLINDERS, BLOCKS, or 
RECORDS, along with USECLASS; the LRECL CTGFL 
with average from RECORDSIZE; and the BUFSIZE 
CTGFL with size from BUFFERSPACE. PROTPROC 
builds or modifies the PASSWALL CTGFIL with 
information from MASTERPW, CONTROLPW, 
UPDATEPW, READPW, CODE, ATTEMPTS, and 
AUTHORIZATION. 


PROTPROC also builds or modifies the OWNERID 
CTGFL with ownerid from OWNER. The following are 
inserted: 


ORDERED|UNORDERED 

cipercent and capercent from FREESPACE 

size from CONTROLINTERVALSIZE 

WRITECHECK|NOWRITECHECK 

maximum from RECORDSIZE are put in the 
AMDSBCAT CTGFL 


UNIQUE|SUBALLOCATION|NOALLOCATION and 
SPEED|RECOVERY are put in the DSATTR CTGFL. 
ERASE|NOERASE, REUSE|NOREUSE, and DOS 
shareoptions and the reserved for OS shareoptions from 
SHAREOPTIONS are put in the DSATTR CTGFL. 















DATA Part of 
ALTERNATEINDEX 
MODEL (not used 

if MODEL 

specified under 
DATA) 


CTGFV 






DATA Part of 
DATA MODEL 


IDCDE02, IDCDE03 


Procedures: AIXPROC, NAMEPROC, KEYPROC, 
ALLCPROC, MODELPROC, IXOPPROC, PROTPROC 


3. An INDEX CTGFV is always built for an alternate index. 


AIXPROC sets the identification of INDEXFVT in the 8 
bytes preceding the INDEX CTGFV. The DEFINE FSR 
builds the INDEX CTGFYV with the information specified 
in ALTERNATEINDEX parameters, which is overlaid by 
the information specified in the INDEX parameters. Two 
passes are performed. 


On the first pass, called the implicit pass, the following 
occurs: 


If MODEL is not specified at the index level, the 
INDEX CTGFV is built with the information specified 
in ALTERNATEIN DEX parameters. 


If MODEL is applied under CLUSTER and MODEL ts 
not specified under INDEX, MODELPRC uses the 
saved control interval number for the index entry of the 
applicable modeled alternate index to get information 
from the index entry. The information from the index 
entry of the modeled alternate index is put in 
MDLTABL. If the DEFAULTVOLUMES parameter is 
specified at either the ALTERNATEINDEX or INDEX 
level, nullify the volume list pointer in the MDLTABL. 
The INDEX CTGFVV is built with information from 
MDLTABL and then overlaid by the information 
specified in the ALTERNATEINDEX parameters. 


NAMEPROC issues a UTIME macro to get the creation 
date which is put ina DSETCRDT CTGEL. The calls to 
NAMEPROC in the initialization of the DATA and 
INDEX FVTs for an alternate index includes a pointer to 
the name of the EXCEPTIONEXIT routine; 
NAMEPROC builds and initializes the EXCPEXIT FPL 
and references it in the FVT field CTGFVEXT. 
KEYPROC builds an AMDSBCAT CTGEL, and 
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ALLCPROC builds a DSATTR CTGFL, but no 
information is put in them yet. IXOPPROC puts 
REPLICATE|NOREPLICATE and IMBED|NOIMBED 
in the AMDSBCAT CTGFL. ALLCPROC puts the 
address of the dname from FILE and the address of volser 
from VOLUMES in the INDEX CTGFYV. Volumes are 
not taken from default model. ALLCPROC also builds a 
SPACPARM CTGEL with primary and secondary space 
information from TRACKS, CYLINDERS, BLOCKS, or 
RECORDS, along with USECLASS. The following is put 
in the AMDSBCAT CTGFL: 


ORDERED|UNORDERED 
WRITECHECK|NOWRITECHECK 
size from CONTROLINTERVALSIZE 


UNIQUE|SUBALLOCATION|NOALLOCATION is put 
in the DSATTR CTGEL. Record size is not indicated 
because it is always fixed length for the index of an 
alternate index. 


Protection information is obtained only from the explicit 
MODEL via MDLTABL in order to provide different 
protection at the ALTERNATEINDEX and INDEX. 
PROTPROC builds a PASSWALL CTGFL with 
protection information from the MODEL as well as a 
OWNERID CTGEL with owner information from the 
MODEL. 


On the second pass, called the explicit pass, the following 
occurs: 


If MODEL is not specified under INDEX, the 
information specified in the INDEX parameters overlays 
the information placed in the INDEX CTGFYV on the 
implicit pass. 


lf MODEL is applied under INDEX or a default model 
exists, MODELPRC issues a UCATLG to get 
information from the index catalog entry of the modeled 
alternate index. The information from the index entry of 
the modeled alternate index is put in MDLTABL. If the 
DEFAULTVOLUMES parameter is specified at either 
the ALTERNATEINDEX or the INDEX level, nullify 
the volumes list pointer in the MDLTABL. The 
information in MDLTABL overlays the information 
placed in the INDEX CTGFYV on the implicit pass. 
Finally, the information in the INDEX CTGFYV is 
overlaid with the information specified in the INDEX 
parameters. 


NAMEPROC puts the address of objectname from NAME 
in the INDEX CTGFV. Ifa reserved name was used at the 
ALTERNATEINDEX level (‘DEFAULT.MODEL.” 
prefix), the index qualifier is added for the INDEX 
component and the constructed name is forced. 
IXOPPROC puts REPLICATE|NOREPLICATE and 


IMBED|NOIMBED in the AMDSBCAT CTGEFL. 
ALLCPROC puts the address of dname fromFILE and the 
address of volserfrom VOLUMES in the INDEX CTGFV. 
ALLCPROC also builds or modifies theSPACPARM 
CTGFIL with primary and secondary space information 
from TRACKS,CYLINDERS, BLOCKS, or RECORDS, 
along with USECLASS. PROTPROC builds ormodifies 
the PASSWALL CTGFL with information from 
MASTERPW, CONTROLPW, UPDATEPW, 
READPW, CODE, ATTEMPTS, and 
AUTHORIZATION. PROTPROC also builds or 
modifies the OWNERID CTGFL with ownerid from 
OWNER. The following is put in the AMDSBCAT 
CTGFL: 


ORDERED|UNORDERED 
WRITECHECK|NOWRITECHECK 
size from CONTROLINTERVALSIZE 


The following is put in the DSATTR CTGFL: 


UNIQUE|SUBALLOCATION|NOALLOCATION 
ERASE|NOERASE 

REUSE|NOREUSE 

DOS shareoptions and the reserved for OS shareoptions 
from SHAREOPTIONS 


INDEX Part of 


ALTERNATEINDEX 
MODEL (not 

used if MODEL 
specified under 


INDLX) 







ALTERNATEINDEX 


CTGFV 






INDEX Part of 
INDEX MODEL 







INDEX 


IDCDE03 
Procedures: AIXPROC 


4 If UNIQUE is specified, a null VOLUME CTGFYV is 
built. AIXPROC puts the identification VOLUMFVT in 
the 8 bytes preceding the VOLUME CTGFV. The 
VOLUME CTGFYV is not initialized because VSAM uses 
the VOLUME CTGEFYV for a work area. 


VOLUMEVT! 


No [nput 





IDCDEO1 
Procedure: INTGCHK 


5 For an alternate index two or three CTGFVs have been 


built—one each for alternate index, data, and index 
information. Ifa VOLUME CTGFV has been built, it 
does not have any information in it because VSAM uses it 
for a work space. The following table shows the possible 
places where a SPACPARM CTGFL may have been built 
and the action INTGCHK takes. 


SPACPARM CTGFL 


Alternate 
Index Data Index 


Xx xX X 


Action 


If the data/index 
Space parameters 
did not come from a 
model, this is an 
error; IDCDEOl! 
terminates the 
DEFINE. 


This is an error; 
IDCDEO! 
terminates the 
DEFINE. 


This is an error; 
IDCDEO! 
terminates the 
DEFINE. 


OK; If index level 
space specification 
is taken from a 
model, nullify it. 


X OK; no action. 
x OK; no action. 


X This is an error; 
IDCDEO! 
terminates the 
DEFINE. 


This is an error; 
IDCDE0!1 
terminates the 
DEFINE. 


INTGCHK checks the data CTGFV to be sure that logical 
record length is specified with a LRECL CTGFL. If not, 
an LRECL CTGFL is built with the default average 
recordsize. Control goes to Diagram 3.2, step 4. 


none none none 
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Diagram 3.2.7. DEFINE FSR — DEFINE PATH 


From Diagram 3.2 


INPUT PROCESSING 


1. Builds Path-CTGEV. 





OUTPUT 


CTGFLs 
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Extended Description for Diagram 3.2.7 


IDCDE02, IDCDE03 


Procedures: PATHPROC, NAMEPROC, MODELPRC 
PROTPROC, ALLCPROC 


1 Inthe DEFINE PATH command, you specify information 
under one main keyword: PATH. The DEFINE FSR 
builds a CTGFV to describe the path. Information 
specified under PATH goes in the PATH CTGFV. 


If MODEL is specified, the information in the command 
overrides the information in a model. A model has one 
catalog entry to describe its path. The information in a 
model’s path catalog entry is used to build the PATH 
CTGFV. 


PATHPROC checks for a MODEL keyword under 
PATH. If MODEL is specified, MODELPRC issues a 
UCATLG to retrieve information from the modeled 
VSAM data set. The information from the path catalog 
entry of the modeled data set is put in a table, 
MDLTABL. MDLTABL contains an address and the 
length of each field of information returned from the 
UCATLG. In building the PATH FVT, information is 
obtained from MDLTABL and is then overlaid by 
information specified in the PATH parameters. 


PATHPROC sets the identification of PATHFVT in the 8 
bytes before the PATH CTGFV. NAMEPROC issues a 
UTIME macro to get the creation date which is put in a 
DSETCRDT CTGFL. NAMEPROC puts the address of 
objectname from NAME in the PATH CTGFYV. 
NAMEPROC is supplied with the address necessary to 
reference the PATHENTRY name and places its address 
in CTGFVNAM. The password of the PATHENTRY is 
referenced from CTGFVPWD. NAMEPROC builds a 
DSETEXDT CTGFIL with the information from 
TO|FOR, PROTPROC builds a PASSWALL CTGFL 
with information from MASTERPW, CONTROLPW, 
UPDATEPW, READPW, CODE, ATTEMPTS, and 
AUTHORIZATION. PROTPROC also builds an 
OWNERID CTGFL with information from OWNER. 
The call to PROTPROC in the construction of the PATH 
FVT includes the UPDATE|NOUPDATE indication for a 
path. PROTPROC builds the RGATTR FPL and 
references it in the PATH FVT field CTGFVUPG. If 
neither of these parameters was specified, a default of 
UPDATE is set in the RGATTR. ALLCPROC sets the 
address of the recovery volume serial work area in the 
CTGFVWKA field of the PATH FVT. The CTGFVTYP 
field of the PATH FVT is set to R. 
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Diagram 3.3. DELETE FSR 


INPUT 


Register | 








VSAM 
Catalog 


NonVSAM Data Sets, 
VSAM Data Space, 
VSAM Unique Data Set 


= 


po 





From Executive 
Controlled Termination 


PROCESSING OUTPUT 


1. Initializes. 


2. For each item to be deleted: CTGPL CTGFL 


a. Gets entry type. 


b. Builds CTGPL. 


c. Deletes entry. 





VSAM 


Catalog 





Message 
3. Writes message. 


Register | 


4GDT 
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IDCDL01 
Procedures: CLEANUP, IDCDLO1 


3 Ifacatalog was opened by CATOPEN, CLEANUP closes 
the catalog with a UCLOSE macro. IDCDLO1 prints a 
message with LASTCC. Control goes to Executive 
Controlled Termination, Diagram 4.1. 


Extended Description For Diagram 3.3 
IDCDL01 
Procedure: CATOPEN 


1 Ifa CATALOG is specified, CATOPEN builds an 
OPNAGL and issues a UOPEN to open the catalog. If the 
catalog does not open, CATOPEN prints an error message 
and the DELETE command is terminated. If the return 
code from UOPEN is zero, CATOPEN compares the data 
set name returned by UOPEN (in IOCDSN) to the name 
specified in the CATALOG parameter. If the compare is 
ieecual: a message is sie and the DELETE ppeanlieee c. CATCALL deletes the entryname by issuing a 


address if CATALOG is specified. BUILDCPL also 
puts the address of a work area needed by VSAM in 
the CTGPL. The work area passed to catalog 
management is set initially to a size large enough to 
contain twelve names. BUILDCPL puts the address of 
the entry name and the address of the entry password 
in the CTGPL. If the entry type is nonVSAM and 
neither SCRATCH or NOSCRATCH is specified, 
BUILDCPL sets SCRATCH in the CTGPL. If the 
entry was located from the catalog, BUILDCPL puts 
the entry type in the CTGPL. 


; se etad: UCATLG macro with the CTGPL built by 
rerun BUILDCDPL. If the return code is zero, VSAM has 
' sol returned a list of deleted objects. CATCALL writes the 


name of each deleted object in the entry with a 
UPRINT macro. Control is given to step 2. If the 
return code is 160, the entry type is SPACE and the 
space was deleted, but the volume entry in the catalog 
could not be removed because there are still some 
VSAM data sets on the volume. This is not a DELETE 
error so the condition code to the user is zero, but 
CATCALL writes an explanatory message. 


Procedures: FINDTYPE, BUILDCPL, CATCALL, 
MORESP, IDCDL0! 


2 The following steps are performed for each entryname to 
be deleted. Control goes to step 3 to terminate the 
command when all entrynames have been deleted or a 
serious error is encountered. 


a. Ifthe entry type is not specified in the command, 
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FINDTYPE builds a CTGPL and CTGFL in which 
VSAM returns the entry type. FINDTYPE initializes 
the CTGPL and CTGFL once for the entire DELETE 
command, and they are used over and over for each 
entryname. FINDTYPE issues a UCATLG macro to 
locate the entry type. If the return code is nonzero, 
FINDTYPE builds an error conversion table and 
invokes the UERROR macro to print a message, but 
the rest of the DELETE command is processed. 


PARAMCHK checks for invalid or insufficient 
parameters which were not checked by the 
Reader/Interpreter. The Reader/Interpreter cannot do 
all the necessary parameter checking if the user has not 
specified the entry type or if the entry type is 
NONVSAM. If there is an invalid parameter, 
PARAMCHK writes an error message, but the rest of 
the DELETE command is processed. 


. BUILDCPL builds a CTGPL to delete the entry. 


BUILDCPL initializes the CTGPL once for the entire 
DELETE command, and it is used over and over for 
each entryname. BUILDCPL puts the following 
information in the CTGPL: the address of the 
entryname, the address of the dname, type of entry if 
specified on the command, PURGE|NOPURGE, 
ERASE|NOERASE, FORCE|NOFORCE, 
SCRATCH|NOSCRATCH, address of a password if 
specified, and the address of the catalog name or ACB 


A return code of 40 indicates that insufficient space 
remains in the work area to contain the names 
associated with the next structure segment to be deleted 
(e.g. an alternate index with its associated data, index 
and path names). Catalog management services has 
placed in the work area the names of those objects 
successfully deleted thus far, plus a factor indicating 
the amount of space necessary for the next structure. 
Should catalog give a return code of 40, CATCALL 
calls MORESP. MORESP sets the CTGOVRID bit to 
1 and the CTGERASE bit to 0 to prevent CMS from 
re-erasing the object being deleted. MORESP prints 
the names of those entries deleted thus far and 
calculates whether the current work area size can 
contain the next segment to be deleted. If enough space 
is available, the work area is reset to zero; otherwise the 
current work area is freed with a UGPOOL call 
(provided that it is not PL/S automatic storage) and a 
large enough work area obtained with a UGPOOL 
call. If the return from UGPOOL is nonzero, a 
message is written and control returns to Step 2 for the 
next entry. Otherwise, MORESP reissues the 
UCATLG macro with the same entry name. This 
process continues until the entire structure has been 
deleted or a terminating error occurs. If the return code 
from UCATLG is not 40 or 160 an error message is 
printed by building an error conversion table and 
invoking the UERROR macro. 


9L-% 


SIZO] SOOIAIOg POMPE] 88900W WWSA/HSA 


Diagram 3.4. EXPORT FSR 


INPUT 


Register 1 


VSAM User 
Catalog or 
VSAM Data 








From Executive 
Controlled Termination 


PROCESSING 





1. Tests for type of export. 
a. Exports a VSAM user catalog. 
b. Exports a cluster. 


See Diagram 


2. Writes message. 


CTGPL 


Register 1 
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Extended Description for Diagram 3.4 


IDCXP01 


Procedures: IDCXP01, DELTPROC, LOCPROC, 
CTLGPROC, OPENPROC, PUTPROC, CLUSPROC 


1 IDCXPOI tests the FDT for DISCONNECT in the 
EXPORT command. Step 1.a is done if DISCONNECT is 
specified, or step 1.b is done if DISCONNECT is not 
specified. 


a. DELTPROC builds a CTGPL to delete the user 
catalog entry in the VSAM catalog. DELTPROC 
issues a UGPOOL for a work area in which VSAM 
puts deleted names. If a password is supplied, 
LOCPROC puts it in the CTGPL. CTLGPROC 
deletes the user catalog entry by issuing a UCATLG 
macro with the CTGPL. If the return code is 40, the 
work area addressed from the CTGPL is too small. 
The former work area is released with a UFPOOL, and 
the returned size of the work area needed is used with a 
UGPOOL to get another work area. If the new work 
area is obtained, another UCATLG macro is issued. If 
the return code from the first UCATLG is nonzero and 
not 40, or if the return code from the second UCATLG 
is nonzero, an error message is written by building an 
error conversion table and issuing the UERROR 
macro. 


b. LOCPROC gets catalog information about the cluster 
or alternate index, data, index, and path entries for the 
VSAM data set. OPENPROC opens the portable data 
set for output. PUTPROC writes catalog information 
and data records on the portable data set. CLUSPROC 
closes the portable data set and processes the 
disposition options, TEMPORARY|PERMANENT. 
Refer to Appendix A for a description of the portable 
data set. Diagram 3.4.1 shows exporting a cluster or 
alternate index in detail. 


IDCXP01 
Procedure: IDCXP01 


2 IDCXPOI writes a message with LASTCC. Messages 
listing the exported catalog or VSAM data set are written. 
IDCXP01 closes any open data sets with the UCLOSE 
macro. Control goes to Executive Controlled Termination, 
Diagram 4.1. 
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Diagram 3.4.1. EXPORT FSR — CLUSTER or ALTERNATEINDEX 


From Diagram 3.4 





INPUT PROCESSING OUTPUT 
l CTGPL 
« Obtains information for cluster CTGFLs 
ey: (base cluster or alternate index ed 
cluster), data, and index. ee 


VSAM 


Catalog 


VSAM 
Data Set Portable Data Set 


he Opens portable data set. 
Portable Data Set 


3. Obtains information for associated 
paths to the cluster. .Writes it to the 
portable data set. Writes catalog 


SS 


information. 


4. Writes data records. 






5. Closes portable data set. CTGPL 
CTGFV 
6. Processes disposition options. mene CTGFLs 
VSAM 
Catalog 


VSAM 
Data Set 
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Extended Description for Diagram 3.4.1 


IDCXP01 


Procedures: LOCPROC, CTLGPROC, IDCXPOI, 
CLUSPROC 


1 For the cluster or alternate index entry of the VSAM data 
set, LOCPROC builds a CTGPL and CTGFLs to retrieve 
information from the VSAM catalog. One CTGFL is built 
for each of the following pieces of information: 


Entry type 

Entry name 

Data set attributes 

Data set owner 

Data set creation date 
Data set expiration date 
Password 

Password prompting 
Password attempts 
User module name 
User module area 
Space infomation 
Buffer size 

Logical record length 
Low key on volume 
High key on volume 
AMDSSB control block 
Exception exit 
Alternate index and path attributes 
Type and name of associated objects 
Catalog ACB 


CTLGPROC issues a UCATLG with the CTGPL and 
CTGFLs to retrieve the information from the catalog. If 
the work area is too small, CTLGPROC will enlarge it and 
reissue the UCATLG. If the LOCATE fails for a reason 
other than the work area is too small, an error message is 
written by building an error conversion table and issuing 
the UERROR macro. This processing occurs for all 
UCATLG requests issued by CTLGPROC. CLUSPROC 
tests to be sure that the type of catalog entry is a cluster or 
an alternate index. If it is not, an error message is written 
and the VSAM data set is not exported. Information is 
requested on all the fields even if the information is not 

available in the cluster or alternate index entry because 
VSAM ignores requests for fields that do not apply for this 
entry. 


LOCPROC builds a CTGPL and CTGFLs for the data 
entry of the VSAM data set. CTGFLs are built for each 
piece of information in the above list except the last two, 
type and name of data and index entry, and Catalog ACB. 
The Control Interval of the data entry is used to find the 
data entry. CTLGPROC issues a UCATLG with the 


CTGPL and CTGFLs to retrieve the information from the 
catalog. If the work area is too small, CTLGPROC 
enlarges it and reissues the UCATLG. The returned 
information is saved. After retrieval of the data entry 
information, CLUSPROC examines the data set attributes 
to determine if the object has been flagged as not usable. If 
sO, an error message is written and the VSAM data set is 
not exported. The data component maximum recordsize 
(RECORDMODE) or control interval size (CIMODE) is 
extracted from the AMDSB for use as the maximum 
recordsize value for the portable data set. CLUSPROC 
examines the data component AMDSB for 
NOCIFORMAT SAM ESDS. If NOCIFORMAT SAM 
ESDS, an error message is written and the command is 
terminated. CLUSPROC tests for SAM ESDS and for the 
SAM ESDS feature. If SAM ESDS with the SAM ESDS 
feature is not installed, an error message is written and the 
command is terminated. 


The processing in the above paragraph (except for the data 
component AMDSB processing) is repeated for the index 
entry. 


CLUSPROC determines if the object being exported is an 
alternate index. If so, LOCPROC builds a CTGPL and 
CTGFLs for the base cluster associated with the alternate 
index. CTFGLs are built for entry type and entry name. 
CTLGPROC issues a UCATLG to retrieve this 
information. The entry name will be written to the 
portable data set as the related name. 


IDCXP01 
Procedure: OPENPROC 


2 


OPENPROC builds an OPNAGL and issues a UOPEN to 
open the portable data set for output. User specified tape 
label and rewind options are placed in the OPNAGL for 
UOPEN processing. If the return code is nonzero, an error 
message is written and the VSAM data set is not exported. 
Refer to Appendix A for a description of the portable data 
set. 


IDCXP01 
Procedures: CLUSPROC, PUTPROC, CONTRBL 


3 


CONTRBL constructs a dictionary for each CTGPL. The 
CTGFLs contain information returned by VSAM. Ifa 
fixed length field has no information, VSAM puts all 
binary ones in the CTGFL where the information would 
have been. If a variable length field has no information, 
VSAM puts zeros in the two byte length field that preceeds 
the field in the CTGFL where the information would have 
been. CONTRBL always turns off the temporary export 


flag and the inhibit update flag in the exported DSATTR 
CTGFL. If INHIBITTARGET is specified, a flag is set in 
the portable data set timestamp record so IMPORT can 
process INHIBITTARGET. If export CIMODE is 
specified, a flag is set in the portable data set timestamp 
record so IMPORT can process CIMODE-format data. 
Flags are also set in the timestamp record when SAM 
ESDS and NOALLOCATION files are exported. 
PUTPROC writes the dictionary followed by the 
information from the CTGFLs. If the length of the 
dictionary or catalog information is greater than the 
logical record length for the portable data set, PUTPROC 
writes the dictionary or catalog information in segments. 
PUTPROC writes the records with a UPUT macro. Refer 
to Appendix A for the format of the portable data set. After 
the catalog information pertaining to the cluster or 
alternate index and associated data and index objects has 
been written to the portable data set, CLUSPROC obtains 
information regarding all paths which have been defined 
over the object being exported. For the first path 
association LOCPROC builds a CTGPL and CTGFLs to 
retrieve the information from the VSAM catalog. 
CTGFLs are built for the same pieces of information as 
for the data and index objects. CTLGPROC issues a 
UCATLG to retrieve the information which is then 
written to the portable data set. In addition, the name of 
the cluster or alternate index being exported and its 
password are written to the portable data set as the 
PATHENTRY name and PATHENTRY password. 
CONTRBL is called to construct the portability record. 
CLUSPROC retrieves information for all the remaining 
path associations and then writes it to the portable data set 
using the same CTGPL and CTGFLs which were set up 
for the first path association. Prior to calling CTLGPROC 
for each, the work area is cleared and the control interval 
number of the next associated path is placed in the 
CTGPL. 


IDCXP01 
Procedures: RECPROC, LOCPROC, OPENPROC 
4 RECPROC calls OPENPROC to open the VSAM data set 


with a UOPEN macro and issues a UCOPY to copy all the 
records to the portable data set. RECPROC issues a 
UCLOSE to close the VSAM data set. Following a 
successful open, RECPROC compares the data set name 
returned by UOPEN to that specified by the caller as the 
entry name in the EXPORT command. If the compare is 
unequal, LOCPROC builds a CTGPL and CTGFLs to 
perform a LOCATE on the name returned by UOPEN. 
CTGFLs are built for ENTYPE and NAMEDS. 
CTLGPROC issues a UCATLG macro. If the ENTYPE 
returned is not that of a path, an error message is written 
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and the command is terminated. If the ENTYPE is that of 
a path, a second LOCATE is performed using the control 
interval number of the pathentry object. A CTGFL is built 
for ENTNAME by LOCPROC and a UCATLG macro 
issued by CTLGPROC. If the name returned is not equal 
to the entry name specified in the EXPORT command, a 
message is written and the command terminated. 


When exporting a relative record data set in export 
RECORDMODE, the relative record number of each 
record written to the portable data set is placed by 
UCOPY in a 4-byte area immediately preceding the 
record itself. OPENPROC triggers this processing by 
setting the Export/Import flag in the OPNAGL of the 
input data set. 


OPENPROC triggers CIMODE processing of data (by 
UCOPY) by setting the “export CIMODE” flag and the 
“CNV processing” flag in the OPNAGL of the input data 
set. 


IDCXP01 
Procedure: CLUSPROC 


§ CLUSPROC issues a UCLOSE to close the portable data 
set. 


IDCXP01 


Procedures: DELTPROC, CLUSPROC, CTLGPROC, 
ALTRPROC, MORESP 


6 If PERMANENT is specified, DELTPROC builds a 
CTGPL. If ERASE or PURGE is specified DELTPROC 
sets up the proper flags in the CTGFL. DELTPROC 
issues a UCATLG macro to delete the VSAM data set 
from the VSAM catalog. If the DELETE fails, an error 
message is written by building an error conversion table 
and issuing the UERROR macro. The names of all deleted 
entries are printed. If the VSAM catalog return code is 40, 
MORES? is called to get a larger work area and to finish 
deleting the object. 


If TEMPORARY is specified, the temporary export field 
must be turned on in the catalog entry. ALTRPROC 
modifies the existing CTGPLs, builds a CTGFV, and 
modifies the existing CTGFLs for the fields that need to 
be changed in the VSAM catalog. The temporary export 
flag and, if INHIBITSOURCE is specified, the inhibit 
update flag is set in the DSATTR CTGFL. An 
ENTNAME CTGFL for the entryname is also built. 
ALTRPROC places the address of the dname specified in 
the INFILE parameter in the CTGFV for catalog recovery 


purposes. 


CTLGPROC issues one UCATLG for the data entry and 
one UCATLG for the index entry if it exists. The data set 
attributes field does not appear at the cluster or alternate 
index entry. Control returns to Diagram 3.4, step 2. 
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Diagram 3.5. IMPORT FSR 


INPUT 


Register | 





Portable Data Set 


= 


VSAM 
Catalog 











VSAM 
User Catalog 





From Executive 
Controlled Termination 


PROCESSING 


catalog or VSAM cluster. 


a. Imports user catalog. 


b. Imports cluster or 
alternate index. 
See Diagram 


2. Writes message. 


1. Tests for IMPORT of user 


ols 





OUTPUT 


VSAM 


VSAM 





Register | 


LASTCC 


Catalog 


Catalog 


VSAM 
Cluster 








or AIX 
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Extended Description for Diagram 3.5 


IDCMP01 


Procedures: OPENPROC, IDCMPOI, CLUSPROC, 
FVTPROC, CPLPROC, CNCTPROC, LVLRPROC, 
CTLGPROC, RECPROC, ALTRPROC 


1 IDCMPO0I tests the FDT for the CONNECT keyword in 
the IMPORT command to determine if a VSAM data set 
ora VSAM catalog is being imported. If CATALOG is 
specified, it is not opened because the catalog is assumed 
to be the job catalog or master catalog and the operating 
system has opened it. If CONNECT is specified, a VSAM 
user catalog is being imported, and step !.a is done. If 
CONNECT is not specified, a VSAM data set is being 
imported, and step |.b is done. 


a. The following is repeated for every objectname in 
OBJECTS. (More than one user catalog can be 
imported with one IMPORT command.) CNCTPROC 
builds a CPL and an FVT for the connect operation. 
LVLRPROC builds a DEVTYPE CTGFL from the 
DEVICETYPES in the command. LVLRPROC builds 
a volume list from VOLUMES and puts the address of 
the volume list in the CTGFV. CNCTPROC puts the 
address of the objectname from OBJECTS in the 
CTGFV. If the objectname contains the reserved 
default model prefix, an error message is written and 
control goes to step 2. If no objectname is specified, an 
error message is written, and the catalog is not 
imported. The operation type field in the CTGFV is set 
to ‘A’ to indicate a catalog connect. CNCTPROC 
issues a UCATLG to connect the catalog. If the return 
code is nonzero, an error message is written by 
building an error conversion table and issuing the 
UERROR macro. When all the catalogs have been 
connected, control goes to step 2. 


b. OPENPROC opens the portable data set. CLUSPROC 
writes the time of export with a UPRINT macro. 
CLUSPROC uses the catalog information in the 
portable data set to “define” the VSAM data set. 
OPENPROC opens the VSAM data set and 
RECPROC copies the data records from the portable 
data set to the VSAM data set. If INHIBITTARGET 
was specified when the VSAM data set was exported, 
ALTRPROC alters the catalog entry for the VSAM 
data set. Refer to Appendix A for the format of the 
portable data set. 


IDCMP01 
Procedure: IDCMP01 
2 Based on the return code from CLUSPROC or 


CNCTPROC, IDCMPO1 sets the value for LASTCC. If 
LASTCC is less than 12, a completion message (with 
LASTCC) is written; otherwise a termination message 
(with LASTCC) is written. Control goes to Executive 
Controlled Termination. 
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Diagram 3.5.1. IMPORT FSR — CLUSTER or ALTERNATEINDEX 


INPUT 
Portable Data Set 


VSAM 
Catalog 





From Diagram 3.5 





PROCESSING 


1. Opens portable data set. 
2. Writes time of export. 


3. Builds catalog parameter lists. 


4, Defines cluster or alternate 
index and any associated paths. 


5. Copies data. 
« Closes portable data set. 


qe Processes INHIBITTARGET. 


CTGFVs 


CTGFLs 





OUTPUT 





Message 








VSAM 
Catalog 


VSAM 
Data Set 
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Extended Description for Diagram 3.5.1 


IDCMP01 
Procedures: OPENPROC, IDCMP0O1 


1 


OPENPROC builds an OPNAGL and issues a UOPEN to 
open the portable data set. User specified tape label and 
rewind options are placed in the OPNAGL for VOPEN 
processing. The portable data set was created by an 
EXPORT command and contains catalog information and 
data records for the VSAM data set that was exported. 
Refer to Appendix A for the format of a portable data set. 
If the return code is nonzero, IDCMPO! writes a message. 
If the portable data set is open, IDCMPO1 issues a 
UCLOSE to close the data set, and the IMPORT 
command is terminated. 


IDCMP01 
Procedures: CLUSPROC, MSGPROC 


2 


CLUSPROC gets the first record of the portable data set 
which contains the date and time the portable data set was 
created by the EXPORT FSR. (The record contains flags 
indicating whether EXPORT specified 
INHIBITTARGET and CIMODE or RECORDMODE.) 
MSGPROC writes the date and time with a UPRINT 
macro. 


IDCMP01 


Procedures; CLUSPROC, CPLPROC, FVTPROC, 
BFPLPROC, BPASPROC, IUNIQPRC, LVLRPROC, 
RANGPROC, DVOLPROC, DVOLCHK 


3 The information for catalog parameter lists comes from 


three places, the portable data set’s copy of the previous 
catalog entry, the IMPORT command, and both the 
portable data set and the IMPORT command. 


a. CLUSPROC via CPLPROC builds a CTGPL for a 
define operation. CLUSPROC issues a UGET macro 
to read the first catalog record in the portable data set. 
The catalog record contains the size of the data record 
that follows. FVTPROC builds from 2 to 3 CTGFVs, 
one each for the cluster or alternate index entry and its 
associated data and index entries. FVTPROC obtains 
the data set maximum logical record size 
(RECORDMODE) or control interval size (CIMODE) 
from the data component AMDSBCAT CTGFL and 
passes it to the I/O adapter via a function of the 
UCLOSE macro that allows a larger work-area data 
buffer. The value obtained becomes the portable data 
set maximum logical record size. FVTPROC tests the 
AMDSB for SAM ESDS and for the SAM ESDS 


feature. If SAM ESDS with the SAM ESDS feature is 
not installed, an error message is written and the 
command is terminated. BFPLPROC builds CTGFLs 
with information from the portable data set. The 
exception is the PASSWALL CTGFL which is built by 
BPASPROC. If the exported VSAM data set was 
UNIQUE, IUNIQPRC builds a CTGFV for volume 
information. No data is put in the volume CTGFV. If 
the object being imported is an alternate index, the 
related name (given in the RELATE parameter) is 
passed via the alternate index (G) FVT. A work area 
for the return of the catalog recovery volume serial 
number, if any, is passed via the cluster or alternate 
index FVT. 


. CLUSPROC puts the address of the optional dname 


from OUTFILE on the IMPORT command in the 
cluster CTGFV. LVLRPROC puts the address of the 
volser ... list from VOLUMES in the CTGFV for the 
objectname in the OBJECTS parameter. Information 
about VOLUMES is available in the portable data set 
and is used unless superceded by the VOLUMES or 
DEFAULTVOLUMES subparameter. 


If USECLASS (OBJECTS parameter) is specified for 
an objectname, CLUSPROC changes the SPACPARM 
CTGFL(s) for the objectname. If objectname is cluster 
or alternate index, data and index (if present) 
SPACPARM CTGFLs are changed. If objectname is a 
data or index component, only the component 
SPACPARM CTGEL is changed. 


If ORDERED|UNORDERED is specified for a 
particular objectname, CLUSPROC changes the 
AMDSBCAT CTGEFEL for the objectname. If 
KEYRANGES is specified for the index object, 
RANGPROC builds a list of key ranges and puts the 
address of the key range list in the CTGFV. If 
NEWNAME is specified for a particular object, 
CLUSPROC puts the address of the new name in the 
particular CTGFV. If the NEWNAME is a reserved 
default model name, an error message is issued and the 
command terminates. 


If DEFAULTVOLUMES is specified for a particular 
objectname, DVOLPROC builds an empty volume list 
CTGFL attached to the object CTGFV, unless 
VOLUMES has already been specified for the object 
or at the cluster level. If VOLUMES or 
DEFAULTVOLUMES occurs at the cluster level, data 
and index volume list CTGFL pointers are nullified. 
After OBJECTS parameter processing completes, 
CLUSPROC propagates the cluster level volume list 
CTGFL to the data and index CTGFLs if they contain 
null volume list CTGFL pointers. DVOLCHK is 


called to ensure that no file with the unique attribute or 
object with the ordered attribute contains an empty 
(DEFAULTVOLUMES) volume list CTGFL and to 
determine if a DEFAULTVOLUMES specification 
was totally superceded by a VOLUMES specifications 
(warning condition). 


Data from the IMPORT command overrides data from 
the portable data set. 


IDCMP01 


Procedures: CTLGPROC, CPLPROC, CLUSPROC, 
DELTPROC, DUPNPROC 


4 a, CTLGPROC issues a UCATLG macro to define the 
VSAM data set. If the return code is 40, the work area 
for VSAM catalog management is increased and the 
UCATLG is reissued. If the return code is 8, control 
goes to step 4b. Otherwise, control goes to step 4c. 


b. A duplicate cluster name exists on the VSAM catalog. 
CPLPROC builds a CTGPL to locate the catalog entry 
to determine if the duplicate cluster had a temporary 
EXPORT done against it or if it is an empty data set. 
DUPNPROC builds DSATTR, HURBADS and 
AMDSBCAT CTGFELs to obtain the data set attribute 
information, the high-used RBA and the AMDSB 
control block of the data component. If the temporary 
export flag is not on in either the data or index or the 
data set is not empty, the IMPORT is terminated. If the 
data set is empty, checks are made to insure that the 
data set organization, data length, and relative key 
position in the catalog entry are the same as those 
which were exported; that the maximum VSAM 
LRECL of the catalog catalog entry is greater than or 
equal to that of the export data set; that the 
RECORDFORMAT characteristics (AMDRCFRM) 
and SAM LRECL value (AMDBLREC) in the catalog 
entry are the same as those which were exported if the 
data sets are ESDS. If any of these conditions are not 
met, a message is written and the IMPORT is 
terminated. If the OBJECTS parameter was specified 
for the empty data set, a warning message is issued. 
Control then goes to step 4.c. If the temporary export 
flag is on, CPLPROC builds a CTGPL to delete the 
duplicate VSAM data set. If ERASE|NOERASE or 
PURGE|NOPURGE is specified, CPLPROC puts the 
information in the CTGPL so that VSAM will take the 
appropriate action. DELTPROC issues a UCATLG 
macro to delete the object. Then CTLGPROC reissues 
the UCATLG macro to define the VSAM data set. If 
the UCATLG return code is nonzero, CTLGPROC 
issues an error message by building an error conversion 
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table and invoking the UERROR macro, and the 
IMPORT is terminated. 


c. Ifarecovery volume serial is returned for the define, a 
UPRINT macro is issued to print it. If the successful 
DEFINE was for a unique data set on a fixed block 
device, a message is printed for each volume indicating 
the actual blocks allocated for that volume. 


If the cluster or alternate index exported had any 
associated paths defined over it, the catalog entries for 
these paths were also exported. CLUSPROC processes 
the catalog information for each path in a manner 
similar to that described in step 3.a. The 
PATHENTRY name and password, if any, are passed 
for the path (R) FVT. The only subparameter of the 
OBJECTS parameter used for path objects is 
NEWNAME. If the NEWNAME is a reserved default 
model name, error messages are issued and the path is 
bypassed for import. If NEWNAME is omitted and 
any other subparameter is specified, an invalid 
OBJECTS parameter message is written, LASTCC is 
set to 8, and that path is not defined. CTLGPROC 
issues a UCATLG macro to define each path. If the 
return code from UCATLG 1s nonzero, a message is 
written by building an error conversion table and 
invoking UERROR, and LASTCC is set to 8. 
However, the IMPORT is not terminated. 
CLUSPROC ensures that all OBJECTS parameter 
objectnames have corresponding component|path 
names. Warning messages are printed for any 
mismatches, and LASTCC is set to the current value of 
LASTCC or 4, whichever is greater. 


processing uses this relative record number in writing the 
records to the output data set. OPENPROC sets the 
Export/Import flag in the OPNAGL of the output data set 
to indicate to UCOPY that this is to be done. 


Following a successful open if the OUTFILE parameter 
was specified RECPROC compares the name specified via 
the OUTFILE parameter to the name of the object 
exported. If the compare is unequal, RECPROC builds a 
CTGPL and CTGFLs and issues a UCATLG macro to 
locate the entry type and associations of the name 
specified via OUTFILE. If the entry type returned is that 
of a path, RECPROC builds a CTGPL and CTGFL and 
issues a UCATLG macro to locate the entry name of the 
pathentry association (alternate index or cluster) and 
compares the name returned from the Locate to the name 
of the object exported. If the verification fails, a message is 
written and the IMPORT is terminated. 


IDCMP01 
Procedure: CLUSPROC 


6 CLUSPROC issues a UCLOSE to close the portable data 
Set. 


IDCMP01 
Procedures: ALTRPROC, CPLPROC 


7 IfINHIBITTARGET was specified when the VSAM data 
set was exported, the catalog entry must be altered. 
ALTRPROC builds a CTGFV and a DSATTR CTGFL 
for the data set attributes field with INHIBITTARGET 
specified. CPLPROC builds a CTGPL to alter the VSAM 
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the VSAM data set to inhibit updating the VSAM data set. 

Procedures: OPENPROC, RECPROC If the VSAM data set has an index component, the same 

5 OPENPROC builds an OPNAGL and issues a UOPEN to Steps are repeated to alter the index component to 
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open the newly defined VSAM data set. A flag is set in the 
OPNAGL to indicate RECORDMODE or CIMODE. Ifa 
password is specified via the OUTFILE or OUTPW 
parameter, this password is passed to UOPEN for use in 
building the ACB. Otherwise, the exported master 
password, if any, is used. If the OUTFILE parameter is 
omitted, the input file file-id and catalog name (if present) 
are passed to UOPEN for use in building the ACB. 
RECPROC issues a UCOPY to copy the data from the 
portable data set to the newly defined (or empty 
pre-defined) VSAM data set. 


When importing a relative record data set in 

RECORDMODE, the relative record number of each 
record on the portable data set is contained in a 4-byte 
area immediately preceding the record itself. UCOPY 


INHIBITTARGET. Control goes to Diagram 3.5, step 2. 
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Diagram 3.6. LISTCAT FSR 


INPUT 







Register 1 


VSAM 
Catalog 





From Executive 
Controlled Termination 


PROCESSING 


CTGPL 
Sets up common data area. 


CTGFLs 
Opens data sets. 


Initializes. 


For each entry in the command or x 


in the catalog: 


a. Gets catalog information. 


See Diem —|3.6)) 


b. Writes catalog information. 


Writes message. 


OUTPUT 


Catalog Information 


Register | 
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Extended Description for Diagram 3.6 
IDCLC01, IDCLC02 
Procedures: IDCLCO1, IDCLC02 


1 Before processing the catalog entries, IDCLCO! links to 
IDCLC02. IDCLC02 establishes addressibility and 
initializes an array of 4-byte pointers to point to several 
different work areas. These work areas are common work 
areas used by both IDCLCO1 and IDCLC02. They are 
used to store pointers and variables and reside in 
IDCLC02’s automatic storage. The address of the array of 
pointers is passed back to IDCLCOI in register 15. 


IDCLCO1 
Procedure: INITPROC 


2 IfOUTFILE is specified, INITPROC builds an OPNAGL 
and issues a UOPEN to open the alternate output data set. 
By opening the alternate file first, any LISTCAT error 
messages appear on the alternate file. If CATALOG is 
specified with dname as well as a catname, INITPROC 
builds an OPNAGL and issues a UOPEN for the catname 
and requests that the ACB be returned. INITPROC 
compares the catalog name returned by the UOPEN 
macro to the catname from the CATALOG parameter in 
the LISTCAT command. If the catalog names do not 
match, the LISTCAT command terminates and control 
goes to step 5. If a dname is not specified, but a catname is, 
INITPROC puts the address of the catname in the CTGPL 
to make VSAM open the catalog. If CATALOG is not 
specified in the LISTCAT command, INITPROC puts the 
address of 44 blanks in the CTGPL to make VSAM find 
the catalog and open it. 


IDCLC01 
Procedure: INITPROC 


3. INITPROC tissues a ULOAD macro to load IKQDNT, 
the device name table. This table translates the 
hexadecimal UCB device type code to the external device 
name. (For example, the catalog UCB code X‘3050200D’ 
translates to the 3330-11.) INITPROC issues a UGPOOL 
macro to obtain storage for the CTGPL, CTGFLs, work 
areas, and DARGLIST. INITPROC puts the address of a 
work area for VSAM in the CTGPL. The returned catalog 
ACB from the UOPEN is put in the CTGPL. Also if 
password is specified in CATALOG, the address of the 
password is put in the CTGPL. INITPROC determines the 
number of catalog fields to be obtained for each catalog 
entry by the specification of NAME, VOLUMES, 
ALLOCATION, or ALL. Catalog fields are obtained by 
control blocks named CTGFLs. The table following this 


description shows the CTGFLs that are used for each type 
of catalog entry. 


If NAME is specified, INITPROC initializes CTGFLs 2 
through 4. For VOLUMES, INITPROC initializes 2 
through 10. For ALLOCATION, INITPROC initializes 2 
through 14. For ALL, INITPROC initializes 2 through 28. 
INITPROC adds the DSATTR to the end of the NAME, 
VOLUME, and ALLOCATION list if NOTUSABLE is 
specified. If more than one entry type is being listed or if 
NOTUSABLE is specified, INITPROC adds the 
MULTITYP CTGFL to the beginning of the list of 
CTGFLs. 


IDCLC01, IDCLC02 


Procedures: ENTPROC, LOCPROC, RTEPROC, 
CDIPROC, AUPROC, VPROC, FPLPROC, ANSVPROC, 
DEVTCONV 


4 If ENTRIES is specified, catalog information is found on 
each entryname in the command. If ENTRIES is not 
specifed, catalog information is found for each entry in the 
catalog. 


a. LOCPROC issues a UCATLG to locate the catalog 
information for an entry. If a required password is not 
supplied, VSAM returns the entry type and entry name 
fields in a work area instead of through the CTGFLs. 
The catalog ACB is returned the first time information 
is successfully located in the catalog. LOCPROC saves 
the catalog ACB and removes the CATACB CTGFL 
from the list of CTGFLs to be used to locate 
information on other catalog entries. Diagram 3.6.1 
shows getting catalog information in detail. 


b. RTEPROC test the entry type of the catalog entry. If 
the type is PATH, ALTERNATEINDEX, CLUSTER, 
DATA, or INDEX, CDIPROC formats the 
information and writes it with a UPRINT macro. If the 
type is NONVSAM or USERCATALOG, AUPROC 
formats the information and writes it with a UPRINT 
macro. If the type is SPACE, VPROC formats the 
information and writes it with a UPRINT macro. 
DEVTCONV is involved to translate the hexadecimal 
UCB device type code to the external device name. 


Note: Information written for a SPACE entry does not 
come directly from the catalog because LISTCAT has 
a special interface with VSAM for all LISTCAT 
requests. VSAM manipulates information in the 
catalog to provide the special interface to LISTCAT. If 
the entry type is a cluster or alternate index, 
RTEPROC determines whether an association of the 
object—that is a data, index, or path entry—is to be 
listed. If it is, FPLPROC reinitializes the CTGFLs. 


ANSVPROC retrieves the information about the data, 
index, or path via the control interval rather than by 
name. Control returns to 4a to locate information 
about the data, index, or path. FPLPROC reinitializes 
the CTGFLs for the next catalog entry. If the type is 
not valid, RTEPROC writes a message. Control goes to 
step 4a for the next entry. Refer to Using VSE/VSAM 
Commands and Macros for a sample listing of 
LISTCAT output. 


IDCLCO1, IDCLC02 
Procedure: IDCLCO1, FREESTG 
5 IDCLCOI writes a summary of the entries listed and 


suppressed due to incorrect passwords. If INITPROC 
opened a VSAM catalog, LDCLCO}! issues a UCLOSE to 
close the VSAM catalog. If an alternate output file was 
opened by INITPROC, IDCLCO1 issues a UCLOSE to 
close the file. Any storage obtained during the processing 


of the LISTCATALOG command is released with a 


UFPOOL macro. IDCLCOlI then calls FREESTG (in 
IDCLC02) to free the automatic storage acquired by 
IDCLC02. IDCLCO! then writes a message containing 
LASTCC. Control goes to Executive Controlled 


-Termination, Diagram 4.1. 
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CTGFLs Used for Each Type of Catalog Entry 


Entry Type | DATA INDEX 
CLUSTER 


CTGFL Name 


NONVSAM 














2. ENTYPE 








NAN = 
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6. DSETCRDT 





x 
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7. OWNERID 





x1 KK) 


«| -« | x 

































































11. FPACPARM oa 











Xx 



































USER SPACE |ALTER PATH Data in CTGFLs 
CATALOG NATE 
| INDEX 
T = 7 | Sena 
Identifies multiple catalog 
types to be listed. 
gas et a ae 
ntry type. 
xX X xX Entry name. 
Hees | Sous) 
xX X CI number and entry type 
of each association. 
xX | X Data set expiration date. 
=a See Sead toes Se 
X X ee set creation date. 
Tx 
xX xX Data set owner. 
xX xX VSAM release and catalog 
‘recovery information. 
ale. 
as (aii <= 
xX i Volume information for 
! data set. 





Volume device character. 





Primary and secondary 
allocation. 






































, ma 
12. 12. HURBADS | X High used RBA. 
‘ie a 
13. 13. HARBADS X X High allocated RBA. 
ei: =e oo | 
14. FNTVOL X x Physical description of 
data set. 
T + - a 
15. 15. VOLTSTMP Xx | Volume time stamp. 
a | + a ale be 
16. Sioa xX System allowed extents. 
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CTGFLs Used fer Each Type of Catalog Entry—continned 


CLUSTER 


17. NODSPACE 


18. NODSET 


19. FPACEHDR 


. AMDSBCAT 


24. DSATTR 


eR 
c 
fs 
e' 
a 


tv 
~~] 


. RGATTR 


Nv 
oo 
es] 
va 
‘e) 
a") 
tT 


XIT 


: 
C) 
e 
: 


ee= 


g 


*% 


* 


Number of data space on 
volume. | 


Number of data sets on 
volume. 


Characteristics and 
statistics of data space. 


Data Set directory for a 
data space. 


Physical description of 
data space. 


Password (security) 
information. 


AMDSB control block. 
Data set attributes. 
Minimum buffer size. 
Logical record size. 

AIX and PATH attributes. 


Exception exit module 
name. 


Catalog ACB address. 
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Diagram 3.6.1. LISTCAT FSR — Gets Information 
From Diagram 3.6 


INPUT PROCESSING 


CTGPL CTGFLs 
1 e Initializes: 


e ENTRIES. 


e No ENTRIES. 


2 Locates information. 


VSAM 
Catalog 


3. Checks: 


e ENTRIES. 


e No ENTRIES. 





CTGPL 


CTGFLs 


OUTPUT 
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Extended Description for Diagram 3.6.1 
IDCLC01 
Procedures: ENTPROC, GNXTPROC 


1 If ENTRIES is specified, control goes to la. If ENTRIES 
is not specified, control goes to |b. 


a. ENTPROC puts the address of the entryname in the 
CTGPL. If only SPACE information is to be listed, 
ENTPROC treats the entryname as a six character 
volume serial number and extends it to 44 characters 
by padding on the right with binary zeros. ENTPROC 
puts the address of the volume serial number in the 
CTGPL. If password is supplied with CATALOG, 
ENTPROC puts the address of the password in the 
CTGPL. If there is no password supplied with 
CATALOG, and there is a password specified with the 
entryname, ENTPROC puts the address of the 
password in the CTGPL. If there is no entryname to be 
listed, control goes to Diagram 3.6, step 5. 


b. GNXTPROC sets the CTGPL to indicate that each 
catalog entry is to be located by the catalog index 
rather than by a specific name. For the first entry, 
GNXTPROC puts the address of 44 blanks in the 
CTGPL as a starting key in the catalog search for the 
first catalog entry. After the first entry, GNXTPROC 
adds one to the key—which is the previously retrieved 
entry name—to make the new key higher in the 
collating sequence than the old key. 


IDCLC02 
Procedure: LOCPROC 


2 LOCPROC issues a UCATLG macro with the CTGPL 
and CTGFLs to locate catalog information about the 
entry. 


IDLCL01 
Procedures: ENTPROC, GNXTPROC 


3 If ENTRIES is specified, control goes to 3a. If ENTRIES 
is not specified, control goes to 3b. 


a. ENTPROC compares the type of entry information 
returned to the type of information requested in the 
LISTCAT command. If the entry type matches the 
type requested in the command, or the entry is a cluster 
or an alternate index, control goes to Diagram 3.6, step 
4b. if the entry type does not match the type requested 
in the command and the entry is not a cluster or an 
alternate index, or the entry is a cluster or an alternate 
index and the type specified is not data, index, or path, 


ENTPROC writes a message, but does not list the 
entry. lf NOTUSABLE was requested and the 
retrieved entry is a data or index entry, a check is made 
to determine if the entry has been marked as unusable. 
If the entry has been marked as unusable, control goes 
to Diagram 3.6, step 4b; otherwise, control goes to 
Diagram 3.6, step 4a for the next entryname in the 
LISTCAT command. If the UCATLG return code is 
nonzero, ENTPROC also writes a message. Control 
goes to Diagram 3.6, step 4a for the next entryname in 
the LISTCAT command. 


. GNXTPROC saves the name of the retrieved entry to 


use as a key in locating information for the next entry 
in the catalog. If the return from the UCATLG macro 
is zero, control goes to Diagram 3.6, step 4b. If the 
return code from UCATLG indicates password 
verification failure or lack of workspace, GNXTPROC 
writes a message and control goes to Diagram 3.6, step 
4a for the next entry in the catalog. GNXTPROC 
checks for end-of-file and unrecoverable errors. When 
end-of-file or an unrecoverable error is encountered, 
control goes to Diagram 3.6, step 5 to terminate the 
LISTCAT command. 
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Diagram 3.7. PARM FSR 


INPUT 
Register | 


t FDT 


Poe | 





From Executive 
Controlled Termination 


PROCESSING 





1. Processes TEST options: 


e OFF. 


e TRACE, AREAS, and FULL. 


2. Processes MARGINS option. 


3. Processes GRAPHICS option. 


4. Prints message. 


OUTPUT 


TEST Options 
Data Area 


_ 


HDAREA 


LEFTMGN 
RIGHTMGN 


Message 


- 


Register | 


LASTCC 





Wal Jo Ajsadorg — [8]J938],] posuaoyy] 


wonEIedO Jo pom ‘7 J01dByD 


6-7 


Extended Description for Diagram 3.7 
IDCPMO01 

Procedures: TESTPARM, TESTSAVE 

1 Ifthe address of the dump routine is in GDTDBG, a 


TEST option is currently in effect. TESTPARM frees the 
Debugging Aids Historical Data Area whose address is in 
GDTDBH, and it sets GDTDBH to zero. 


a. Ifthe TEST keyword is followed by OFF, 
TESTPARM deletes the dump routine, IDCDBO1, 
whose address is in GDTDBG, and it sets GDTDBG 
to zero. Control goes to step 2. 


b. Ifthe TEST keyword is followed by TRACE, AREAS, 


or FULL, TESTPARM issues a UGSPACE macro to 


obtain a new Test Option Data Area. TESTSAVE puts 


the information from the FDT in the new Test Option 
Data Area. If GDTDBG is zero, TESTPARM issues 
the ULOAD macro to load dump routine. 
TESTPARM puts the address of the dump routine in 
GDTDBG. Although the trace tables record execution 
since Access Method Services invocation, the earliest 
time a trace table or dump can be printed is in the 
Executive prior to the second call to the 


Reader/Interpreter. This is because the TEST option is 


not on until the PARM command has been completed. 


IDCPM01 
Procedure: MARGPARM 


2 


MARGPARM checks the margins for validity. The left 
margin must be less than the right margin. If the margins 


are invalid, MARGPARM sets the left margin to 2 and the 


right margin to 72, the Access Method Services default 
margins. MARGPARM puts the margin values in the first 
two halfwords of the Reader/Interpreter Historical Data 
Area. 


IDCPMOl1 
Procedure: GRPHPARM 


3 


GRPHPARM puts the GRAPHICS parameter (CHAIN 
or TABLE) in a Text Processor Print Control Argument 
list. GRPHPARM issues a UREST macro for the Text 
Processor to use the new chain or table with Access 
Method Services output. The CHAIN parameter specifies 
one of several graphic character sets available. However, 
the CHAIN parameter does not specify a particular 
physical type chain. The TABLE parameter specifies a 
module in the core image library. 


IDCPMO1 
Procedure: IDCPMO1 


4 IDCPM0I prints a message containing LASTCC. Control 
goes to Executive Controlled Termination. 
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Diagram 3.8. PRINT FSR 


From Executive 
Controlled Termination 





PROCESSING 


INPUT 






Register 1 





I. Opens data sets. 


2. Finds starting point. 


3. Sets up subtitle. 


Data Set 





ee 4. Gets and prints records until ending 


point is reached. 





Set (Optional) 





5. Writes message. 


OUTPUT 


Records 


Register | 
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Extended Description for Diagram 3.8 


IDCPROI — 
Procedure: IDCPRO! 


1 IDCPRO1 builds an OPNAGL for the input data set. If the 
PRINT command specifies a FROMKEY or TOKEY 
parameter, IDCPRO! opens the data set for key sequence 
record retrieval. If FROMADDRESS or TOADDRESS is 
specified, IDCPRO! opens the data set for sequential 
record retrieval. If the PRINT command specifies 
FROMNUMBER or TONUMBER, IDCPRO1 opens the 
data set for keyed sequential record retrieval. IDCPRO1 
puts any ENVIRONMENT parameters in the OPNAGL. 
The input data set can be a VSAM catalog. IDCPRO1 
issues a UOPEN macro to open the input data set. If an 
Output data set is specified with the OUTDDVAL 
keyword, IDCPRO! builds an OPNAGL and issues a 
UOPEN for the output data set. If the return code from a 
UOPEN macro is nonzero, IDCPRO! writes a message 
and terminates the PRINT command. 


IDCPRO1 
Procedure: DELIMSET 


2 DELIMSET performs additional validity checking to 
verify that From/To parameters are consistent with data 
set organization. If the parameter is invalid, an error 
message is written. Checks are made for invalid use of 


FROMADDRESS|TOADDRESS with RRDS and 
FROMNUM|TONUM with KSDS 


If FROMNUMBER is specified, DELIMSET issues a 
UPOSIT macro to position to the starting relative record 
number. If SKIP is specified fora VSAM relative record 
data set, DELIMSET issues a UPOSIT to position to the 
next relative record number beyond the skip count. A 
VSAM relative record data set is printed in relative record 
number order. 


If FROMKEY is specified, DELIMSET issues a UPOSIT 
macro to position to the starting key. If FROMADDRESS 
is specified, DELIMSET issues a UPOSIT macro to 
position to the starting address. If SKIP is specified, 
DELIMSET issues as many UGET macros as there are 
records to skip. The way the data set is opened determines 
how the records are skipped. Any data set opened as an 
ESDS causes records to be printed in chronological order. 
A keyed data set opened as a KSDS causes records to be 
printed in key-sequence order. If no starting point is 
specified, the starting point is the first record in the input 
data set. 


IDCPRO1 
Procedure: TEXTPSET 


3 


TEXTPSET formats a subtitle line with static text and the 
input data set name from the IOCSTR. TEXTPSET issues 
a UPRINT macro to get the static text and insert it into the 
buffer in which the subtitle line is being built. No printing 
is done with this UPRINT macro. TEXTPSET issues a 
UESTA macro to give the subtitle to the Text Processor. 


IDCPRO1 
Procedure: IDCPRO1 


4 The following steps are repeated until the ending point in 


the input data set is found. If TOKEY is specified, 
IDCPRO1 calculates the key location in the record from 
information in the IOCSTR. Retreiving records stops 
when the key in the input record is higher than the value 
in TOKEY. If TOADDRESS is specified, printing stops 
when the Relative Byte Address returned by the UGET 
macro equals the value supplied by TOADDRESS. If 
COUNTVAL is specified, printing stops when the number 
of records printed equals the number supplied by 
COUNTVAL. If TONUMBER is specified, retrieving and 
printing stops when the relative record number of the 
input record is higher than the TONUMBER value. If 
COUNT is specified for a VSAM relative record data set, 
printing stops when the number of valid relative record 
slots printed plus the number of invalid slots bypassed 
exceeds the value supplied by COUNT. If no ending point 
is specified, printing stops when the last record of the input 
data set is printed. 


a. IDCPRO! issues a UGET to obtain a logical record. If 
the return code from the UGET macro is nonzero, 
IDCPROI! checks the return code for a recoverable 
error. The recoverable errors are duplicate keys, 
records out of sequence, invalid length records, and 
I/O errors in the data of a VSAM data set. After a 
non-recoverable error or 4 recoverable errors, printing 
stops. 


b. IDCPROI issues a UPRINT to print the logical record 
just obtained. A minimum of 3 lines is printed for each 
logical record from the input data set. The first line 
printed contains the record identification: key, address, 
sequence number (nonVSAM except ISAM) or relative 
record number. The relative record number is printed 
for a relative record data set and indicates the slot 
number. Unused slots will be indicated by missing 
numbers. The second line is blank. The third and 
following lines contain the logical record from the 
input data set. The format of the logical records 
depends on whether HEX, CHARACTER, or DUMP 


was specified in the command. If an output data set is 
specified with the OUTDDVAL keyword, IDCPRO1 
prints the records on that output data set. If the return 
code from the UPRINT macro is 12 or greater, 
IDCPRO! will terminate processing: there is no 
checking for recoverable errors. 


IDCPRO! 
Procedure: IDCPRO! 
5 IDCPROI writes a message with LASTCC to SYSLST. 


IDCPROI issues a UCLOSE macro to close the input data 
set and any output data set other than SYSLST. SYSLST 
is not closed. Control returns to Executive Controlled 
Termination 
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Diagram 3.9. REPRO FSR 


INPUT 


Register | 





Data Set 


From Executive 
Controlled Termination 


PROCESSING OUTPUT 
| } CTGPL CTGFL 










Opens data sets. re 

Processes catalogs. | a |_ 

a. Reloads a catalog. | 
See Diagram 

Finds starting point. | 


Copies data set: 





Output 
Data Set 





e With ending point. 


e Without ending point. 






Writes message. 





Message 


S 


Register | 
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Extended Description for Diagram 3.9 
IDCRPO1 
Procudures: IDCRP0O! 


1 


IDCRPO! builds an OPNAGL for the input data set. If 
FROMKEY or TOKEY is specified, IDCRPO! opens the 
input data set for key sequence processing. If 
FROMADDRESS or TOADDRESS is specified, 
IDCRPO1 opens the input data set for sequential record 
retrieval. If FROMNUMBER or TONUMBER is 
specified, IDCRPO1 opens the input data set for key 
sequence processing. IDCRP0O1 also builds an OPNAGL 
for the output data set, and it puts any ENVIRONMENT 
parameters in the OPNAGL. If REUSE or REPLACE is 
specified, IDCRPO! sets the OPNAGL for the output data 
set to reflect these parameters. UOPEN will open the 
output data set with the reset option. IDCRPO1 issues one 
UOPEN macro that opens both the input and output data 
sets. If the return code from the UOPEN macro is nonzero, 
IDCRPOI writes a message on SYSLST and terminates 
the REPRO command. Following the open of both data 
sets, IDCRPO1 checks for a nonrelative-record input data 
set together with a nonempty relative record output data 
set. If this error condition is detected, a message is written 
on SYSLST and the REPRO command is terminated. 


IDCRPO1 


Procedures: VERIFYC, CATRELOD, TRUENAME, 
CATRANS, CNVRTCI, CATCOMP 


2 Ifneither the input nor the output are VSAM data sets, 


processing continues with step 3. Each VSAM data set is 
checked and verified to see if it is a catalog. If the output 


data set is not a catalog, processing continues with step 3. _ 


If the output data set is a catalog, the catalog reload 
switch, CATRELSW, is set on. The REPRO command is 
checked to see if beginning or ending delimiters were 
specified. If any were specified, a message is issued, 
processing is set for termination, and control goes to step 5. 
If no delimiters were specified, a catalog reload function is 
assumed, a message is issued, and the reload function is 


initiated. See Diagram 3.9.1. 


IDCRP01 
Procedure: DELIMSET 
3 DELIMSET performs additional! validity checking to 


verify that From/To parameters are consistent with input 
data set organization. If the parameter is invalid, an error 
message is written. Checks are made for invalid use of 
FROMADDRESS|TOADDRESS with relative-record 
data set and FROMNUM|TONUM with key-sequenced 


data set. If FROMKEY is specified, DELIMSET issues a 
UPOSIT macro to position to the starting key. If 
FROMADDRESS is specified, DELIMSET issues a 
UPOSIT macro to position to the starting address. If 
FROMNUMBER is specified, DELIMSET issues a 
UPOSIT macro to position to the starting relative record 
number. If SKIP is specified for a VSAM relative-record 
data set, DELIMSET issues a UPOSIT macro to position 
to the next relative-record number beyond the skip count. 
If SKIP is specified for a key-sequenced or 
entry-sequenced data set, DELIMSET issues as many 
UGET macros as there are records to skip. The way the 
data set is opened determines how the records are skipped. 
Any input data set opened as an ESDS causes records to 
be read in chronological order. A keyed data set opened as 
a KSDS causes records to be read in key-sequence order. 
If no starting point is specified, the starting point is the 
first record in the input data set. 


When copying from a non-relative-record data set into an 
empty relative-record data set, records are copied into 
consecutive relative-record locations. When copying from 
one relative-record data set to another, records are placed 
in the same slot in the output data set as they were in the 
input data set. 


IDCRP01 
Procedure: IDCRPOI 
4 = a. Ifan ending point other than the end of the input data 


set is specified by the TOKEY, TOADDRESS, or 
COUNT keywords, the following steps are repeated 
until the ending point is found. If TOKEY is specified, 
IDCRPO1 calculates the key location in the record 
from information in the IOCSTR. Retrieving records 
stops when the key in the input record is higher than 
the value in TOKEY. If TOADDRESS is specified, 
copying stops when the Relative Byte Address returned 
by the UGET macro equals the value supplied by 
TOADDRESS. If COUNTVAL is specified, copying 
stops when the number of records copied equals the 
number supplied by COUNTVAL. If TONUMBER is 
specified, copying stops when the relative-record 
number of the input record is higher than the 
TONUMBER value. If COUNT is specified for a 
VSAM relative-record data set, copying stops when the 
number of valid relative-record slots copied plus the 
number of invalid slots bypassed exceeds the value 
supplied by COUNT. 


¢ IDCRPOlI issues a UGET macro to obtain a logical 
record from the input data set. If the return code 
from the UGET is nonzero, It also checks the 
return code for a recoverable error. The recoverable 


errors are duplicate keys, records out of sequence, 
invalid length records, and I/O errors in the data of 
a VSAM data set. After a non-recoverable error or 
4 recoverable errors, copying stops. 


e IDCRPO1 issues a UPUT to write the logical 
record to the output data set. If the return code 
from the UPUT macro is nonzero, IDCRPO! 
checks the return code for a recoverable error. After 
a non-recoverable error or 4 recoverable errors, 
copying stops. 


b. Ifno ending point is specified in the REPRO 
command, IDCRPOI issues a UCOPY macro to copy 
the input data set to the last record. 


IDCRP01 
Procedure: IDCRP0O! 
§ IDCRPOI writes a message with LASTCC to SYSLST. It 


also closes the input and output data sets with one 
UCLOSE macro. Control returns to Executive Controlled 
Termination. 
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Diagram 3.9.1 REPRO FSR — Catalog Reload 


From Diagram 3.9 






PROCESSING OUTPUT 


INPUT 





Issues starting message. 









Input 
Data 
Set 

(Source) 






Compares the target catalog and 
source data set. 
















Reads and copies the source 
records into the target catalog. 






VSAM 
Catalog 
(Target) 







VSAM 
Catalog 
(Target) 






Updates the target catalog’s 
control record (CCR). 









Returns to Diagram 3.9, 
step 5. 
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Extended Description for Diagram 3.9.1 


b. At the 101th discrepancy, a message is issued saying 
that comparison is terminated. The only 


IDCRP0!1 discrepancies to be printed afterwards will be for 
Procedure: IDCRPO1 volume entries. 

1 The message says that catalog reload had begun. IDCRPO1 

IDCRP01 Procedure: CATRELOD 

Procedure: CATRELOD 4 After both backup and target records have been processed 


2 


Additional checks are made at this time by using data 
from the first 10 records of the input and output data sets. 
If the data set names do not match, a message is issued, 
processing is set for termination, and further checks are 
made. Termination also occurs if the input data set record 
format does not match a VSAM catalog record format, if 
there is insufficient space in the output data set, and if the 
volume serial numbers or the device types do not match. 
Messages are issued for the corresponding errors. 


sequentially by key to the end-of-file, one more record 
needs to be updated. 


e The catalog free chain pointers are counted and 
updated. The RBA fields are cleared so they will be 
correct for the next open of the catalog and the 
updated record is written back. 


The number of records copied is the number of backup 
records read if catalog reload has taken place; otherwise, it 
is the number of output records written. 


5 Control passes to Step 5, Diagram 3.9, step 5, to print final 
IDCRPO! messages. 
Procedures: CATRELOD, SORSREAD, TARGREAD, 
GETPAIR, DUMPIT, TRUENAME, CATRANS, 
CONVRTCI, CATCOMP 


3 When all the checks are satisfied, the unloaded catalog is 
copied into the output data set. Each record is read from 
the input data set and translated. It is then compared to 
the target catalog. 


e Ifa record existed on both backup and target catalogs, 
the translated backup updates the target. 


¢ Ifa record existed only on the backup, then this record 
is inserted into the target catalog. 


e Ifa record existed only on the target catalog, then it is 
processed in one of two ways. 


a. Ifthe target record is a true name record, then it is 
deleted. 


b. Ifthe target record is a low key range record, then it 
is made a catalog free record and placed on the free 
chain. 


e In both cases where the keys are not equal, differences 
in true name entries between the backup and target 
catalogs are checked. 


a. Ifa target name record exists without a 
corresponding backup or vice versa, then a message 
is printed indicating this, provided that not more 
than 100 messages have been issued. A warning 
return code of 4 is attached to the message 
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Diagram 3.10. VERIFY FSR 
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3. Closes data set. 
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Extended Description for Diagram 3.10 
IDCVY01 
Procedures: OPENPROC, IDCVY01 


1 OPENPROC builds an OPNAGL to open the VSAM data 
set specified by the data set or FILE parameter for 
control interval update processing. A UOPEN mucro is 
issued to open the data set. If the open was not 
successful, LASTCC is set to 12 and control goes to step 
4. 


IDCVY01 
Procedure: IDCVY0! 
2 IDCVY0O! issues a UVERIFY macro to verify the data set. 


IDCVY01 
Procedure: TERMPROC 


3 TERMPROC issues a UCLOSE macro to close the data 
set. If the close was not successful, LASTCC is 4. 


IDCVY01 
Procedure: IDCVY01 


4 IDCVY0I prints a message containing LASTCC. Control 
goes to Executive Controlled Termination, Diagram 4.1. 
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Diagram 3.11. BLDINDEX FSR 
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External 
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Job Control 
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From Executive 
Controlled Termination 


PROCESSING 


Opens base cluster; determines if 
external sort job control is present. 


Opens alternate index. 


Performs verification and obtains 
necessary information. 


See Diagram 


g 


Initializes for sort phase. 


a. Obtains virtual storage. 


b. Defines and opens sort work 
files (optional). 


See Diagram 


Reads base cluster and performs sort. 


See Diagram 


Builds alternate index. 


Closes alternate index and sort work 
files; determines if additional alternate 
indexes are to be built. 

Closes base cluster. 


a. Deletes sort work files. 
b. Frees virtual storage. 


Writes message. 
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CTGFLs 
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Sort Work 
Files 
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Extended Description for Diagram 3.11 


IDCBIO1 
Procedures: OPENPROC, JCPROC 


1 IDCBIOI calls OPENPROC to build an OPNAGL and 
issue a UOPEN to open the base cluster for input. 
OPENPROC sets the INFILE dname or INDATASET 
entry name in the OPNAGL. OPENPROC also sets input 
processing in the OPNAGL. UOPEN processing 
determines if the base cluster is a KSDS or an ESDS and 
sets a flag in the IOCSTR returned to OPENPROC 
following the open. This flag will be used by BLDINDEX 
to determine if alternate index records are to contain 
prime key pointers or RBA pointers. VOPEN also sets the 
RPL to keyed sequential processing for a KSDS or 
addressed sequential processing for an ESDS. If the return 
code from UOPEN is nonzero, OPENPROC returns to 
IDCBIO! with LASTCC set to 12 and the BLDINDEX 
command is terminated. 


OPENPROC checks the high-used RBA of the base 
cluster returned in the IOCSTR. If the high-used RBA is 
zero, OPENPROC issues a message returns to IDCBIO1 
with LASTCC set to 12 and the BLDINDEX command is 
terminated. 


IDCBIO! calis JCPROC to determine if job control for an 
external sort has been provided. BLDINDEX will always 
perform an internal sort if enough virtual core has been 
provided by the caller. Otherwise, if the caller has 
provided appropriate data set identification , BLDINDEX 
will perform an external sort using two VSAM entry 
sequenced data sets. If you provide DLBL/EXTENT 
statements, you must also provide the following 


parameters: 

Filename - As provided via the WORKFILES 
parameter, or defaulted to IDCUT1 and 
IDCUT2 

File-ID_- Required 

Volume - Required; must specify volume(s) 

Serial containing VSAM data space 

Numbers accessable via a currently 
available catalog. 

Access” - *“VSAM’ required 

Method 


If the caller has specified the WORKFILES parameter, 
JCPROC issues a UIOINFO specifying the first dname of 
that parameter. Otherwise, the UIOINFO specifies a 
default dname of IDCUT1. The UIOINFO requests a 
return of the data set name and volume serial number(s). 
If the return code from UIOINFO is zero, JCPROC issues 


another UIOINFO requesting the same information for 
the second dname specified via WORKFILES or the 
default dname of IDCUT2 if WORKFILES has not been 
specified. If both UIOINFOs are successful, JCPROC 
saves the pointers to the information obtained. 


If WORK VOLUMES is specified, two data set names are 
generated and catalog management is called by 
DEFPROC to define the two work data sets. If neither 
WORKFILES, WORKVOLUMES, nor default JCL is 
provided, DEFAULTVOLUMES is utilized through 
catalog management. Parameter lists for DEFPROC 
which do the DEFINE are built now. 


IDCBIO1 
Procedures: MAINPROC, OPENPROC 


2 Steps 2 through 7 are performed for each alternate index 
specified in the OUTFILE parameter. 


IDCBIO! calls MAINPROC to control the building of the 
alternate index. MAINPROC calls OPENPROC to build 
an OPNAGL and issue a UOPEN for the alternate index. 
OPENPROC sets a flag in the OPNAGL to indicate that 
only the alternate index is to be opened. OPENPROC 
indicates the OUTFILE dname or OUTDATASET entry 
name in the OPNAGL. The OPNAGL specifies keyed 


sequential output processing and specifies open with reset. 


If the alternate index is nonempty and was defined with 
the reusable attribute, VSAM OPEN will reset it to an 
empty condition. If the return code is nonzero 
OPENPROC sets LASTCC to 8 and returns to 
MAINPROC where control is passed to Step 7. 


IDCBIO1 
Procedures: MAINPROC, LOCPROC 


3 In order to accomplish validity checking and obtain 
required information, MAINPROC calls LOCPROC to 
issue VSAM catalog locates. See Diagram 3.11.1. 


On return from LOCPROC, the following information has 
been obtained to be used in subsequent processing: 


Type of base cluster - returned from UOPEN of 

(KSDS or ESDS) base cluster; also in 
data AMDSB. 

Position and length - in base cluster data 

of prime key (if base AMDSB control block. 

cluster isa KSDS) 

Length of alternate - in alternate index 

index record data AMDSB. 

Length of - in alternate index 

alternate key data AMDSB control 
block. 

Position of - in alternate index 

alternate key in AMDSB control block. 

base cluster record 

Unique or - in alternate index 

nonunique key AMDSSB control block. 

indicator 

Number of records - in base cluster 

in the base cluster AMDSB contro! block. 

IDCBIOI 


Procedures: MAINPROC, INITPROC 


4 MAINPROC calls INITPROC to obtain resources for 
building the alternate index. Resources consist of virtual 
storage for buffers and work areas, virtual storage for the 
sort and defined and opened sort work files if it is 
determined that such are required. See Diagram 3.11.2. 


IDCBIO1 
Procedures: MAINPROC, CNTLPROC 


5 MAINPROC calls CNTLPROC to read the base cluster 
and control the sort-merge process. See Diagram 3.11.3. 


IDCBIO1 
Procedures: CNTLPROC, BLDPROC, MERGPROC 


6 Ifan internal sort was performed, CNTLPROC passes 
each sort record to BLDPROC to build and write the 
alternate index records. Otherwise, CNTLPROC calls 
MERGPROC to perform the merge passes and build the 
alternate index. See Diagram 3.11.3 for BLDPROC and 
MERGPROC processing. 
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IDCBIO1 
Procedure: FINPROC 
7 YDCBIO! calls FINPROC to perform cleanup from the 


alternate index just built. FINPROC tests for an alternate 
index and sort work files and issues a UCLOSE for any of 
those data sets which are open. If BLDINDEX processing 
encounters any errors, FINPROC issues an appropriate 
message. Catalog error messages are issued by building an 
error conversion table and invoking the UERROR macro. 
FINPROC also issues a UFPOOL to free the sort core, 
buffers and work areas used in building this alternate 
index. A message indicating the success or failure of the 
alternate index build is written. The setting of LASTCC 
determines the message to be written. If LASTCC from 
the current build is higher than the maximum value from 
previous builds, it is saved. LASTCC is cleared for 
subsequent builds. If the caller of the BLDINDEX has 
specified multiple alternate indexes, control returns to 
Step 2. 


IDCBIO1 
Procedures: TERMPROC, DELTPROC 


IDCBIO!I calls TERMPROC to perform final cleanup. 
TERMPROC issues a UCLOSE to close the base cluster. 
If sort work files exist, DELTPROC is called to build a 
CTGPL to delete them. 


A UCATLG macro is issued by DELTPROC to delete 
each sort work file. TERMPROC issues a UFPOOL to 
free all remaining core obtained via UGPOOL. 


IDCBIO1 
Procedure: TERMPROC 


9 


TERMPROC writes a termination message with the 
maximum LASTCC encountered. Control returns to 
Executive controlled termination via IDCBIO1. 
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Diagram 3.11.1. BLDINDEX FSR — Get Information and Verify 


From Diagram 3.1] 











INPUT PROCESSING 
VSAM 1. Obtains information regarding the 
Catalog base cluster. 


2. Obtains information regarding the 
alternate index. 


3. Verifies the alternate index-base cluster 
relationship. 





etal 
| 


OUTPUT 
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Extended Description for Diagram 3.11.1 


IDCBIO1 
Procedures: LOCPROC, CATPROC 


1 The caller of BLDINDEX may specify the alternate index 
and base cluster names or a path to either. The diagram 
below shows the relationship of the various objects 
involved: 





R = Path 

C = Cluster 

G = Alternate Index 
D= Data 

I = Index 


The number in each box indicates which of the locates 
described below retrieves information for that object. The 
purpose of this series of locates is: 


a. to retrieve the data AMDSB control block of the 
alternate index and base cluster, and 


b. to verify that the alternate index specified by the caller 
does indeed relate to the base cluster specified. 


If the caller specified a path over the alternate index, an 
additional locate to reach the G object will be required 
(Locate 4) is done. 


The building of the CTGPL and CTGPLs and the 
issuance of the UCATLG is actually done by CATPROC. 
LOCPROC makes successive calls to CATPROC to 
perform these functions. On each entry to CATPROC, the 
CTGPL and CTGFLs are rebuilt for the specific locate 
being processed. LOCPROC calls CATPROC for locates 1 
and 2 only on the first alternate index being built since 
these locates are against the base cluster. Appropriate 
information is saved. 


Locate 1 


Locate | retrieves the associations of the name specified 
via INFILE. CATPROC builds a CTGPL for a locate 


operation. CTGFLs are built for: 

ENTYPE - Entry Type 

NAMEDS - Type and control interval number of 
the first three associations 

CATACB - Catalog ACB 


The entry name used in this locate is the file ID specified 
by the caller on the INDATASET parameter or in the job 
control pointed to by the INFILE parameter. If the return 
code from catalog is nonzero, LOCPROC sets a locate 
error condition, sets LASTCC to 12 and returns control to 
MAINPROC. MAINPROC returns to IDCBIO! where 
control is passed to Step 7 (Diagram 3.11). Note: This 
same type of error processing follows all subsequent 
locates except that LASTCC is set to 8 for locates 3, 4, and 
5; 


If the Entry Type returned by catalog management is an R 
(path), LOCPROC tests that the first association is a C 
(base cluster). If the Entry Type is not an R, it must be a 
C. Otherwise LOCPROC issues a message, sets LASTCC 
to 12 and returns control to MAINPROC. 


Locate 2 


CATPROC builds a CTGPL and CTGFLs to retrieve the 
base cluster data AMDSB. 


CTGPL: Entry “name” is the control interval number 
of the base cluster’s data object (D) returned 


in Locate 1. 
CTGFL: ENTYPE - Entry Type 
NAMEDS - Type and control interval 
number of the first three 
objects associated with the 
data object 


AMDSBCAT - AMDSB control block 


The catalog ACB returned from Locate | is used in this 
and all subsequent locates. 


LOCPROC saves the first control interval number 
returned for NAMEDS which is the control interval 
number of the base cluster object. LOCPROC also moves 
the AMDSB control block to its own work area. 


IDCBIO1 
Procedure: LOCPROC, CATPROC 
2 Locate 3 


Locate 3 is essentially the same as Locate | (minus the 
catalog ACB address) except that the name specified on 
the OUTDATASET parameter or via OUTFILE is used. 
If the entry type returned by catalog management is an R 
(path), LOCPROC tests that the first association is a G 
(alternate index). If the entry type is not an R, it must be a 
G. Otherwise, LOCPROC issues a message, sets LASTCC 
to 8 and returns control to MAINPROC. 


Locate 4 


If the Entry Type from Locate 3 was an R. CATPROC 
builds a CTGPL and CTGFL to retrieve the alternate 
index associations. 


CTGPL: Entry“name” used is the control interval 
number of the alternate index (G) associated 
with the path (R) returned in Locate 3. 


ENTYPE: Entry type 


CTGFL: NAMEDS—Type and control interval 
number of the first three objects associated 
with the alternate index. The entry type 


returned by catalog management must be a G. 


Otherwise, LOCPROC issues a message, sets 
LASTCC to 8, and returns control to 
MAINPROC. 


IDCBIO01 
Procedures: LOCPROC, CATPROC 
3 LOCPROC must now verify that the alternate index 


specified by the caller is in fact related to the base cluster 
specified. LOCPROC compares the control interval 
number of the base cluster saved from Locate 2 of the 
control interval number of the third association returned 
from Locate 3 or 4. This should be, for an alternate index, 
the control interval number of the related base cluster. If 
the CI numbers are not equal LOCPROC issues a 
message, sets LASTCC to 8 and returns control to 
MAINPROC. 


Locate 5 


Locate 5 is the same as Locate 2 for the alternate index 
data AMDSB control block. 


Control returns to Diagram 3.11 where control will be 
passed to Step 4 or Step 7 depending on the setting of 
LASTCC. 
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Diagram 3.11.2. BLDINDEX FSR — Obtain Resources and Sort Initialization 


Job control 
statements 


Sort Work Files (optional) 


From Diagram 3.11 


PROCESSING 


Determines requirements for sort. 
Obtains virtual storage. 


Defines and opens sort work files 
(optional). 





OUTPUT 


CTGFLs 


VSAM data 
sets for sort 
work files 
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Extended Description for Diagram 3.11.2 
IDCBIO1 

Procedures: INITPROC 

1 INITPROC issues a UGPOOL macro to obtain virtual 


b. If the EXTERNALSORT parameter has been 
specified by the caller of BLDINDEX, the RSA size is 
set at 32K—the minimum amount of storage which 
will be used for an external sort during the merge 
phase. 


core for buffers and work areas, consisting of 1 2K buffer 
(to be used for output if an external sort is performed), the 
area required for the CPL/FVT/FPL complex to define 
the sort work files and the alternate index record output 
buffer. The first two areas are obtained at this time, even 
though they may not be used, so that if it is necessary to 
perform an external sort it will not fail due to lack of 
virtual storage. If the UGPOOL fails, INITPROC sets 
LASTCC to 8, issues a message and returns control to 
IDCBIO1, Step 7 (via MAINPROC). 


INITPROC calculates the requirements for both an 
internal sort and an external sort. If an external sort is 
performed, the records being sorted are blocked into a 
block 2048 bytes in length, using a logical record length of 
2041 bytes. Blocking and deblocking of sort records within 
the 2041-byte logical record is accomplished by 
BLDINDEX. The formulas used to determine sort work 
size are: 


Sort Record Size = Alternate Index Key 
Length + Prime Key Length 
(KSDS) or 4 (ESDS) 
Number of Records _ 2041 
per Block Sort Record Size 


Total number _ 


# of Records in Base cluster } +10 
of 2K Blocks 


# of Records per Block 


During the first phase of either an internal or external sort, 
the records being sorted are packed contiguously into a 
record sort area (RSA). The RSA size is always in 
increments of 2K so that it can be later used as an input 
buffer area during the merge phase of an external sort. The 
initial size of the RSA is calculated as 


Number of Records in Base Cluster * Sort Record Size 


and rounded up to the nearest multiple of 2K. This size is 
then adjusted as follows: 


a. If the RSA size is less than 4K, it is set at 4K. The 
number of records in the base cluster is obtained from 
a Statistic maintained in the base cluster AMDSB 
control block. If this statistic is in error (which can 
happen if a system failure occurs during a close), it 
may be necessary to go into an external sort. In this 
case, space for two input buffers is required. 


IDCBIO1 
Procedures: INITPROC 


2 In addition to virtual storage for the RSA, virtual storage 
for the table (called the “heap”’) which drives the first 
phase of the sort is required. This is a table of 4-byte 
pointers. The amount required is calculated as follows: 


RSA Capacity = RSA Size 
Sort Record Size 
= RSA Capacity * 4 


INITPROC issues a UGPOOL for the RSA size plus the 
heap size. If the UGPOOL fails, the initially calculated 
RSA size could not be obtained and it will be necessary to 
perform an external sort. The maximum amount of core 
used for an external sort is 100K, the minimum 32K. If the 
maximum amount cannot be obtained, an attempt is made 
to obtain an intermediate RSA of 60K. INITPROC sets 
the RSA size to the next lower plateau—100K, 60K, 
32K—and loops back to the start of Step 2. If the 
UGPOOL fails at the lowest plateau (32K), INITPROC 
sets LASTCC to 8, issues a message and returns control to 
IDCBIO1, Step 7 (via MAINPROC). 


Heap Size 


IDCBIO1 


Procedures: INITPROC, DEFPROC, DELTPROC, 
OPENPROC 


3 If virtual storage was successfully obtained but the amount 
obtained for the RSA was less than the originally 
calculated required amount, INITPROC calls DEFPROC 
to define and open two sort work files to be used during 
the merge phase of an external sort. 


DEFPROC determines if large enough sort work files exist 
from a previous sort and, if so, bypasses the define process. 


If external sort work files exist but are not large enough, 
DEFPROC calls DELTPROC to build a CTGPL to delete 
each sort work file (specifying the PURGE option). 


If sort work files are to be defined, DEFPROC builds a 
CTGPL, a cluster CTGFV, a data CTGFV and the 
required CTGFLs to define the first external sort work 
file. DEFPROC issues a UTIME macro in order to 
provide the creation date in the define operation. The 
cluster FVT references the file-ID and the data FVT 
references the volume serial numbers obtained via (a) 


UIOINFO from the sort work job control statements, (b) 
built from the WORK VOLUMES parameter, or (c) built 
from the null volume list for the default-volume-define 
function of Catalog Management. Space allocation is in 
records: primary, the number of 2K blocks calculated by 
INITPROC; secondary, 10% of primary, plus 10. The data 
set attributes specified are: ESDS, nowritecheck, 
unordered, speed, suballocation, noerase, reuse, default 
shareoptions, control interval size of 2048, logical record 
length of 2041. 


DEFPROC issues a UCATLG macro to define the first 
work file, makes the necessary changes to the FVTs and 
issues a UCATLG for the second work file. DEFPROC 
next calls OPENPROC to build OPNAGL and open the 
two data sets just defined. The OPNAGLs specify 
sequential output using control interval processing with 
user buffers. If the define or open for either of the sort 
work files fails, DEFPROC sets a define error condition, 
sets LASTCC to 8 and returns control to INITPROC. If 
both sort work files are successfully defined and opened, 
DEFPROC returns to INITPROC with a flag indicating 
that an external sort is to be performed. INITPROC 
returns control to Diagram 3.11 where control will be 
passed to Step 5 or Step 7 depending on the setting of 
LASTCC. | . 
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Diagram 3.11.3. BLDINDEX FSR — Sort-Merge and Build Alternate Index 


Base 
Cluster 


VSAM Data 
Sets for Sort 
Work Files 


(optional) 


From Diagram 3.11 


PROCESSING 


Initializes for sort phase. 


Reads base cluster, places records 
in record sort area, internally sorts, 
writes initial strings if record sort 
area cannot contain all records 
(optional). 

Performs merge passes (optional). 
a. Initializes for each pass. 


b. Merges strings. 


Builds alternate index. 





OUTPUT 


VSAM Data 
Sets for Sort 
Work Files 





(optional). 


Alternate 
index 
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Extended Description Diagram 3.11.3 


IDCBIO1 
Procedure: CNTLPROC 


1 


CNTLPROC initializes factors which will be used during 
the sort-merge including pointers to the record sort area 
(RSA), and the table of pointers which is used during the 
sort. CNTLPROC also initializes the output buffer with an 
RDF and CIDF in the event an external sort is performed 
(the sort work files are processed in control interval mode 
with user buffers). 


IDCBIO1 


Procedures: CNTLPROC, SORTPROC, BLDPROC, 
SPILPROC, DEFPROC 


2 Inaloop CNTLPROC reads each base cluster record and 


passes it to SORTPROC. SORTPROC performs the 
function of building the sort records from the base cluster 
record, placing each record in the RSA and updating the 
table of pointers (called the‘heap’) to the records in the 
RSA. The heap is sorted when the RSA has reached 
capacity and/or when the last base cluster record has been 
processed. 


Each sort record is formed by concatenating the prime key 
of the base cluster (KSDS) or its RBA (ESDS) to the 
alternate key. 


Prime Key (KSDS) 


Alternate Key or 
RBA (ESDS) 





If the base cluster record is not long enough to contain the 
alternate key, SORTPROC issues a warning message and 
sets the current condition code to 4. 


The heap sort consists of two phases. The first phase builds 
the heap into a tree of nodes having a parent-child 
relationship. Each parent node has two child nodes and 
the parent represents a key higher than either of the two 
children. At the end of the first phase the node at the top 
of the tree represents the highest key. The second phase 
removes the top node, places it at the bottom, reduces the 
heap by | and adjusts the parent-child relationships of the 
remaining nodes. This loop continues until the top of the 
heap represents the lowest key. 


If enough virtual core was available to contain all the sort 
records, the sorting takes place after the last base cluster 
record has been read, after which CNTLPROC passes 
each record to BLDPROC to build and write the alternate 
index records (see Step 4). Otherwise, sorting takes place 
each time the RSA is filled. After the heap is sorted, if the 
sort was caused by the RSA reaching capacity before 
end-of-file on the base cluster, SORTPROC calls 
SPILPROC to write out the records in the RSA in a string 
of 2K blocks to the external sort work file. 


SPILPROC determines if sort work files have already 
been defined and opened by INITPROC and, if not calls 
DEFPROC to perform that function. Normally, 
SPILPROC will find sort work files already defined and 
opened. However, if the statistic contained in the base 
cluster AMDSB control block as to the number of records 
in the base cluster was erroneously low and the calculated 
virtual storage for the sort was obtained, INITPROC will 
not have initialized sort work files. SPILPROC blocks the 
sort records into the 2K output buffer and issues a UPUT 
macro to write it. This is performed in a loop until all sort 
records in the RSA have been written out. 


CNTLPROC calls SORTPROC under the following 
conditions: 


e After each base cluster record has been read. The 
address of the record is contained in the IOCSTR of 
the base cluster. 


e Atend-of-file on the base cluster. 


IDCBIO1 
Procedures: CNTLPROC, MERGPROC, BLDPROC 
3 After all base cluster records have been read, if the RSA 


was not large enough to contain all sort records, merge 
passes must be performed using the two external sort work 
files. SPLLPROC has written out the first strings during 
the sort phase. During this phase the external sort work 
file is in create mode. The data set was opened with 
MACRF#CNV, UBF, OUT, SEQ. PUTs are issued with 
OPTCD=CNV, SEQ, NUP. Control intervals are written 
in physical sequence. At the end of the sort phase, 
CNTLPROC issues a UCLOSE macro to close the output 
sort work file followed by UOPEN to reopen it. This is 
necessary to get out of create mode. The second open 
specifies MACRF=CNV, UBF, DIR, UPD. Subsequently 
all PUTs will be issued with OPTCD=CNV, DIR, UPD. 


CNTLPROC then calls MERGPROC to control the 
merge passes. MERGPROC performs the function of 
merging strings of sort records originally built by 
SPILPROC using the two external sort work files. The 
order of merge is normally 16 or less using an area of 32K 
(the original RSA) for input buffers. In one case, the order 
of merge will be 2. That is, when the statistic of the 
number of records in the base cluster AMDSB was so 
erroneously low that an RSA of 4K was obtained. 


In general, the merge is accomplished in the following 
manner (assuming a 16-way merge) - 


¢ Reading the first 2K block of the first n strings to be 
merged, where n is 16 if there are 16 or more input 
strings or where n is the total number of input strings if 
less than 16. 


e Using the first record of each string, build an array in 
the form of a tree. The tree is made of nodes with a 
single node at the top. Each parent node has two child 
nodes and the tree is built so that the record 
represented by the parent node is lower in value than 
either child. As the tree-add loop starts, the size of the 
tree is increased by | thus leaving an empty slot at the 
bottom. The parent of the empty slot is established and 
if the new record is higher than the parent, it goes into 
the empty slot at the bottom. However, if the new 
record is lower, the parent is moved down leaving an 
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empty slot. The parent of the new empty slot is 
established and the process continues until the new 
record is found to be higher than the parent at which 
time it goes into the empty child slot. If the parent is 
moved from the top of the tree, the new record goes 
there and the process stops. 


¢ Output the lowest record on the tree. This output will 
be to BLDPROC (see Step 4) if this is the last or only 
merge pass or to the output string if this is not the last 
merge pass. 


e Update the tree filling the slot left empty from the step 
above. 


e Get the next record from the same string as the 
previous lowest record. Output it if it is lower than the 
current lowest, otherwise add it to the tree. 


© Continue this process until all records in all input 
strings currently being processed have been output. 


e¢ Loop until all input strings for this merge pass have 
‘been output. 


e If more merge passes are required, make the previous 
output file the next input file and vice versa and repeat 
the merge passes until the number of input strings is 
equal to or less than the order of merge. 


placed in the alternate index record. BLDPROC also 
checks that the record is long enough to contain the new 
prime key or RBA and, if not, increments an excess 
pointer counter. If all checks prove successful, the new 


prime key or RBA is moved to the alternate index record. 


After CNTLPROC passes the last sort record to 
BLDPROC (internal sort) or receives control back from 
MERGPROC (external sort), CNTLPROC calls 
BLDPROC one more time to write out the last alternate 
index record. Control is then returned to IDCBIOI via 
MAINPROC—Diagram 3.11, Step 7. 
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IDCBIO1 
Procedures: BLDPROC 


4 BLDPROC is called either from CNTLPROC (if an 
internal sort was performed) or MERGPROC (on the last 
merge pass of an external sort). In either case, BLDPROC 
is passed sorted records one at a time. 


On the first entry to BLDPROC, the IOCSTR for the 
alternate index is initialized as well as the static portion of 
the alternate index record. On all subsequent entries, the 
alternate key of the sort record passed to BLDPROC is 
compared to the key of the alternate index record being 
built. If these keys are unequal, the alternate index record 
is to be written out. BLDPROC determines if the record 
was too short to contain all the prime key or RBA pointers 
and, if so, issues a warning message containing the number 
of excess pointers and sets the current condition code to 4. 
The record is written with a UPUT macro and the buffer 
reset for the next record. Before moving the prime key or 
RBA from the sort record to the alternate index record, 
BLDPROC checks if the alternate index was defined with 
the UNIQUEKEY attribute. If so and if the new prime 
key or RBA is not the first for this alternate index record, 
BLDPROC issues a warning message and sets the current 
condition code to 4. Only the first prime key or RBA is 
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Diagram 3.12. LISTCRA FSR 


From Executive 
Controlled Termination 


PROCESSING 







INPUT 


Register | 
General initialization and open the 
catalog if compare option specified. 


For each volume in the command: 
a. Opens the CRA. 


b. Compares, groups, sorts and prints 
the objects in the CRA. 


See Diagram pia) 


VSAM c. Compares and prints any objects 
Catalog 


not yet printed. 


d. Closes the CRA and prints summary 
count table. 


| 3. Closes the catalog and writes 


Encoded 
Users 
LISTCRA 
Command 
Parameters 


completion message. 





CTT 


Ih 


Catalog/CRA 
Compare List 


LA 


Register 1 
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Extended Description for Diagram 3.12 


IDCLRO1I 
Procedures: AATOPLR, INITLZE, CATOPEN, ERROR 


1 Routine addresses and the UOPEN argument are 
initialized in the work area. If the COMPARE option was 
specified, a UOPEN is issued for the catalog identified by 
the CATALOG dname parameter or by the CATALOG 
catname parameter (dname parameter omitted). If the 
OPEN is successful, a UVERIFY is issued and the catalog 
name is obtained using Access Method Services field 
management (IDCRC04). 


The volume serial is obtained via IDCRC04 and the 
catalog is locked to prevent it and its associated CRAs 
from being reset. If the COMPARE option was not 
specified on the OPEN of the catalog failed, the no 
compare indicator is set. 


IDCLRO1, IDCLR02, IDCRC04 


Procedures: AATOPLR, CRAOPEN, PRTVOL, INTSORT, 
MEMSORT, DOVSAM, PRTVSAM, DOOTHR, 
PRTOTHR, PRTFIFO, GETPRT, PRTCMP, CLENCRA, 
SUMIT 


2 For each of the CRAs identified by the INVOLUMES 
volser parameter or INFILE dname parameter, the 
following is repeated: 


a. Ifthe INFILE parameter was specified, a UIOINFO is 
issued to obtain the CRA volume serial. The VOPEN 
parameter list is set up with the volser and the catalog 
master password and the UOPEN and UVERIFY are 
issued for the CRA. If the COMPARE option was 
specified, the catalog and its CRAs are locked (UENQ) 
to prevent any concurrent updates. If they are 
successful and there is a match on the owning catalog 
name, a UREST is issued to print a subtitle for this 
CRA. The entire CRA is read to build the CI translate 
table (CTT) in space gotten by UGPOOL. 


b. The CRA volume record and its extensions are 
optionally compared to the corresponding catalog 
entry and printed by PRTVOL. The VSAM objects are 
then sorted into alphabetical order, optionally 
compared to corresponding catalog entries and printed 
by INTSORT, MEMSORT, DOVSAM, and 
PRTVSAM. Next, the nonVSAM objects are sorted, 
compared, and printed by INTSORT, MEMSORT, 
DOOTHR, and PRTOTHR. See Diagram 3.12.1. 


c. Ifeither sort fails for lack of memory (from b. above), 
the objects are compared and/or printed in the order 
they appear in the CRA by PRTFIFO. Records 


already processed by the above procedures are skipped. 


If the object isa VSAM object, PRTVSAM is called 
and if it is a not, PRTOTHR is called. 


d. GETPRT is used to get the CRA copy of any other 


records, and the catalog record, if compare. These are 
printed and compared by PRTCMP. When all objects 
have been processed, the UDEQ macro is issued to 
release the update lockout for the catalog, the CRA is 
closed by CLENCRA, and a summary is printed by 
SUMIT. 


IDCLRO! 
Procedures: AATOPLR, CLEANUP 
3 The UCLOSE macro ts issued to close the catalog data set 


and the UDEQ macro is issued to release the reset lockout 
from the catalog. The completion code message is printed 
and the UFPOOL macro is issued to free storage. Control 
is returned to the caller. 
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Diagram 3.12.1. LISTCRA FSR — Process CRA 


From Diagram 3.12 
INPUT PROCESSING 


a. Reads CRA and catalog volume 
records and extensions. 


b. Prints volume record and time stamps. 


Processes VSAM entries: 
a. Alphabetizes VSAM entries. 





b. Prints and optionally compares 
each entry and associated records 
and extensions. 






VSAM 
Catalog 


3. Processes nonVSAM entries: 


a. Alphabetizes nonVSAMs. 


b. Prints and optionally compares 
each entry and associated records 
and extensions. 


Prints optionally compares volume records. 


OUTPUT 


Catalog/CRA 
Compare List 





Wa] Jo Ay19d01g — [8}1998]A] POSUsdTT 


vonviedg Jo pomey :7 101deyD 


611-2 


Extended Description for Diagram 3.12.1 


IDCLRO1, IDCLRO2, IDCRC04 


Procedures: PRTVOL, SUMIT, GETPRT, VERTEXT, 
INTVEXT, TCICTCR, BLDVEXT, PRTMCWD, UPRINT, 
UIOINFO, PRTTIME 


1 a. PRTVOL uses GETPRT to read the CRA volume 
record and IDCRC04 to extract the identifying fields 
and, if compare, the equivalent information is gotten 
from the catalog in the same manner. If compare is 
specified, information is compared and, if not equal, 
the record is printed and the severest miscompared 
field is identified by PRTMCWD. If compare is not 
specified, all records are printed. Horizontal extension 
records are processed and vertical extension records are 
checked by VERTEXT and handled in the same way. 


b. The timestamps from the CRA volume record and on 
the CRA volume and, if compare, in the catalog 
records are printed by PRTTIME. 


IDCLRO1, IDCLR02, IDCRC04 


Procedures: INTSORT, MEMSORT, DOVSAM, 
PRTVSAM, GETPRT, VERTEXT, INTVEXT, TCICTCR, 
BLDVEXT, ADDASOC, INTASOC, PRTMCWD, 
UPRINT, PRTAAXV, PRTOJVL, CKEYRNG, SUMIT 


2 a. The sort of the VSAM entries is initialized by 
INTSORT which scans the CTT counting the number 
of VSAM entries, gets storage via UGPOOL for a sort 
table, initializes dummy first and last entries and then 
loops through the CTT entries calling IDCRC04 to 
extract the entry names to be sorted. The MEMSORT 
procedure orders the entries by adding forward and 
backward chain pointers to alphabetize. 


b. If compare was specified, the following procedure is 
passed through twice, the first time comparing only. 
When a miscompare is detected the procedure is 
restarted printing everything. From the entries in the 
sort table an association table is built containing the 
control intervals of all associated entries. Passing 
through this table all associated records are printed. 
For base cluster’s AIX associations, only the entries’ 
volumes are printed (to assist in recovery). The 
horizontal extension records are printed as are the 
vertical extension records. Throughout, the names of 
significant items are noted if they miscompared and 
these are printed. 


IDCLRO1, IDCLRO2, IDCRC04 


Procedures: INTSORT, MEMSORT, DOOTHR, 
PRTOTHR, GETPRT, VERTEXT, INTVEXT, TCICTCR, 
BLDVEXT, SUMIT, PRTMCWD, UPRINT, PRTOJAL, 
INTASOC 


3 a. The logic and procedures used here are the same as are 
used in 2a with the exception that nonVSAM entries in 
the CTT are sorted. 


b. The logic and procedures used here are the same as 
used in Step 2b except that nonVSAM entries are 
‘handled. 


For all of the steps above, GETPRT uses UGET to read 
the CRA record and the catalog record, if compare. 
IDCRC04 is used to extract all necessary fields from the 
records. These are printed and optionally compared by 
PRTCMP and PRTDMP (if the dump format was 
specified) and PRTDMPC (if compare was also specified). 
PRTOJVL is used to print, the object’s volume. 
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Diagram 3.13 EXPORTRA FSR 


From Executive 
Controlled Termination 


PROCESSING 





a. Initialization. 
b. Build the CRV. 


2. For each CRA specified: 
a. Opens the CRA. 
b. Checks the name chain. 


See Diem =f318.)> 


c. Exports the name chain. 


See Dasan-f.13> 










VSAM 
Catalog 





Sets and 
CRA 


1. Initializes and builds the CRV. 





OUTPUT 


OO) 


Portable 
Data Set 







Message 






Register | 


$ LASTCC 
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Extended Description for Diagram 3.13 
IDCRCO01 


Procedure: INIT, SUBSP, BUILDCRV, BUILDNAM, 
MESSAGE 


1 a. SUBSP is called which issues a UGPOOL to obtain 
storage for the blocks associated with the name chain. 
This storage is allocated into small blocks to be used 
later. Storage is then obtained for the buffer pool VGO 
space, the CRV, the ACC and the VTT. 


b. Ifthe CRA dname parameter form is specified, for 
each CRA volume, UIOINFO is used to obtain the 
volume serial number (for CRA dname! option only), 
which is placed in the VTT. BUILDNAME is called to 
build the name chain. This procedure calls SUBSP to 
get a block of storage to be anchored to the CRV. The 
name pointer is placed in the block as it is read from 
the CRA. 


IDCROO1, IDCRC02, IDCRC03, IDCRCO4 


Procedures: OPENCRA, OPEN, TIMESTMP, SCANCRA, 
NAMETABL, DIRECT, EXTRACT, ERRCK, MESSAGE, 
COMPNAME, CKCATNM, CKNAMES, DUPNAMCK, 
SYNCH, OBJVOLCK, CRAOPEN, EXPORTDR, 
OPENCRA, MESSAGE 


2 a. OPENCRA initializes the buffer pool pointer required 
by field managment (IDCRC04). It then calls OPEN, 
which opens the CRA for direct processing and checks 
it for the correct owning catalog. OPENCRA then calls 
TIMESTAMP, which issues the UIOINFO macro to 
get the CRA volume timestamp and place it into the 
VTT and to get the device characteristics and place 
them in the CRV. It then calls SCANCRA to build the 
catalog CI numbers and places them in the CTT and 
calls NAMETABL which places the record type and 
name pointer in the name block. If entries were 
specified, the name block is marked if a match is found 
with the input. OPENCRA then calls DIRECT which 
calls EXTRACT which interfaces with IDCRC04 to 
obtain the directory information from the CRA record. 
ERRCK calls MESSAGE if an error occurred in this 
procedure. For IDCRC04 see Diagram 3.13.1. 


b. CKNAMES is called to perform the following 
functions for each potentially exportable entry using 
EXTRACT: 


¢ Get the master password for VSAM entries. 


¢ Locate and flag to bypass export any OS/VS2 
paging data sets. 


¢ Collect the data and index associated CI numbers 
for VSAM entries. 


e Locate and flag to bypass data copy any VSAM 
entries that have no data (high-used RBA is zero). 


¢ Locate and flag to bypass for export any 
NOCIFORMAT SAM ESDS entries. 


e Locate and flag to bypass for export any SAM 
ESDS entries if the SAM ESDS feature is not 
installed. 


e Collect the largest: VSAM LRECL 
(RECORDMODEB) or the largest data control 
internal size (CIMODE) for the nonempty files to 
be exported. 


e Locate and flag to bypass export any OS/VS2 
GDG bases. 


For those entries bypassed for export but named in the 
ENTRIES parameter, an error message is printed and 
LASTCC is set to 8. For SAM ESDS entries not 
named in the ENTRIES parameter, a warning message 
is printed and LASTCC is set to 4. 


DUPNAMCK is called to loop through all the names 
in the chain checking for duplicates. If one is found, it 
is marked so that it will be exported. A message is 
written indicating the duplicate name. SYNCH is 
called which checks each entry on the name chain for a 
CI number, checks the VSAM data sets for a data entry 
and if there is a data volume index, OBJVOLCK is 
called which matches the volume serials in the VGOs 
and VTT, matching the CI and timestamp. 


. EXPORTDR is called which closes the CRA as a data 


set and opens it as a catalog, then calls MESSAGE to 
write the “exporting CRA” message (however, if the 
name list is empty, the “nothing to export” message is 
issued instead). It checks the name chain for the CRA 
for null entries and nonmatches and marks them not 
exportable. It initializes the export table for each valid 
entry and calls IDCRC02 to export the entry. If the 
FDT parameter CIMODE was specified, a CIMODE 
flag is set in the export table. ENVIRONMENT 
parameters are obtained from the FDT and placed in 
the export table. See Diagram 3.13.2 for a description 
of IDCRC02. When the Export Driver (IDCRC02) 
returns, then the completion or error message is printed 
and processing continues with the next entry in the 
name chain for the CRA. 
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Diagram 3.13.1. EXPORTRA FSR — Field Management 


Register | 







I'M 
Output 
Area 


INPUT 


From Diagram 3.13 


PROCESSING 


Initializes module, 


Converts alphabetic field names to 
internal codes. 


For each RELREPNO.: 


a. Handles any test fields to see 
if information is as expected. 


b. Places the field in the output area. 





OUTPUT 


Register 1 


I'M 
Output 
Area 


Register 15 
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Extended Description for Diagram 3.13.1 


IDCRCO4 
Procedure: IDCRC04 


1 IDCRC04 is a service routine used by EXPORTRA and 
LISTCRA to compare and extract data from catalog and 
CRA records. Upon entry from either IDCRCO1 or 
IDCLRO1 it sets up addressability to the work area and 
initializes the current CI number in the work area for the 
callers get routine (either IDCRC03 or IDCLRO2). 


IDCRCO4 
Procedures: PSCNC, PTRNS 


2 PSCNC is called which loops through each field 
management field list and calls PTRNS which compresses 
the name into a 4-character ID and places it into the 
FMFT along with its corresponding dictionary 
information and supplied group code. The tables are 
chained according to like group code. 


IDCRCO4, IDCLRO2, IDCRCO3 


Procedures: PSCNF, PTSTS, PGVAL, PGREC, PCKLC, 
PEXPT, PLNRV, PTCMP, PLOC2, PGREP, PSHIN 


3 PSCNF is called to process these field tables. It first 
processes the test field and then the one it is looking for so 
it may place the data in the output area. 


a. The field lists are tested by looping through all the Cl 
numbers (PGVAL), interfacing with the callers get 
record routine, either IDCRC03 or IDCLRO2 to obtain 
addressability to the block containing a CI number 
(PGREC). It then locates the catalog fields within a 
given record by insuring the requested field actually 
exists in the group occurrence data (PCKLC) then sets 
up the address and length of extension pointers as 

requested via the RELREPNO specified on entry 
(PEXPT) and extracts the data from the found field 
and indicates its length (PLNRV). After the data is 
found, it is compared by PTCMP with the input data 
and a match or mismatch is indicated. 


b. PLOC2 is the highest-level procedure for placing the 
data in the output area. This procedure is called by 
PSCNF if the FMFT is not a test FMFT. It calls 
PGREP to find the highest non-deleted RELREPNO 
with the desired group code and saves the address and 
length of the field which is checked by PGREC. 
PSHIN checks for enough space in the output area 
and, if there, moves the field to the output area or 
moves Fs if non-existent. PGVAL and its 
subprocedures described above are used to find the 


fields requested and, after found, PSHIN moves the 
data to the output area. 
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Diagram 3.13.2. EXPORTRA FSR — Driver 


INPUT 
Register | 








Sets and 
CRA 













Z. 


From Diagram 3.13 


PROCESSING 


Tests for export of a VSAM or nonVSAM 
object. 


a. Exports a VSAM object. 
See Diagram 3.13 2.1 
b. Exports a nonVSAM object. 


See Diagram 3,43,2.2 


Termination processing. 


OUTPUT 


Messages 
Portable Data Set 


Register | 





* LASTCC 
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Extended Description for Diagram 3.13.2 
IDCRC02 


Procedures: OPENPROC, CLUSPROC, SAVEPROC, 
RECPROC, PUTPROC, NVSMPROC, ADSPROC, 
ALSPROC 


1 IDCRCO02 tests the input parameter list for export of a 
VSAM or nonVSAM object. OPENPROC opens the 
portable data set for output. ENVIRONMENT 
parameters from the export table are placed in the 
OPNAGL for UOPEN processing. If the object to be 
exported is a VSAM object then step |.a is done; if it is a 
nonVSAM object, then step 1.b is done. 


a. CLUSPROC gets catalog information for the cluster, 
data, index and paths from the CRA. SAVEPROC 
holds the control records containing the catalog 
information until catalog processing is completed, then 
writes them to the portable data set. OPENPROC 
opens the cluster data for input. RECPROC copies the 
data to the portable data set. PUTPROC writes a 
software end-of-file to the portable data set. 


b. NVSMPROC gets catalog information for the 
nonVSAM object from the CRA. ALSPROC gets 
catalog information for any aliases connected with the 
nonVSAM object. SAVEPROC holds the control 
records containing catalog information until catalog 
processing is completed, then writes them to the 
portable data set. 


IDCRC02 


2 IDCRC02 tests return codes from CLUSPROC, 
NVSMPROC, and GDGPROC. If any alias or path is not 
exportable, a warning message is issued. The portable data 
set is then closed if it is the last request or if a severe error 
occurred. 
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Diagram 3.13.2.1. EXPORTRA FSR — Export VSAM Data Set 


From Diagram 3.13.2 


PROCESSING 


Obtains information for cluster, 
data, index, and paths from CRA. 


Opens the input data set. 


Portable Writes catalog information. 
Data Set 


Writes data records, closes input 
data set. 


Writes software end-of-file. 


OUTPUT 


Portable — 
Data Set 
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Extended Description for Diagram 3.13.2.1 
IDCRCO02 
Procedures: CTLGPROC, CLUSPROC, LOCPROC 


1 


For the cluster entry of the VSAM data set, LOCPROC 
builds a CTGPL and CTGFLs to retrieve information | 
from the CRA. A CTGEFL is built for the following catalog 
fields: 


ENTYPE, ENTNAME, DSATTR, OWNERID, 
DSETCRDT, DSETEXDT, BUFSIZE, LRECL, 
SPACPARM, PASSWORD, PASSATMP, USVRMDUL, 
USERAREC, LOKEYV, HIKEYV, VOLSER, 
AMDSBCAT, EXCPEXIT, RCATTR, NAMEDS and 
CATACB. 


CTLGPROC issues a UCATLG with the CTGPL and 
CTGFLs to retrieve the information from the CRA. 
CLUSPROC validity checks the catalog entry type and 
named fields. LOCPROC builds a CTGPL and CTGFLs 
for the data and index components of the VSAM cluster. 
CTLGPROC issues a UCATLG to obtain the same catalog 
information as obtained for the cluster except for the 
NAMEDS and CATACEB fields. Path associations, if 
present, are processed with the same type of CTGPL and 
CTGFLs as used for data and index. 


A timestamp record is constructed as the first control record. 
Information is placed into it indicating the number of 
objects; whether the data set is KSDS, SAM ESDS, 
NOALLOCATE, or empty; and whether export CIMODE 
was specified. 


IDCRC02 
Procedure: OPENPROC 


2 


OPENPROC issues the UOPEN macro to open the 
VSAM data set for input and verifies the open. 
OPENPROC triggers CIMODE processing by setting the 
“export CIMODE” flag and the “CNV processing” flag in 
the OPNAGL of the input data set. 


IDCRC02 
Procedure: PUTPROC 


3 


Control records containing catalog information for the 
cluster, data, index, and paths are written to the portable 
data set after catalog processing for the object to be 
exported has been completed. 


IDCRC02 
Procedure: RECPROC 


4 RECPROC copies the data to the portable data set and 
closes the input data set. 


IDCC02 
Procedure: CLUSPROC 


5 CLUSPROC writes a software end-of-file on the portable 
data set. 
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Diagram 3.13.2.2. EXPORTRA FSR — Export NonVSAM 


Portable 
Data Set 


From Diagram 3.13.2 
PROCESSING 


Obtains catalog information for a 
nonVSAM or user catalog object. 


Obtains catalog information for any 
alias associations. 


Writes catalog information to the 
portable data set. 


OUTPUT 


Portable 
Data Set 


CTGFLs 
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Extended Description for Diagram 3.13.2.2 
IDCRC02 
Procedures: LOCPROC, CTLGPROC 


1 


LOCPROC builds a CTGPL and multiple CTGFLs for a 
nonVSAM or user catalog object to retrieve catalog 
information. A CTGFL is built for each of the following 
fields: 


ENTYPE, ENTNAME, VOLSER, DEVTYP, NAMEDS, 
CATACB 


CTLGPROC issues a UCATLG with the CTGPL and 
CTGFLs to retrieve the information from the catalog, and 
to validity check the ENTYPE and NAMEDS fields. 


IDCRC02 
Procedures: LOCPROC, CTLGPROC 


2 


LOCPROC builds a CTGPL and multiple CTGFLs for 
any alias associations. A CTGFL is built for ENTYPE 
and ENTNAME catalog fields. CTLGPROC issues a 
UCATLG to obtain the catalog information. 


IDCRC02 
Procedures: NVSMPROC, ALSPROC 


3 


NVSMPROC and ALSPROC write control records 
containing the catalog information to the portable data set 
after catalog processing is completed. The first record 
written is the timestamp control record. It is flagged if 
export CIMODE processing has been specified. 
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Diagram 3.14. IMPORTRA FSR 


From Executive 
Controlled Termination 


PROCESSING OUTPUT 


VSAM 
Catalog 


Register | 


1. Obtains OUTFILE data set 
name and opens portable 
data set. 


VSAM 
User Catalog 





Portable Data Set 


VSAM 
Catalog 


2. Imports object. 


a. VSAM cluster or’ 

alternate index. VSAM 
Cluster, 
Alternate 
Index, User 
Catalog, 
NonVSAM, 
or GDG 
Base 


See Diagram 


b. User catalog. 
See Diagram 


Register 1 
c. NonVSAM. 


See Diagram 


d. GDG Base. 
See Diagram 


DOU 


LASTCC 
3. Writes message. 


Message 
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Extended Description for Diagram 3.14 


IDCRMO1 
Procedure: IDCRM01, OPENPROC 


1 


If the OUTFILE parameter is present, IDCRMO1 issues a 
UIOINFO to obtain the data set name coded on the 
DLBL job control statement associated with the 
OUTFILE parameter (to be used later by ALTPROC). 
PENPROC builds an OPNAGL and issues a UOPEN to 
open the portable data set. User specified tape label and 
rewind options are placed in the OPNAGL for UOPEN 
processing. OPENPROC then issues a UGET to get the 
first record of the portable data set, which contains the 
record size of the data set. If the record size is larger than 
the record size used to open the portable data set, a special 
UCLOSE is issued which reallocates sufficient space for 
the record size. An actual close of the portable data set is 
not done. 


IDCRMO1 


Procedures: IDCRM01, CLUSPROC, UCATPROC, 
NVSMPROC, CLUSPROC, GDGPROC 


2 For each item on the portable data set, IDCRMO1 reads a 


timestamp record and prints a message indicating the time 
and date of the EXPORTRA operation. The timestamp 


record also indicates whether the portable data set is in 


CIMODE or RECORDMODE format and whether the 
file being imported is empty. 


On the basis of the timestamp record, one of CLUSPROC, 
UCATPROC, NVSMPROC, or GDGPROC is called to 
actually import the object. If the read for a timestamp 
record should fail, IDCRM01 assumes that an end-of-file 
has been found on the portable data set and passes control 
to step 3. 


IDCRMO01 
Procedure: IDCRMO! 
3 IDCRMOI writes a completion or termination message 


with LASTCC. Control goes to Executive Controlled 
Termination. If LASTCC is less than 12, a completion 
message (with LASTCC) is written; otherwise a 
termination message (with LASTCC) is written. 
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Diagram 3.14.1. IMPORTRA FSR — CLUSTER or ALTERNATE INDEX 


From Diagram 3.14 


INPUT PROCESSING 


Portable Data Set 





1. Writes time of export. 
Builds catalog parameter lists. 


VSAM 
Catalog 


2. Defines cluster or alternate index 
Defines paths. 


3. For a non-emoty data set: 


@ Alters name of data set (OUTFILE 
parameter only). 
® Copies data. 


@ Alters the name back (OUTFILE 
parameter only). 


For an empty data set: 
Reads the portable data set until EOF 
is reached. 








OUTPUT 


Message 
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Extended Description for Diagram 3.14.1 


IDCRMO0!1 


Procedures: CLUSPROC, CPLPROC, GETPROC, 
FVTPROC, BFPLPROC, BPASPROC, IUNIQPRC 


1 CLUSPROC via CPLPROC builds a CTGPL for a define 
operation. CLUSPROC issues a UGET macro to read the 
catalog control records and calls GETPROC to read the 
catalog data records. Control records are read for the 
cluster or alternate index and their data and index, if any, 
components. CLUSPROC then calls FVTPROC to build 
two or three FVTs. FVTPROC in turn calls BFPLPROC 
to build FPLs for the catalog information on the portable 
data set. FYVTPROC tests the AMDSB for SAM ESDS 
and if the SAM ESDS feature is not installed an error 
message is written. A return code of 8 causes control to 
return to IDCRMOI, which bypasses this entry and 
continues importing the next entry. BPASPROC builds an 
FPL for security information. If the data or index 
component was originally defined as unique, IUNIQPRC 
builds a null volume FVT for each unique component. 
The OBJECTS list is scanned for USECLASS, 
VOLUMES, and DEFAULTVOLUMES information 
about the object to be defined; if found, such information 
overrides that found on the portable data set. The 
OBJECTS list is also scanned for FILE information. If 
found, a pointer to the dname is passed in the component’s 
FVT. 


IDCRMO1 


Procedures: CTLGPROC, DELTPROC, CLUSPROC, 
CPLPROC, FVTPROC 


2 CTLGPROC issues a UCATLG macro to invoke VSAM 
catalog management. If VSAM issues a return code of 8, 
DELTPROC issues a UCATLG to delete the object from 
the catalog, and then CTLGPROC issues a UCATLG to 
define the object. Should any of these UCATLGs fail, or 
should the original define fail with a return code other 
than 8, an error conversion table is built for the VERROR 
function. UERROR is called to print the error message 
based on the catalog return code. 


If any nonzero allocation condition codes are returned by 
catalog management, volume allocation status error 
message(s) are printed. Control is passed to IDCRMO1 for 
the next object. If the define is successful, control returns 
to CLUSPROC. 


If a recovery volume serial number is returned for the 
define, a UPRINT macro is issued to print it. If the define 
was for a unique data set on a fixed block device, 


UPRINT macro(s) are issued to print the actual blocks 
allocated on each volume. 


If the cluster or alternate index has any associated paths, 
CLUSPROC builds catalog parameter lists for each path 
from control records on the portable data set. CPLPROC 
builds the CTGPL, and FVTPROC builds the FVTs and 
the FPLs. CLUSPROC calls CTLGPROC to issue the 
UCATLG macro to define the path. Then RECPROC is 
called to perform step 3. 


IDCRMO1 
Procedures: RECPROC, ALTRPROC, OPENPROC 
3 If the data set is empty, GETs (UGET macro) are issued 


to the portable data set until an EOF is reached. If the 
OUTFILE parameter is present, RECPROC calls 
ALTRPROC to rename the VSAM object to be loaded to 
the dummy name returned by the UIOINFO. RECPROC 
calls OPENPROC to build an OPNAGL with a flag set to 
indicate RECORDMODE or CIMODE and to issue a 
UPOEN macro to open the newly-defined VSAM file. If 
the OUTFILE parameter is omitted, the newly defined 
file’s file-id and catalog name (if present) from the 
CATALOG parameter are placed in the OPNAGL for 
UOPEN. RECPROC issues a UCOPY macro to copy data 
records from the portable data set to the VSAM object. 
UCLOSE closes the VSAM object. If the OUTFILE 
parameter is present, ALTRPROC is called to alter the 
name of the object just loaded back to that under which it 
was defined. 


Processing returns to Diagram 3.14, step 2, for the next 
item on the portable data set. 
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Diagram 3.14.2. IMPORTRA FSR — USERCATALOG 


From Diagram 3.14 


PROCESSING 
Portable Data Set 


VSAM 
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VSAM 
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Z: Writes message. 


User Catalog 


Register | 
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Extended Description for Diagram 3.14.2 
IDCRMO01 


Procedures: CPLPROC, UCATPROC, GETPROC, 
LVLRPROC, NFVTPROC, CTLGPROC, CPLPROC, 
DELTPROC 


1 CPLPROC builds a CPL to be used to connect the user 
catalog pointer. UCATPROC then issues a UGET to get 
the catalog control record and calls GETPROC to obtain 
the catalog data record. LYVLRPROC builds a DEVTYPE 
FPL and a volume serial list on the basis of information 
supplied on the portable data set or furnished through the 
OBJECTS parameter. NFVTPROC builds an FVT for the 
define. CTLGPROC issues a UCATLG macro to connect 
the user catalog. If the VSAM catalog return code is 8, 
then CPLPROC builds a CPL to do a disconnect 
operation, and DELTPROC actually invokes catalog to 
perform this operation. Should this succeed, a second 
attempt is made to connect the user catalog. 


IDCRMOl1 
Procedure: ALISPROC 


2 For each alias item on the portable data set, ALISPROC 
prints a message indicating that aliases are not processed 
in VSE. Control then returns to Diagram 3.14, step 2, for 
the next item on the portable data set. 
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Diagram 3.14.3. IMPORTRA FSR — NONVSAM 


From Diagram 3.14 





PROCESSING 





Portable Data Set 


NonVSAM 
Data Set 


1 « Imports nonVSAM data set. 


2. Writes message. 
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Extended Description for Diagram 3.14.3 


IDCRM01 


Procedures: CPLPROC, NVSMPROC, GETPROC, 
LVLRPROC, NFVTPROC,CTLGPROC, CPLPROC, 
DELTPROC 


1 CPLPROC builds a CPL to be used to connect the user 
catalog pointer. NVSMPROC then issues a UGET to get 
the catalog control record and calls GETPROC to obtain 
the catalog data record. LVLRPROC builds a DEVTYPE 
FPL and a volume serial list on the basis of information 
supplied on the portable data set or furnished through the 
OBJECTS parameter. NFVTPROC builds an FVT for the 
define. CTLGPROC issues a UCATLG macro to define 
the nonVSAM data set. If the VSAM catalog return code 
is 8, then CPLPROC builds a CPL to do a delete 
operation, and DELTPROC actually invokes catalog to 
perform this operation. Should this succeed, a second 
attempt is made to define the nonVSAM data set. 


IDCRMO1 
Procedure: ALISPROC 


2 For each alias item on the portable data set, ALISPROC 
prints a message indicating that aliases are not processed 
in VSE. Control then returns to Diagram 3.14, step 2, for 
the next item on the portable data set. 
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Diagram 3.14.4. IMPORTRA ~— GDG BASE 


INPUT 
Portable Data Set 
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From Diagram 3.14 


PROCESSING 


1. Writes a warning message. 
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Extended Description for Diagram 3.14.4 
IDCRMO!1 
Procedures: GDGPROC 


1 GDGPROC issues a warning message indicating that 
GDG bases cannot be defined in VSE. It then issues 


successive UGETs until an end-of-file indication is found. 
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Diagram 3.15 RESETCAT FSR 


INPUT 


t GDT 
t FDT 


VSAM 
Catalog 


CRA 
Volumes 


Work 
File 


VSAM 


Catalog 
to be reset 





From Executive 
Controlled Termination 


PROCESSING 


1. Does initialization for RESETCAT processing. 


See Diagram 
Steps 2, 3 and 4 are executed repeatedly until 


enough control intervals exist in the catalog for 
the catalog to be reset: 


2. Copies catalog to work file. 
See Diagram 
Merges the CRAs to the work file. 
See Diagram 
Ensures there are enough control intervals for 
reassignment. Extends catalog if enough control 


intervals are not available. Returns control to 
Step 2 if catalog is extended. 


Reassigns control interval numbers as necessary. 
See Diagram: 
Checks associations, control intervals and space. 


See Diagram 


Updates catalog 
Updates CRA(s) if necessary. 
See Diagram 


Releases Resources. 


OUTPUT 


Reset 
Catalog 


Volumes 
to be reset 


Register 1 


t LASTCC 
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Extended Description for Diagram 3.15 


IDCRS01, IDCRS06 
Procedure: INIT, DSOPEN, CATINIT, WFDEF 


called to merge the CRA records into the work file and the 
VOLCHK procedure is called to perform the volume 
consistency check. 


1 INIT is the first procedure called by RESETCAT. It uses 


the UGPOOL macro to obtain work areas common to all 
of RESETCAT, and initializes them. The catalog to be 
reset is opened, verified and validity checked. Next, 
exclusive control over the catalog is obtained via the 


IDCRS01, IDCRS05, IDCRS06, IDCRS07 


Procedures: ENSURECI, DSCLOSE, CATEOV, CKERR, 
DSOPEN, CATINIT 


4 ENSURECI ensures that there are enough free control 


UENQ macro. The catalog in which the work file will be 
defined is also opened and then the work file is defined 
and opened. An entry in the RESVOL table is created for 
each CRA volume identified by the CRAFILES 
parameter. Finally, INIT builds the CIXLT table. The 
CIXLT table is used to translate a catalog control interval 
number into a work file relative record number. 


The following three steps, Steps 2,3, and 4 form an 
iterative loop. These three steps are executed repeatedly 
until the catalog to be reset has enough control intervals. 


IDCRS01, IDCRS0S5, IDCRS06 
Procedure: COPYCAT, BLDVLST, SCNRLST, DSCLOSE 


2 COPYCAT performs the initial load of the work file from 
the catalog to be reset. The CIXLT table built by INIT 
maps every catalog DATA control interval number (CIN) 
to a relative record number (RRN) slot in the work file. It 
also indicates whether the control interval is for the low 
key range (LKR) or high key range (HKR) portions of the 
catalog. LKR records from the catalog are written to the 
work file as normal RRDS records. HKR records are also 
written to the work file, however, for each HKR record 
written, a flag is set indicating that that control interval 
will later be reassigned. Dummy records (formatted 
control intervals with no data in them) are written to the 
work file to represent that portion of the catalog which 
extends from the first unformatted free control interval to 
the LKR high allocated control interval. A table 
(VOLSERTB) is built from all volume records read from 
the catalog. Free records and records which belong toa 
CRA specified for reset are maintained on an “available” 
chain and an “available” count is kept for these records. 
When processing is completed, the work file is closed. 


IDCRS01, IDCRS05, IDCRS06 


Procedures; MERGECRA, DSOPEN, SCNRLST, CKERR, 
PROCCRA, VOLCHK, DSCLOSE 


3 MERGECRA merges each reset CRA into the work file. 
Each CRA is opened. The cluster record is read and the 
catalog name is verified. The PROCCRA procedure is 


intervals for reassignment. If the number of control 
intervals to be reassigned are less than or equal to the 
number of control intervals available, a flag, RSENUFCI 
is set, indicating that enough control intervals are available 
for reassignment. However, if the control intervals to be 
reassigned are greater than the number available, 
ENSURECI forces the extension of the catalog by 
performing the following: 


The catalog is closed by calling DSCLOSE. Next, all 
storage obtained during COPYCAT processing is freed by 
issuing UFPOOL. The highest formatted work file relative 
record number is saved in RSWFHURR and CATEOV is 
called to extend the catalog by writing free records into the 
catalog until the catalog has been extended and sufficient 
control intervals are available for the reset operation. If 
CATEOV returns with an error condition, CKERR is 
called to terminate RESETCAT processing. 


After the catalog is successfully extended, DSOPEN is 
called to re-open and verify the catalog. CATINIT is 
called to re-establish the catalog’s geometry by building 
the CI to RRN translate table (CIXLT). 


IDCRS01, IDCRS05 
Procedures: REASSIGN, ADDUPCR 
5 The REASSIGN procedure performs control interval 


(CIN) reassignment. The invalid and duplicate records on 
the reassign chain are assigned to valid CINs from the 
available chain. Each record on the reassign chain is read 
and an “available” record from the available chain is 
found. The reassign record is copied to the “available” 
record buffer; the CIN is changed to reflect the CIN of the 
“available” record. If there is a pointer to a duplicate 
record (DUPPTR), it is copied from the reassign record’s 
processing field. The “available” record is then updated to 
reflect the reassigned record. The record whose DUPPTR 
points to the reassigned record’s relative record number is 
found by following the duplicate record chain. The 
DUPPTR of this record is changed to reflect the 
“available” record’s CIN. This record is then updated. 


IDCRS02, IDCRSO3 
Procedures: ASSOC, PROCTYPE, VERDSDIR, PROCVOL 


6 


The ASSOC procedure controls the checking of all control 
interval numbers (CIN) in all records being reset. This 
includes CINs in associations and data set directories. 
ASSOC also controls the checking for any space conflicts 
of VSAM data sets. 


IDCRSO1, IDCRSOS, IDCRS07 
Procedures: UPDCAT, CKERR, ADDUPCR, ENTNMCK, 


SCNRLST, RENAMEP, UPDCCR, CRAUPCHN, 
DELTN, ADDTN 


UPDCAT updates the catalog from the work file. At this 
point, any records in the work file which do not match the 
catalog, must be written to the catalog. Each valid work 
file record is read and if the “update catalog” flag is on, 
the record is written to the catalog low key range (LKR). 
True names are deleted from and added to the catalog 
high key range (HKR) as necessary. If the “update CRA” 
flag is on, the control interval of the work file record is 
placed on the CRA update chain. The free record chain is 
rebuilt. 


IDCRSO1, IDCRS05, IDCRS06 


Procedures: UPDCRA, SCNRLST, DSOPEN, DSCLOSE, 
CKERR 


UPDCRA updates CRAs from the work file. Each entry in 
RESVOL (a table containing an entry for each volume 
whose CRA is required in the reset operation) is obtained. 
If there are any updates to be made in the CRA, it is 
opened, updated, and closed. If any free records are placed 
in the CRA, the CCR record is updated. 


IDCRS01, IDCRS05 
Procedures; WRAPUP, CLEANUP, CKERR 


9 


If RESETCAT processing is successfully completed, 
WRAPUP is the last procedure called. WRAPUP ensures 
that all resources obtained by RESETCAT are freed, it 
prints the message that processing is complete and then 
returns control to the system. 
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Diagram 3.15.1 RESETCAT FSR — Initialization 


From Diagram 3.15 





INPUT 


PROCESSING 


1. Gets space for and initializes work areas. 


2. Opens the catalog to be reset. Opens the 
work file catalog. 





VSAM 
Catalog 






3. Defines and opens the work file. 





Volumes 


4. Builds volume entries from CRAFILES/ 
CRAVOLUMES volumes. 






VSAM 
Catalog 
to be reset 







= 


OUTPUT 








RESLETCAT 
Work 
Areas 








Catalogs 


Opened 







Work file 
Defined, 
Opened 








RESVOL 
Table 
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Extended Description for Diagram 3.15.1 
IDCRS01 
Procedures: INIT 


1 INIT issues the UGPOOL macro to obtain storage for the 


following work areas: 
e CRA user buffer 


¢ Record Management control blocks (GRAB, 
BUFFER) 


e WJHCPL CVH parameter list 


¢ Control blocks for Catalog Management LOCATE 
macro (CPLs and FPLs) 


The FDT is checked to see if IGNORE is specified, if so, a 


flag, (RSIGNORE) is set in RSWORK. After obtaining 
the above storage, INIT formats the RESETCAT record 
management control blocks. Control blocks (CPL and 
FPL) of Catalog management are also formatted along 
with certain portions of the main work area. 


IDCRS01, IDCRS05, IDCRS06 
Procedures: INIT, DSOPEN, CKERR 


2 DSOPEN is called to open the catalog to be reset. Validity 


checks are made on the catalog to ensure that it is 
recoverable. CKERR is called if these checks fail. 


Exclusive use of the catalog is ensured by issuing the 


UENQ macro to obtain exclusive use of the ENQ name of 


the catalog (Rvolser RSC00). If it is determined that the 
catalog is in use by someone else, CKERR is called. 


DSOPEN is called to perform a VERIFY operation on the 


catalog, the high used RBA of the catalog is adjusted if 
necessary. 


- UGPOOL is issued to obtain storage for the CIXLT table. 


IDCRS01, IDCRS05, IDCRS06 


Procedures: INIT, RECMGMT, WFDEF, DSOPEN, 
CKERR 


3 RECMGMT is called (with the GETRCD option) to get 
control interval zero (Cl=0) from the catalog. The high 
allocation data Cl is computed (HARBADS/512) and 
saved in RSCAHACI. 


The primary and secondary extents of the work file are 
computed as follows: 


Primary = no. of records currently allocated in the 
catalog. 


Secondary = (MAXCI*2 - primary) + 125 
126 


where MAXCI = Largest CI number possible for a 
catalog. 


DSOPEN is called to open the catalog into which the 
work file is to be defined. 


The WFDEF procedure is called to define the work file. If 
it is found that the work file is defined in the catalog being 
reset, CKERR is called. 


DSOPEN is now called to open the work file. 


IDCRS01, IDCRS05, IDCRS06 
Procedures: INIT, CKERR, CATINIT 
4 The RESVOL table is constructed consisting of an entry 


for each CRA volume supplied by the invoker of 
RESETCAT with the CRAFILES or CRAVOLUMES 
parameter. Each entry consists of fields for volume serial 
number, device type, system logical unit (CRAVOLUMES 
only), and the file name of the DLBL statement 
(CRAFILES only). A pointer, RSVOLALL points to the 
first entry in the table and each entry is chained to the 
next. A flag indicates the last ‘ALL’ entry which is 
followed by the ‘NONE’ entries. 


If CRAFILES is specified, the volume serial number of 
the CRA is obtained via the UIOINFO macro. If 
CRAVOLUMES is specified, the volume serial number of 
the CRA is contained in the subparameters.The volume 
serial number of the CRA is inserted in RESVOL entry. If 
the catalog volume serial number is specified, its RESVOL 
entry is positioned as the first entry in the list. 


If no CRA is specified with the ALL subparameter, 
CKERR is called to flag an error condition. 


CATINIT is called to build the CIXLT table. The CIXLT 
maps the catalog control intervals to the work file relative 
record numbers. There is an entry in CIXLT for each 
catalog extent. 
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Diagram 3.15.2. RESETCAT FSR — Copy Catalog to Work File 


INPUT 
Register 1 


+t GDT 
t FDT 


VSAM 
Catalog © 


—> 
Es 
Ex 
eons 


VSAM 


CRA 
Volumes 


Catalog 
to be reset 


RESETCAT 
Work 










Areas 





From Diagram 3.15 


PROCESSING 


Checks catalog extents. 


Processes high key range extents. 


Processes low key range extents - - formatted 
records. 


- Processes unformatted records. 


Closes the work file. 





OUTPUT 


Initial loading of work file. 
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Extended Description for Diagram 3.15.2 


IDCRS01 
Procedures: COPYCAT 


1 The COPYCAT procedure obtains each entry from 
CIXLT and examines it to see if the first control interval 
number in the entry is greater than the catalog low key 
range (LKR) high allocated control interval. If so, it 
indicates COPYCAT processing is complete and control 
returns to the main procedure, IDCRSO!. 


Another test is made to see if all 127 entries have been 
processed, if so, control returns to main line IDCRSO! 
processing. 

2 ifthe CIXLT entry represents a high key range (HKR) 
extent, a flag is set indicating that this is an “invalid” 
record in the work file. A dummy record is formatted and 
written to the work file as follows: 


e Ifthe relative record number (RRN) is greater than the 
high formatted relative record number in the work file, 
RECMGMT (ADDRCD) is called to add the record to 
the work file. 


e Ifthe RRN is not greater, RECMGMT (UPDRCD) is 
called to update the record in the work file. 


3 Ifthe CIXLT entry represents a LKR extent, the record is 
processed as a formatted record. If the CI of the record is 
less than the next free unformatted catalog CI, then 
GETRCD of the RECMGMT procedure is called to read 
the record from the catalog. The catalog record is moved 
to the work file buffer. If the record happens to be a free 
record (not currently used in the catalog), it is placed on 
the available chain. The count of available records is 
incremented. If it is not a free record and if it is a volume 
record, then a VOLSERTB entry consisting of volume 
serial number and CI number is formatted. BLDVLST is 
called to add this entry to the VOLSERTB table. In order 
to check to see if the record is also on a CRA specified for 
reset, SCNRLST is called. If it isa CRA record, a flag is 
set indicating that the record is to be deleted. The record is 
placed on the available chain and the available count is 
incremented. LKR records are written to the work file as 
follows: 


e Ifthe RRN is greater than the high formatted RRN, 
ADDRCD is called to add the record to the work file. 


e ifthe RRN is not greater, then UPDRCD is called to 
update the record in the work file. 


4 Ifthe Cl of the record is equal to or greater than the next 
free unformatted Cl in the catalog, then the “update 
catalog” flag is set in the work file processing field and a 


dummy free record is formatted. The dummy record is 
placed on the available chain and the available count is 
incremented. If the CI of the record is equal to or greater 
than the End of Volume unformatted free Cl, then the 
“invalid” flag is set in the work file processing field. A 
dummy record is formatted. The unformatted dummy 
record is written to the work file as follows: 


e Ifthe RRN is greater than the high formatted RRN, 
then ADDRCD is called to add the record to the work 
file. 


e Ifthe RRN is not greater, UPDRCD is called to 
update the record in the work file. 


IDCRS01, IDCRS06 
Procedures: COPYCAT, DSCLOSE 
5 The “work file created” flag is tested; if it is off, 


DSCLOSE is called to close the work file. 
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Diagram 3.15.3. RESETCAT FSR — Merge CRA(s) to the Work File 


From Diagram 3.15 


PROCESSING 


1. Opens the work file. 


Steps 2 through 5 are executed repeatedly for 
each entry in the RESVOL Table. 


Ce. 


eae 2: Opens the CRA. 
RA . ; 
. 3. Merges CRA records into work file. 
Volumes 


4. Closes the CRA. 





5. Performs volume consistency check. 


RESETCAT 
Work Areas 





OUTPUT 


Work tile with merged CRA records. 
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Extended Description of Diagram 3.15.3 


IDCRS01, IDCRS06 
Procedures: MERGECRA, DSOPEN 


1. The “work file open” flag is tested to see if the work file is 
already open, if off, DSOPEN is called to open the work 
file. 


Steps 2 through 5 form an inerative loop. These four steps 
are executed repeatedly for each entry in the RESVOL 
table. 


2 The SCNRLST procedure is called to obtain an entry 
from the RESVOL table indicating the volume serial 
number of a CRA specified for the reset operation. If 
SCNRLST finds that all entries are processed and if the 
“termination” flag is on, CKERR is called to print an 
error message and terminate processing. If SCNRLST 
successfully returns a CRA volume serial number, 
DSOPEN is called to open this CRA. If open fails, flags 
are set to terminate processing and to bypass the volume 
consistency check. If the open is successful, RECMGMT 
(with GETRCD option) is called to read the CRA cluster 
record (CI=2), If the CRA entry name is not for the 
catalog being reset, then CKERR is called to print an error 
message. Flags are set to terminate processing and to 
bypass the volume consistency check. 


IDCRS0O1 
Procedures: MERGECRA, PROCCRA 


3 PROCCRA is called to merge CRA records into the work 
file. 


Beginning with the volume record, each CRA record is 
read and merged. The CIN of the volume record is 
updated/added to VOLSERTB, so that Volume records 
may be located later. The work file record corresponding 
to the catalog control interval (CATCI) of each CRA 
record (except CRA free records) is read. If the work file 
record is free or available, the CRA record replaces it. If 
the work file record has already been replaced or if the 
work file record does not belong to a reset CRA, the CRA 
record is written to the overflow area and maintained on 
the duplicate chain for that CATCI. Records written to the 
overflow or “invalid” areas of the work file are placed on 
the “reassign chain” and a “reassign count” is kept for 
these records. Each time a free or available work file 
record is replaced, the “available” count is decremented. 


IDCRS0O1, IDCRS06 
Procedures: MERGECRA, DSCLOSE 


4 Ifthe “CRA open ” flag is set, DSCLOSE is called to close 
the CRA. If close fails, flags are set to terminate processing, 
and to bypass the volume consistency check. 


IDCRSO1, IDCRS03 
Procedures: MERGECRA, VOLCHK, HVTOC 


§ Ifthe flag to bypass the volume consistency check is not 
on, VOLCHK is called to perform the volume consistency 
check. 


VOLCHK ensures that there is a one to one 
correspondence between each VSAM data space on a 
volume (format | label in the VTOC) and each space 
header in the volume record for that volume. This is done 
by calling the HVTOC procedure to read each label in the 
VTOC (through an interface with the common VTOC 
handler) and then comparing the VSAM-owned label with 
the corresponding volume record space header. If a format 
1 label does not have a corresponding space header, the 
label is scratched by calling HVTOC. Ifa space header 
refers to a non-existent format | label, the space header is 
deleted. If the extents in a space header are not identical to 
the extents in the corresponding format | label, the extents 
in the space header are corrected. 
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Diagram 3.15.3.1 RESETCAT FSR - Common VTOC Handler Functions 


From Diagram 3.15.3 


INPUT PROCESSING 
Register 1 


1. Calls IJJHCVHO to perform the required 
common VTOC handler function. 


2. Returns. 





be performed 





OUTPUT 


Appropriate 
CVH 
function 
performed 
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Extended Description for Diagram 3.15.3.1 


IDCRS07 
Procedure: HVTOC 


1 RESETCAT calls the HVTOC procedure to perform ail 
common VTOC handler (CVH) functions. After 
examining the name of the function to be performed, 
HVTOC issues the appropriate CVH macro (OVTOC, 
CVTOC or various forms of PVTOC). This macro builds 
the CVH parameter list (IJJHCPL) and calls the topmost 
CVH module (JJHCVHO). 


Valid names of HVTOC functions to be performed are as 
follows: 


CLOSE - close the VTOC 

OPENbb - open the VTOC 

RADDR - read label from specified address 
RENME - rename the label 

RFMT4 - read the format-4 VTOC label 
RNEXT - read the next VTOC label 
SCRTH - scratch a label 

WADDR - write label to specified address 


For more information on the CVH parameter list and the 
VSE CVH routines that perform the above functions, see 
DOS/VSE Fixed Block Architecture Logical IOCS. 
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Diagram 3.15.4. RESETCAT FSR — Reassign CI Numbers 


From Diagram 3.15 


INPUT PROCESSING 


Reads a work file record to be reassigned. 


Finds an available record. 


Updates available record and writes to work 
file. 


Processes duplicate chain. 


VSAM 
Catalog 
to be reset 


RESETCAT 
Work 
Areas 





OUTPUT 


Work 
File 


CINs in work file reassigned 
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Extended Description of Diagram 3.15.4 


IDCRS01, IDCRS06 
Procedures: REASSIGN, RECMGMT 


1 


Before it reassigns any records, the REASSIGN procedure 
determines whether any records need to be reassigned. If 
the reassign count is zero, it means no records need to be 
reassigned. Control is returned to mainline IDCRSO1 
processing. Control is also returned if all records on the 
reassign chain have been read. 


RECMGMT (with GETRCD option) is called to read the 
next record on the reassigning chain. The reassign chain 
pointer is saved. 


IDCRS01, IDCRS06 
Procedures: REASSIGN, RECMGMT 


2 


The next record on the available chain is read via 
GETRCD. The available chain pointer is saved. If the 
“replaced from CRA” flag is set, then this record cannot 
be used, so the next record on the available chain is read 
until an available record is found. 


IDCRSO1, IDCRS06 
Procedures: REASSIGN, ADDUPCR, RECMGMT 


3 


The reassign record is moved to the available record 
buffer. The reassign DUPPTR is copied to the available 
DUPPTR. Two flags, “replaced from CRA” and “update 
catalog”, are set. ADDUPCR procedure is called to 
perform CRA update processing. A flag indicating that the 
record is reassigned is set. 


RECMGMT (with the UPDRCD option) is called to write 
the update available record to the work file. 


IDCRS01, IDCRS06 
Procedures: REASSIGN, RECMGMT 


4 


The relative record number (RRN) of the reassigned 
record is saved. RECMGMT (GETRCD) is called to read 
the record pointed to by the catalog control interval of the 
reassigned record or the DUPPTR. If the DUPPTR does 
not point to the RRN of the reassigned record, then the 
next record on the duplicate record chain is read. When 
the record is found, the DUPPTR is updated to point to 
the CI of the available record. RECMGMT (UPDRCD) is 
Called to write the record back to the work file. 
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Diagram 3.15.5 RESETCAT FSR — Check Associations 


From Diagram 3.15 


INPUT PROCESSING 


1. Processes all LKR records in the work file: 


Work . Reads a work file record. 
File 
. Calls PROCTYPE for CRA records and 

entry types C, B, A, U or X. 


. Verifies data set directories for D and I 
entry types. 


Zz: Processes all reset volumes. For each reset 
volume: 


a. Reads the volume record from the work 
file. 


RESETCAT 


Work 
Areas b. Calls PROCVOL to process the volume 


record. 








OUTPUT 


Work 
File 
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Extended Description for Diagram 3.15.5 


IDCRS02, IDCRS06 


Procedures: ASSOC, RECMGMT, PROCTYPE, 
VERDSDIR 


1 a. Each work file record is read sequentially up to the 
high allocated catalog control interval. Each record is 
checked to see if the “associations checked” flag is on. 
If it is, control goes to step 2. 


b. Ifthe flag is not on and if the record is from a CRA 
being reset, then for each C,B,A,U or X record, the 
PROCTYPE procedure is called to process control 
interval numbers. 


For a given catalog entry type, PROCTYPE controls 
the process of scanning a catalog record for control 
interval numbers. It determines which other records 
which along with the given record are a part of a set of 
records. It verifies all control interval numbers in the 
entire set of records. Control interval numbers are also 
corrected if necessary. 


c. VERDSDIR is called to check data set directories if 
the entry type is D or I. The VERDSDIR procedure 
verifies the data set directory entries for VSAM data 
sets which are not on reset volumes. It specifically 
looks for multivolume VSAM data sets where the 
primary volume is not a reset volume but a secondary 
volume is a reset volume. VERDSDIR changes work 
file records to correct error conditions, namely it marks 
a volume group occurrence (VGO) unusable when no 
data set directory exists for that data set. 


IDCRS02, IDCRS06 
Procedures: ASSOC, RECMGMT 


2 a. For each reset volume, the volume record is read from 
the work file via RECMGMT (GETRCD). 


Procedures: ASSOC, RECMGMT, PROCTYPE, 
VERDSDIR 


b. The PROCVOL procedure is called to process the 
volume record. 


PROCVOL controls the checking of space conflicts for 
each volume record. PROCVOL calls PROCTYPE to 
find and verify each control number in a volume 
record and its extensions. PROCVOL verifies and, if 
necessary, corrects the volume space bit map. 
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Diagram 3.15.6 RESETCAT FSR — Update the Catalog 


INPUT 











VSAM 
Catalog 
to be reset 


RESETCAT 
Work 
Areas 






From Diagram 3.15 
PROCESSING 


. Reads a work file record. 


Reads a catalog record. 


Writes a record to the catalog low key range 
(LKR) and rebuilds the free chain. 


Processes true names. 
Writes a record to the work file. 
Renames duplicate true names. 


Updates catalog control record (CCR) 





OUTPUT 


VSAM 
Catalog 
to be reset 


Records added and/or deleted from 
the catalog. 
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Extended Description for Diagram 3.15.6 
IDCRS0S, IDCRS06, IDCRS07 
Procedures: UPDCAT, CKERR, RECMGMT 


UPDCAT ensures that all CRAs required for updating are 
available by checking the “update CRA unavailable” flag 
(RSBADVOL). If the check shows that a CRA is not 
available, the CKERR routine is called to print a message 
and terminate RESETCAT processing. 


Each catalog extent in the work file is processed by 
checking each entry in CIXLT. If the extent represents a 
HKR, it is ignored. Only LKR extents are considered. For 
each LKR extent, RECMGMT (GETRCD) is called to 
read a work file LKR record. 


IDCR S06, IDCRS07 
Procedures: UPDCAT, RECMGMT, ENTNMCK 
2 For each work file record read the “update catalog” flag 


(RSWUPCAT) is tested and if the flag indicates the 
catalog should be updated, the corresponding catalog 
record is read via the GETRCD routine. 


IDCRS06, IDCRS07 
Procedures: UPDCAT, ADDUPCR, RECMGMT 
3 After each catalog record is read, the “association 


checked” flag (RSWASSCK) is tested. If it is not on, the 
ADDUPCR routine is called to prepare for update CRA 
processing. The ENTNMCK procedure is called to 
determine if the catalog record has a true name; if there is 
a true name, a flag is set and the true name is saved. Next, 
ENTNMCK is called again to see if the work file record 
has a true name. If it does, a flag is set. 


If the record is free or the “association checked” flag is off, 
a deleted free work file record is formatted in the catalog 
buffer and placed on the free chain, otherwise the work 
file record is moved to the catalog LKR buffer. If the 
control interval number of the record is greater than or 
equal to the first unformatted free control interval, 
RECMGMT (ADDRCD) is called to add the record to the 
LKR. If the CIN is less than the first unformatted free 
CIN, the UPDRCD option of RECMGMT is called to 
update the catalog record. 


| IDCRso0s, IDCRSO6, IDCRSO7 


Procedures: UPDCAT, RECMGMT, DELTN, ADDTN 
4 Ifthe catalog record has a true name and the work file 


record does not (or has a true name different from the 


catalog), then the true name is deleted from the catalog 
HKR by calling DELTN, provided the CIN is correct. 


If the work file record has a true name and the catalog 
record does not (or has a true name different from the 
work file), ADDTN is called to write a true name record. 
If ADDTN indicates a duplicate record exists, the work 
file record is placed on the true name chain for a future 
rename operation (see Step 6). The “write work file” 
(RSUCTWWF) flag is set. 


IDCRS05, IDCRS06, IDCRS07 
Procedures: UPDAT, SCNLST, RECMGMT, CRAUPCHN 


5 


UPDCAT checks to see if the “update CRA” flag 
(RSUPCRA) is on. If it is, the SCNRLST routine is called 
to scan the RESVOL table for the CRA volume serial 
number. Next, the work file record is placed on the CRA 
update chain for this CRA volume by the CRAUPCHN 
procedure. The “write work file” flag is set. 


If the “write work file” flag (RSUCTWWFE) is on, 
UPDRCD is called to update the work file record with the 
true name chain pointer and/ or the CRA update pointer. 


IDCRS06, IDCRS07 
Procedures; UPDCAT, RECMGMT, RENAMEP, ADDTN 


6 


After all the catalog LKR extents have been processed, the 
true name chain is checked. If the chain is not empty, the 
GETRCD routine of RECMGMT is called to read a work 
file record on the true name chain. The ADDTN routine is 
called to add the true name to the catalog HKR. Ifa 
duplicate name is detected, then the RENAMEP 
procedure is called to assign a new name to the true name. 


IDCRS06, IDCRS07 
Procedures: UPDCAT, RECMGMT, UPDCCR 


7 


The GETRCD routine of RECMGMT is called to read 
the CCR (control interval number 3). The following items 
in the CCR are updated by UPDCCR: 


e First unformatted free record 

e Count of deleted free records 

e Control interval number of first deleted free record 
e High RBA maintained in the CCR 


After the above items are changed, RECMGMT (with 
UPDRCD option) is called to write the updated CCR 
back to the catalog. 
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Diagram 3.15.7 RESETCAT FSR — Updates the CRA 


From Diagram 3.15 





INPUT PROCESSING 





a. Opens the CRA. 


b. Reads a work file record. 


RESETCAT 


; d. 
Work Areas c. Writes a CRA recor 


d Control 
eee ™ d. Closes the CRA. 





Work 
File 


1. Updates the CRA if necessary. 


OUTPUT 


CRA Volumes updated if necessary. 


Wa] J0 Aj29d01g — jeyiapeyAl posuedy] 


uonssedg jo pope :7 19}d¥y> 


LSI-2 


Extended Description for Diagram 3.15.7 


IDCRSO1, IDCRSO0S5, IDCRS06 
Procedures: UPDCRA, SCNRLST, RECMGMT, CKERR 


1 a. The SCNRLST routine is called to obtain a CRA 
volume serial number entry from the RESVOL table. 
A check is made to see if this CRA needs to be updated 
by checking if the CRA update chain is empty. If the 
open is successful, the “CRA open” flag ts set, if not, 
the “termination” flag is set. 


b. Each record in the CRA update chain is read from the 
work file RECMGMT (GETRCD). The control 
interval number of the next record in the chain is 
saved. If the record just read happens to be a free 
record, the CRA CCR record needs to be updated. If 
the CCR has not been read already, RECMGMT 
(GETRCD) is called to read it. The deleted free record 
count in the CCR is incremented, and the record is 
placed on the CRA free chain. 


c. The record read from the work file is moved to the 
CRA buffer. Control interval information ts inserted 
and RECMGMT (UPDRCD) is called to write an 
updated record in the CRA. 


After all records in the CRA update chain have been 
processed for a specific CRA, RECMGMT 
(UPDRCD) is called to write the updated CCR record 
back to the CRA. 


d. DSCLOSE is called to close the CRA. If the close fails, 
the “termination” flag is checked. If it is set, CKERR 
is called to print an error message and terminate 
RESETCAT processing. If the termination flag is not 
set, control returns to the caller. 


Wal Jo Ajzadoig — [¥]1038],] posuesy] 


8S1~-7 


STBO'T SOOIAIOg POTOW s8900V WIWSA/ASA 


Diagram 3.16. CANCEL FSR 


INPUT 


Register 1 


4 GDT 
4 FDT 
+ LASTCC 


‘JOB’ keyword 
‘STEP’ keyword 


EXECUTIVE 


PROCESSING 


. Set Access Method Services last-condi- 
tion code to 16 (termination). 


. Issue normal command termination 
message but with condition code set 


to 16. 


In the CANCEL JOB situation, issue 
the UABORT macro with NODUMP 


indicator. 


In the CANCEL STEP situation, return 
to the EXECUTIVE with the termina- 


tion code in LASTCC. 





EXECUTIVE 


OUTPUT 


LASTCC 


Register 15 


(Cancel ABORT code) 
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Extended Description for Diagram 3.16 
IDCCL01 
1 Set the last-condition-code to 16. 


IDCCLO01 
Procedure: IDCCLO1 


2 The message IDCCOOII is issued. The condition code is set 
to 16. 


IDCCL01 
Procedure: IDCCLO1 


3 The UABORT code is 76. The value is negative to signal 
UABORT that no PDUMP is needed. 


If Access Method Services was called as a subroutine, 
UABORT returns control to the caller of Access Method 
Services witha value of 16 in register 15. 


If Access Method Services was not called as a subroutine, 
SVC06 is issued and the job stream is flushed to the next 
“/&” or “//JOB” card. 


IDCCL01 Procedure: IDCCLO1 


4 If Access Method Services was called as a subroutine, 
UABORT returns control to the caller of Access Method 
Services with a value of 16 in register 15. 


If Access Method Services was not called as a subroutine, 
the job stream is flushed to EOF by the Access Method 
Services Executive. 
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Termination Visual Table of Contents 


Executive 
Controlled 
Termination 


Processor 
Termination 


1/O Adapter 
Termination 
UIOTERM 
Macro 
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INPUT 


MAXCC 





Register | 







4 LASTCC 
b FSR Name 














Register | 


} GDT 
t EDT 
§ FSR Code 











SYSIPT 


Diagram 4.1. Executive Controlled Termination 


From Reader/Interpreter (R/I) or an FSR 


PROCESSING 


Updates MAXCC. 


If entrance is from R/I, processing 
continues with Step 2; if entrance 


is from an FSR, processing 
continues with Step 3. 


Determines if FSR is to be 


called. 


Releases FDT. 


Sets defaults in Print Control 


Tables. 


Determines if processor is 
terminated. 
See Diagram 9 ——— 


to be 


LILLLLLLLLL SP 


MAXCC 


as 


OUTPUT 





GDTTPH 
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Extended Description for Diagram 4.1 


IDCEX01 
Procedure: MAIN 


1 IDCEX01! compares the LASTCC code returned by the 
FSR or the R/I with MAXCC and puts the greater 
number in MAXCC. If control is from the R/I, MAXCC 
has already been properly set by IDCRIO1!. If entrance is 
from the R/I, processing continues with step 2; if entrance 
is from an FSR, processing continues with step 3. 


IDCEX01 
Procedure: MAIN 


2 if MAXCC is less than 16 or an end-of-file has not been 
reached on SYSIPT, IDCEX01 gives control to an FSR. 
The R/I passes the FSR name to IDCEX0!. If MAXCC is 
greater than or equal to 16 or an end-of-file has been 
reached on SYSIPT, processing continues with step 5. 


IDCEXO1 
Procedure: CALLFSR 


3 IDCEXOI releases storage for the FDT using a UFPOOL 
macro. The pool identification is EX00, and the FDT is 
the only data in the pool. 


IDCEX01 
Procedure: CALLFSR 


4 IDCEXOI sets the Print Control Table to Access Method 
Services default values by issuing a URESET macro 
instruction. 


IDCEX01 
Procedure: MAIN 


§ The processor has terminated if one of the following 
conditions is met: 


© The R/I has detected end-of-file on SYSIPT. In this 
case, the R/I puts a nonzero value in Register 15. 


e Anerror has occurred so that processing cannot 
continue, and MAXCC contains a value greater than 
or equal to 16. 


If one of these conditions is met, control is given to 
Processor Termination, Diagram 4.2. If neither of the two 
conditions is met, control is given to the R/I, Diagram 2.0, 
to obtain the next command. 
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Diagram 4.2. Processor Termination 


INPUT 


Debugging Aids 
Historical Data Area 





SYSIPT SYSLST 
Control Blocks Control Blocks 


PL 


From Diagram 4.1 


PROCESSING OUTPUT 






Maximum Processor 
Completion Code 


A 





Writes maximum processor 
completion code. 


DT 
Terminates TEST options. 


GDTPRM 


Invoker’s 
Parameter List 





Terminates Text Processor. 


Page Number 





Terminates I/O Adapter. 
See Diagram ay 


Terminates System Adapter. 


Ie | 





Register 15 
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Extended Description for Diagram 4.2 


IDCEX03 
Procedure: IDCEX03 


1 IDCEX03 prints a message of the maximum processor 
condition code, MAXCC by using a UPRINT macro. 


IDCEX03 
Procedure: IDCEX03 


2 If TEST options were specified on a PARM command or 
on the EXEC statement that invoked Access Method 
Services, IDCPMO1 has loaded the Debug Module, 
IDCDBO1. IDCEX03 sets GDTDBG, the address of the 
Debug Module, to zero after deleting the Debug Module 
by issuing the UDELETE macro. The address of the 
Debugging Aids Historical Data Area is in GDTDBH. 
IDCEX03 frees the debugging aids historical data area 
used by the UDUMP macro. It also sets GDTDBH to zero 
after the area is freed. 


IDCEX03 
Procedures: IDCEX03, SCANPARM 


3 IDCEX03 terminates the Text Processor by issuing a 
URESET macro. If the invoker of Access Method Services 
wants the last page number returned, IDCEX03 passes the 
address of the invoker’s page number field to the 
URESET macro. 


IDCEX03 
Procedure: IDCEX03 


4 IDCEX03 terminates the 1/O Adapter by issuing a 
UIOTERM macro. Diagram 4.2.1 shows I/O Adapter 
termination in detail. 


IDCSA01 
Procedure: IDCSAO! 


§ IDCSAOlI terminates the System Adapter by freeing the 
storage for IDCSA02, IDCSA03, IDCTP01, and 
IDCIOO!. The Storage Table, AUTOTBL, contains the 
storage addresses for IDCSA02, IDCTPO1, and IDCIOO]. 
The GDT contains the storage address for IDCSA03. 
IDCSAOI also frees the Inter-Module-Trace Table, the 
Intra-Module-Trace Table, the System Adapter Historical 
Data Area, and the GDT. When the System Adapter 
receives control, Register 15 contains MAXCC. IDCEX01 
copied MAXCC into Register 15 for the Access Method 
Services invoker. Control returns to the invoker. 
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Diagram 4.2.1. I/O Adapter Termination — UIOTERM Macro 


INPUT 


Register |] 


GDT 


Open Data Sets 


1ODATA 


LOCSTR 








From Diagram 4.2 


PROCESSING 








Searches IOCSTR chain for 


open data sets. 


Tests for externally controlled 
data set. 


Closes data sets. 

e Processes error codes. 
e Frees data set storage. 
e Removes IOCSTR. 


Frees 1/O Adapter storage. 


OCARRAY 


OUTPUT 


Closed Data Sets 


Register 15 
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Extended Description for Diagram 4.2.1 
IDCIO01 
Procedure: IDCIOO! 


1 IDCIOO! sets up a loop to close all open data sets, and sets 
the close all option in OCARRAY that permits SYSIPT 
and SYSLST to be closed. 


IDCIO02 
Procedure: CLOSERTN 


2 CLOSERTN examines the IOCSTR chain for the address 
of IOCSTRs to close. For a nonVSAM data set, 
CLOSERTN sets the address of a SYNAD routine in the 
DCB to zero and puts the address of a CLOSE exit routine 
in the DCB. If the data set is not open, IOCFLGOP = 1, 
CLOSERTN determines if it is externally controlled. If so, 
CLOSERTN passes arguments to the external routine. — 
This check is made for up to the first four IOCSTRs in the 
IOCSTR chain. Normally, only the SYSIPT and SYSLST 
IOCSTRs are in the chain at termination. 


IDCIO02 
Procedure: CLOSERTN 


3 CLOSERTN issues a CLOSE macro with the address of 
up to four DCBs or ACBs. If an ABEND occurs during 
the closing of a nonVSAM data set, the operating system 
close routine gives control to a CLOSE exit routine which 
sets a flag in IOCSTRN that will cause the I/O Adapter to 
print an error message. The message is written after 
control returns from the CLOSE SVC. Closing continues 
with the next data set. The following steps are performed 
for each data set: 


e For VSAM data sets, CLOSERTN issues a SHOWCB 
macro to return the ACB error code. If the ACB error 
code is not zero, BLDOCMSG writes a message. 
However, since SYSLST is the first data set closed, 
BLDOCMSG issues a UABORT macro. No test is 
made for nonVSAM data sets. 


e For VSAM data sets, CLOSERTN checks the 
IOCSEX to see if there are any VSAM control blocks 
to free. When any length of the ACB, RPL, or EXLST 
is nonzero, ENVFREE issues a FREEMAIN macro to 
release the control block. For open nonVSAM data 
sets, ENVFREE issues a FREEVIS to free any buffers 
obtained by the operating system open routines. 


e CLOSERTN saves the address of the closed data set’s 
IOCSTR and the address of the next IOCSTR in the 
chain. CLOSERTN issues a UFPOOL macro to free 


storage obtained for the closed data set. CLOSERTN 
searches the IOCSTR chain until the IOCSTR that 
points to the IOCSTR of the closed data set is found. 
CLOSERTN replaces the address of the closed data 
set’s IOCSTR with the address of the next IOCSTR in 
the chain. 


IDCIOO1 
Procedure: IDCIOCL 


4 Processing returns to step | until all data sets have been 


closed. When all data sets are closed, the IOCSTR chain 
no longer exists. CLOSERTN issues a UFPOOL macro to 
free storage obtained by the I/O Adapter. The only 
storage remaining to be freed is IODATA and the message 
area for VSAM data sets. IDCIOCL puts a return code in 
Register 15. Control then returns to the module that issued 
the UIOTERM macro. 
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System Adapter Visual Table of Contents 


System Adapter 
Overview 


Catalog Error Processor Storage 


Management Handling Control Management 
(No Diagram) (No Diagram) (No Diagram) (No Diagram) 





5.1.1 


UCATLG 


5.2.1 5.2.2 
UABORT USNAP 
5.3.1 5.3.2 5.3.3 
UCALL ULOAD UDELETE 


5.4.1 5.4.2 5.4.3 5.4.4 5.4.5 5.4.6 
UGSPACE UFSPACE UGPOOL UFPOOL PROLOG UEPIL 





(No Diagram) 


Parameter 
Interrogation 
(No Diagram) 


5.5.1 


5.6.1 


ULISTLN 


5.7.1 


UENQ 


5.6.2 


USAVERC 


Resource 


Control 
(No Diagram) 
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Diagram 5.0. System Adapter Overview 


From Module 
Issuing Umacro 


PROCESSING 


Register | Register 1 


Issues macro to perform request: 


System Macro 
Argument List 


Catalog management. 
See Diagram 


Error handling. 
See Diagrams 


Processor control. 
See Diagrams 


Storage management. 
See Diagrams 


Time of day. 
See Diagram 


Parameter interrogation. 
See Diagram 


Resource Control 
See Diagrams 


Register 15 


2 Sets return code. 
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Extended Description for Diagram 5.0 


IDCSA01, IDCSA02, IDCSA03, IDCSA05, IDCSA08 


Procedures: IDCSA01, IDCSA02, IDCSA03, IDCSA05, 
IDCSA08 


1 The System Adapter and the I/O Adapter insulate the rest 
of the processor from the operating system. Whenever the 
processor wants a service that requires an operating system 
dependent macro, like GETVIS, the processor calls the 
System Adapter with a Umacro. Different versions of the 
System Adapter and I/O Adapter supply code for 
different operating systems. Except for the System 
Adapter and the 1/O Adapter, the Access Method Services 
modules are oblivious to the operating system. System 
macros in the listings indicate the operating system the 
listing represents. 


Types of services provided by the System Adapter: 


a. Whenever information is to be added, deleted, or 
retrieved from the VSAM catalog, a UCATLG macro 
is issued. Although the VSAM CATLG macro has the 
same parameters in OS/VS and VSE, the general code 
is different. The VSAM CATLG macro must be in a 
program that is assembled under the right operating 
system. Diagram 5.1.1 shows the UCATLG macro in 
detail. 


b. Error handling is accomplished with UABORT and 
USNAP. For errors, when processing cannot continue, 
a UABORT is issued to print an error message and a 
dump and return control to the operating system. If the 
error condition is due to no space available, only an 
error message is printed; no dump is printed. For 
debugging information, a USNAP is issued to print the 
partition and return control to the Access Method 
Services module that issued the USNAP. Diagrams 
5.2.1 and 5.2.2 show the UABORT and USNAP 
macros in detail. 


c. Inter-processor module control is accomplished with 
UCALL and ULOAD. UCALL loads a module and 
gives control to it. It is used to transfer control from 
one module to another within Access Method Services. 
ULOAD just loads a module. It is mainly used for 
non-executable modules like static text structures. 
UDELETE does not take any action in DOS. 
Diagrams 5.3.1 through 5.3.3 show the UCALL, 
ULOAD, and UDELETE macros in detail. 


d. Storage management is performed with three types of 
macros: 


1. UGSPACE and UFSPACE, shown in Diagrams 
5.4.1 and 5.4.2. 


2. UGPOOL and UFPOOL, shown in Diagrams 5.4.3 
and 5.4.4. 

3. PROLOG and UEPIL, shown in Diagrams 5.4.5 
and 5.4.6. 


The first type is used to obtain large amounts of 
storage. The caller must remember the address of the 
storage, and must issue a UFSPACE to release the 
storage. 


The second type is used for small amounts of storage. 
The caller does not need to remember the address of 
each piece because all the pieces can be released with 
one UFPOOL at the end of the program. 


The third type is used to bypass PL/S-generated 
GETMAIN and FREEMAIN macros. In a re-entrant 
enviroment, PL/S generates a GETMAIN macro for 
all data areas defined in the program, but a 
GETMAIN doesn’t work on DOS. Each Access 
Method Services routine includes code at the beginning 
of the routine to replace the GETMAIN. This is the 
PROLOG code. Control is transferred to the System 
Adapter that issues the appropriate operating system 
macro to obtain storage. Instead of issuing a PL/S 
return statement, that uses FREEMAIN, all routines 
issue a UEPIL macro. The UEPIL macro gives control 
to the System Adapter. The System Adapter frees 
storage and gives control to the routine that called the 
routine that issued the UEPIL. The PL/S-generated 
code to free storage and to return control is never 
executed. 


e. The time of day is obtained with a UTIME macro, 
shown in Diagram 5.5.1. Several data formats for the 
time and date are allowed. 


f. Parameter interrogation is performed by the ULISTLN 
and the USAVERC macros, shown in Diagrams 5.6.1 
and 5.6.2. 


g. Control of a resource is achieved with a UENQ macro. 
The resource may be released with a UDEQ macro. 
See Diagrams 5.7.1 and 5.7.2. 


At the end of most Umacros, a return code is put in 
register 15, and control returns to the module that issued 
the Umacro. The exceptions are UABORT, UCALL, and 
UEPIL. 
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Diagram 5.1.1. UCATLG Macro 


Catalog 
Parameter List 


Catalog 






From Diagram 5.0 






PROCESSING 





i? Issues CATLG macro instruction. 


2. Returns. 










OUTPUT 


VSAM 
Catalog 


Register 15 
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Extended Description for Diagram 5.1.1 

IDCSA02 

Procedure: IDCSA02 

1 IDCSA02 passes the catalog parameter list to VSAM with 
a CATLG macro. 

IDCSA02 

Procedure: IDCSA02 


2 IDCSA02 puts the return code from VSAM in register 15 
and returns control to the module that issued the 
UCATLG macro. 
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Diagram 5.2.1. UABORT Macro 
From Diagram 5.0 


INPUT PROCESSING 









Register 15 
1. Establishes addressability. 





Register 14 


| UABORT 


Entry Point 2. Prints message. 





Register 13 





3. Prints full partition dump. 






GDTABH 
GDTIOH 





IODATA 4. Closes all open data sets. 


5. Returns to invoker of Access Method 
Services. 


fe) 

A 
| ll 

7 


Full Partition 


Register 15 
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Extended Description for Diagram 5.2.1 
IDCSA01 
Procedure: IDCSAO1 


1 The UABORT routine uses the registers saved in the save 
area pointed to by GDTABH to establish addressability. 
This is done so the UABORT routine can access storage 
areas obtained by the System Adapter and remain 
reentrant. 


IDCSAO01 
Procedure: IDCSA0! 


2 UABORT issues an EXCP to write a message to the 
programmer. 


IDCSA01 
Procedure: IDCSA0I 


3 The UABORT routine issues the PDUMP macro and 
takes a full partition dump unless the UABORT code 
indicates a no-space-available condition, in which case no 
dump is issued. The partition beginning and ending 
addresses for the PDUMP are obtained by issuing the 
EXTRACT macro. The UABORT code is in register 15 in 
the dump. 


If register 15 is negative, it is complemented and no 
PDUMP is done. The CANCEL Access Method Services 
Command requires this interface. 


IDCSA01 
Procedure: IDCSA01 


4 GDTIOH provides the address of the IODATA. The 
address of the IOCSTR chain is IODIOC. The UABORT 
routine goes through the chain of IOCSTRs and tests each 
one to determine if it is open. The DTF, for nonVSAM 
data sets, or the ACB, for VSAM data sets, is checked to 


determine if the data set is open or closed. If the data set is | 


open, IDCSAO! issues a CLOSE macro to close the data 
set. The processing continues until the end of the chain is 
reached. 


IDCSAO!I 
Procedure: IDCSA0i 


5 if Access Method Services was invoked through job 
control, IDCSAOI issues a CANCEL macro to cancel the 
job. If Access Method Services was invoked through a 
subroutine call, IDCSAO! returns control to the invoker 


with a code of 16 in register 15 to indicate that a 
catastrophic error has occurred. 
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Diagram 5.2.2 USNAP Macro 
From Diagram 5.0 


INPUT PROCESSING 


1. Issues PDUMP macro instruction. 


2. Returns. 


Identification 





OUTPUT 


Full Partition Dump 


Identification 
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Extended Description for Diagram 5.2.2 
IDCSA02 
Procedure: IDCSA02 


1 IDCSA02 issues an EXTRACT macro to determine the 
partition beginning and ending addresses for PDUMP. 
IDCSAO! then issues a PDUMP macro for a full partition 
dump. 


IDCSA02 


Procedure: IDCSA02 


2 IDCSAO02 returns control to the module that issued the 
USNAP macro. 
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Diagram 5.3.1. UCALL Macro 


Addresses of data to be 


[passed to called module] 


ame of Module to Call 


AUTOTBL 





From Diagram 5.0 


PROCESSING 


1. Issues CDLOAD macro. 


2. Frees storage. 


3. Rearranges arguments in calling 
module. 


4, Gives control to loaded module. 


OUTPUT 


Loaded Module 


Register | 


Addresses of data from 


calling module 


Register 15 
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Extended Description for Diagram 5.3.1 
IDCSA02 
| Procedure: AMSSACL 


1 IDCSA02 loads the program named by the UCALL macro 
with a CDLOAD macro. 


IDCSA02 
| Procedure: AMSSACL 


2 EDCSA02 checks the AUTOTBL for the number of 
outstanding storage requests for IDCSA02. The number is 
in the STATUS section for IDCSA02. If the number is 
greater than one, storage other than the storage addressed 
in the AUTOBL has been obtained for IDCSA02. The 
amount of storage is in the PL/S generated variable 
@SIZDATD and the address is in register 11. IDCSA02 
issues a FREEVIS and the number in STATUS is 
decreased by one. If the number in STATUS is one, a 
FREEVIS is not issued because the storage is saved for the 
next time IDCSA02 is given control. The status is reduced 
by one. 


IDCSA02 
Procedure: AMSSACL 


3 IDCSA02 copies the address of the GDT from the first 
parameter in the calling program to the second parameter 
in the calling program. IDCSA02 puts the address of the 
second parameter in the calling program, now the address 
of the GDT, in register 1. Register one now points toa 
contiguous list of parameters for the called program. 


IDCSA02 
Procedure: AMSSACL 


4 IDCSAO02 puts the address of the called program into 
register 15. IDCSA02 restores all registers, except 1 and 15, 
from the calling program’s save area and gives control to 
the called program. 
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Diagram 5.3.2. ULOAD Macro 


INPUT 
Register | 


{ GDT 


Address of 
Fullword 


Fullword 


Name of 
Module to Load 





From Diagram 5.0 


PROCESSING 





1. Issues CDLOAD macro. 


2. Puts loaded program address in 
parameter list. 


3. Returns. 






OUTPUT 
Loaded Module 


= 


Register | 







Address of 
Loaded Module 


Name of 
Module to Load 
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Extended Description for Diagram 5.3.2 
IDCSA02 
| Procedure: AMSSALD 


1 IDCSA02 issues a CDLOAD macro using the name of the 
program given to the ULOAD macro. 


If the phase is not found, a UABORT is issued unless the 
caller has requested return of control. 


If the anchor table (created by CDLOAD for all models 
loaded into this partition) is full: 


The phase table in IDCSA04 is searched for this phase 
name. 


If the phase name is not found, UABORT(52) is 
issued. 


If the phase is found and if the phase is already loaded, 
the normal exit is taken to the caller of ULOAD. 


If the phase is not already loaded, a GETVIS is issued 
for the amount of storage indicated in the phase table 
for this phase. A GETVIS failure is an ABORT 
condition. 


The phase is loaded into the GETVIS area and an exit 
is taken to the caller. 


IDCSA02 
Procedure: AMSSALD 


2 IDCSAO02 puts the address of the loaded program in the 
calling program at the address specified with the third 
parameter. 


IDCSA02 
| Procedure: AMSSALD 


3 iIDCSA02 returns control to the module that issued the 
ULOAD macro. 
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Diagram 5.3.3. UDELETE Macro 


Register | 






Name of 
Module to Delete 





ir ap a ere 


Irom Diagram 5.0 







PROCESSING 


1. Deletes module. 


2. Returns. 







OUTPUT 


a 
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Extended Description for Diagram 5.3.3 
IDCSA02 
Procedure: IDCSA02 


1 IDCSAO02 does not delete the module but lets the system 
paging mechanism delete the module when necessary. 


IDCSA02 


Procedure: [DCSA02 


2 IDCSAO02 returns control to the module that issued the 
UDELETE macro. 
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Diagram 5.4.1. UGSPACE Macro 


From Diagram 5.0 





INPUT PROCESSING 


Register | 


Obtains storage. 










Address of Fullword 


Storage Initialization 2. Sets up UGSPACE area 
Indicator | 










Fullword 





Bytes Needed 


3. Puts address in calling program. 


4. Initializes area, if necessary. 


5, Returns. 


UGSPACE Area 


Number of Bytes + 8 


T Storage T 


Register | 





Storage Initialization 
Indicator 


Storage Address 


Bytes Needed 


Register 15 
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Extended Description for Diagram 5.4.1 


IDCSA02 
Procedure: IDCSA02 


1 IDCSAO02 issues a GETVIS for the number of bytes 
requested plus 8 for the UGSPACE area that proceeds 
each storage area. If the return code from the GETVIS is 
nonzero, the address of the storage area is set to zero and 
control is given to step 5. If the return code is zero, control 
is given to step 2. 


IDCSA02 
Procedure: IDCSA02 


2 IDCSA02 puts the number of bytes in the storage area 
plus 8 in the first word of the UGSPACE area. IDCSA02 
sets the second word blank to distinguish a UGSPACE 
area from a UGPOOL area. 


IDCSA02 
Procedure: IDCSA02 


3 IDCSA02 puts the address of the storage area, not the 
UGSPACE area, in the calling program at the address 


specified by the third parameter. 


IDCSA02 
Procedure: IDCSA02 


4 IfSETZERO or SETBLANK was specified as the fourth 
parameter, IDCSA02 sets the storage area to zeros or 
blanks, respectively. If SETZERO or SETBLANK was 
not specified, the storage area is not changed. 


IDCSA02 
Procedure: IDCSA02 


5 IDCSAO02 puts a return code in register 15 and returns 
control to the module that issued the UGSPACE macro. 
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Diagram 5.4.2. UFSPACE Macro 


Register | 







Address of Storage to Free 


UGSPACE or UGPOOL Area 


7 Storage to Free r 


I-'rom Diagram 5.0 


PROCESSING 


Checks for UGSPACE or UGPOOL 
area. If UGSPACE, continues to Step 
2: if UGPOOL, goes to Step 3. 


Calculates address. 


Calculates address and removes area 
from chain. 


Frees storage. 


Returns. 





em a arr Ps he pA SS SSA APSA ni SP rt A 9 i 


OUTPUT 


re er RE tra RE TEP PS IE RT 
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Extended Description for Diagram 5.4.2 


IDCSA02 
Procedure: IDCSA02 


1 


The address of the area to free is used by IDCSA02 to 
determine if the area was obtained with a UGSPACE or a 
UGPOOL. If the fullword at the address minus 4 contains 
blanks, the area was obtained with a UGSPACE. 


IDCSA02 
Procedure: IDCSA02 


2 


If the storage area was obtained with UGSPACE, a 
UGSPACE area preceeds the area. The length of the area 
to free is at the first word in the UGSPACE area. The 
address of the area to free is calculated by subtracting 8 
from the area address. 


IDCSA02 
Procedure: IDCSA02 


3 


If the storage area was obtained with a UGPOOL, a 
UGPOOL area preceeds the storage. The length of the 
area to free is at the third word of the UGPOOL area. The 
address of the area to free is calculated by subtracting 16 
from the area address. The forward and backward chains 
are updated to remove this area from the chain. If this is 
the last area in the chain, the address of the last area in the 
chain in GPLAST in the System Adapter Historical Data 
area is updated by IDCSA02. 


IDCSA02 
Procedure: IDCSA02 


4 


A FREEVIS macro is issued to release the storage plus its 
UGSPACE or UGPOOL area. 


IDCSA02 
Procedure: IDCSA02 


IDCSA02 returns control to the module that issued the 
UFSPACE macro. 
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Diagram 5.4.3. UGPOOL Macro 


Register | 


GDT 
Address of 


Fullword 


Initialization 
Indicator 


Storage 
Identification 


Fullword 


Bytes Needed 





From Diagram 5.0 


PROCESSING 


1. Obtains storage. 


2. Sets up UGPOOL area. 


3. Puts address of storage in calling 
program. 


4. Initializes area, if necessary. 


5. Returns. 





| Area 











OUTPUT 


UGPOOL Area 
UGPOOL Area (2K Page boundary) 












Next Area 
} Last Area 


Number of Bytes + 16 


Identification 









Storage 


Register | 


Storage area 
on 2K page 
boundary 


LJ 


Initialization 
Indicator 


Storage 
Identification 


Address of 
Storage 


Bytes Needed 





Register 15 


aes 
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Extended Description for Diagram 5.4.3 


IDCSA02 
Procedure: IDCSA02 


1 Ifthe UGPOOL storage identification specifies ‘PG’ as the 
third and fourth characters, IDCSA02 issues a GETVIS 
for the number of bytes requested starting on a 2K page 
boundary. The address and length is saved. A second 
GETVIS is issued by IDCSA02 for a 24-byte area. The 
address and length of the first area obtained are placed in 
the fifth and sixth words of the 24-byte area. Otherwise, a 
GETVIS is issued for the number of bytes requested plus 
16 for the UGPOOL area. If the return code from the 
GETVIS is nonzero, the storage address in the calling 
program is set to zero and control is given to step 5, unless 
the GETVIS was for a 24-byte ‘xxPG’ storage area, in 
which case the space obtained on a 2K page boundary 
must be freed. A FREEVIS macro is issued to free the 
space and then the storage address in the calling program 
is set to zero and control is given to step 5. If the return 
code from the GETVIS is zero, control is given to step 2. 


IDCSA02 
Procedure: IDCSA02 


2 The new storage area is chained to the other storage areas 
obtained with UGPOOL. The head of the chain is in 
GPFIRST and the tail is in GPLAST in the System 
Adapter Historical Data Area. The new storage area is 
chained by IDCSA02 to the tail of the list. IDCSA02 sets 
the forward chain pointer to zero. The backward chain 
pointer contains the address of the next to last area. The 
number of bytes in the storage area is the number of bytes 
requested plus 16 for the UGPOOL area. The 
identification from the calling module is put in the fourth 
word of the UGPOOL area. GPLAST is set to the address 
of the new storage area. The 24-byte area obtained for a 
*xxPG’ storage area is treated in the same manner as all 
other UGPOOL areas and chained into the UGPOOL 
Storage area chain. The number of bytes is 24. 


IDCSA02 
Procedure: IDCSA02 


3 IDCSAO2 puts the address of the storage area, not the 
UGPOOL area, in the calling program at the address 
specified by the third parameter. 


IDCSA02 
Procedure: IDCSA02 


4 If SETZERO or SETBLANK was specified as the fifth 
parameter, |DCSA02 sets the storage area to zeros or 
blanks, respectively. If neither SETZERO or SETBLANK 
is specified, the storage is not changed. 


IDCSA02 


Procedure: IDCSA02 


5 IDCSAO02 puts a return code in register 15 and returns 
control to the module that issued the UGPOOL macro. 
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Diagram 5.4.4. UFPOOL Macro 


INPUT 


Register 1 









Storage 
Identification 














From Diagram 5.0 


PROCESSING 


Finds areas to free. 


Removes matching areas from chain 
and frees storage. 


Returns to Step 2 until end of list. 


Returns. 


OUTPUT 
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Extended Description for Diagram 5.4.4 
IDCSA02 
Procedure: IDCSA02 


1 


IDCSA02 examines the list of UGPOOL areas addressed 
from GPFIRST to find a match between the storage 
identifier supplied by the calling program and the 
identifier in the UGPOOL area. If the calling program 
specifies ALL as the third parameter, just the first two 
bytes of the identifiers are compared so that every storage 
area that matches is freed. If ALL is not specified, 
IDCSA02 compares four bytes of the identifiers to find the 
storage areas to be released. 


IDCSA02 
Procedure: IDCSA02 


2 


If a match is found, IDCSA02 removes the UGPOOL area 
from the chain and releases the UGPOOL area with its 
Storage area with a FREEVIS macro. If the storage 
identification is ‘xxPG’, the address and length of the area 
to be freed is in the fifth and sixth words of the area in the 
UGPOOL storage chain. IDCSA02 issues a FREEVIS for 
this area. The 24-byte area in the UGPOOL chain is then 
freed in the normal manner. 


IDCSA02 
Procedure: IDCSA02 


3 


if the end of the chain has not been reached, IDCSA02 
compares the next UGPOOL area. The entire list is 
searched for matching identifiers regardless of whether 
ALL is specified or not. [DCSA0Q2 returns control to step 2 
until the end of the chain is reached. 


IDCSA02 
Procedure: IDCSA02 


4 


IDCSAO02 returns control to the module that issued the 
UFPOOL macro. 
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Diagram 5.4.5 PROLOG Macro 
Irom Diagram 5.0 


INPUT PROCESSING OUTPUT 





Register | 


l. Gets address of GDT. 





2. Gets address of storage for 
PROLOG. 





System Adapter 
Work Area 





3. Saves registers in work area. 

@SIZDATD 

Bytes Needed 4. Checks module identification in 

for Data Areas AUTOTBL. 

MODID 

a. If a match is not found, goes 
to Step 5. 


Register 13 





b. If a match 1s found, tests 
fi count in AUTOTBL: if count is 
Moule NS SANE NED 1, goes to Step 5: if count is 
in Previous Module 
O, goes to Step 6. 





Number of 
Bytes 






Module 


Identification 


T Storage Area SG 


inter-Module 
Trace Table 


Module Identificatio 


Register | 






5. Obtains storage. 


6. Updates Inter-Module Trace 
AUTOTBL Table. 
7. Returns. 









Previous Module's 
Work Area 










Module A's 


Identification 
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Extended Description for Diagram 5.4.5 


IDCSA03 
Procedure: IDCSA03 


1 The address of the GDT is the first parameter in the call to 
every Access Method Services module except the call to 
PROLOG. As an example, let’s assume module A gives 
control to module B. The first thing module B does is store 
registers in the save area in module A. The second thing 
module B does is obtain storage for the data in module B. 
PL/S generates a GETMAIN macro instruction to obtain 
the storage. But GETMAIN doesn’t work on DOS. A call 
to the PROLOG routine is substituted for the GETMAIN 
when module B is compiled on VS. So, instead of doing a 
GETMAIN, module B calls PROLOG to get storage for 
module B’s data areas. At the time module B gets control, 
register | contains the address of a parameter list. By 
convention within Access Method Services, the first 
parameter in the parameter list is always the address of the 
GDT. When PROLOG gets control, register 13 contains 
the address of the save area in module A. IDCSA03 uses 
this address to get the address of the GDT. 


IDCSA03 
Procedure: IDCSA03 


2 The address of the storage area PROLOG uses for its data 
areas is in GDTSPR. IDCSA0O3 uses this address to 
establish addressability to the data areas in PROLOG. 


IDCSA03 
Procedure: IDCSA03 


3 Module B’s registers are saved in PROLOG because 
module B doesn’t have a save area yet. IDCSA03 chains 
together the save area in module A and the save area used 
for module B’s registers in PROLOG. 


IDCSA03 
Procedure: IDCSA03 


4 IDCSA03 compares the module identifications in 
AUTOTBL with the 4 character module identification 
module B passes as the first parameter to PROLOG. If 
IDCSA03 does not find a match, control goes to step 5. If 
a match is found, and module B is IDCSA02, IDC1001, or 
IDCTPO1, IDCSAOI may have already obtained storage 
for it. AUTOTBL contains the address of storage already 
obtained for IDCSA02, IDCTPO1, and IDCIOOI. 
IDCSA03 examines the number of times module B has 
been called. If the number is zero, module B is not using 


the storage whose address is in AUTOTBL. IDCSA03 
does not do a GETVIS and IDCSA03 gives to module B 
the storage from AUTOTBL for module B’s data areas. 
IDCSAO03 adds one to the number of times the module is 
called. If the count is greater than zero, the storage in 
AUTOTBL is already in use so IDCSA03 must do a 
GETVIS. One is added to the number of times the module 
is called. 


IDCSA03 
Procedure: IDCSA03 


5 If module B did not get storage from AUTOTBL, 
IDCSA03 issues a GET VIS. for the number of bytes 
needed. PL/S-2 always puts the number of bytes in a 
constant called @SIZDATD which is the second 
parameter to PROLOG. IDCSAQ0O3 issues a GETVIS for 
the number of bytes in @SIZDATD plus 8 for header 
information. If the return code from GETVIS is nonzero, 
IDCSA0O3 issues a UABORT macro. IDCSAO3 puts the 
total length of the storage area in the first word of the 
header. IDCSA03 puts Module B’s identification from 
MODID in the second word of the header. 


IDCSA03 
Procedure: IDCSA03 


6 IDCSA03 adds module B’s identification from MODID to 
the end of the Inter-Module-Trace table. The first, oldest 
entry in the table is removed. 


IDCSA03 
Procedure: IDCSA03 


7 IDCSAO3 puts module B’s module identification in the 
first word of module A’s save area. IDCSAO3 restores the 
registers, with the exception of register one, from the work 
area in PROLOG to be as they were when module B gave 
control to PROLOG. Register one contains the address of 
the storage module B uses for its data area. IDCSA03 
returns control to module B. 
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Diagram 5.4.6. UEPIL Macro 


Register | 













ee 
eae 


Register 13 







Module Identification 


7 Storage Area 5 ‘ 


AUTOTBL 


From Diagram 5.0 


PROCESSING 


Obtains storage. 


Checks AUTOTBL for module 
idenufication. 


Frees storage area. 


Updates Inter-Module Trace Table. 


Returns. 


OUTPUT 


Inter-Module 
Trace Fable 


Module Identification 


Register 15 
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Extended Description for Diagram 5.4.6 


IDCSA03 
Procedure: IDCSA03 


1 Let’s assume module A gives control to module B. Module 
B completes its processing and is ready to return control to 
module A. When module B is compiled on VS, PL/S 
generates a FREEMAIN for exit code. Rather than having 
one version of all modules for VS and another for DOS, 
each module - with a very few exceptions - issues a UEPIL 
macro to return control. See the chapter “Diagnostic Aids” 
for an illustration of save areas. The UEPIL bypasses the 
PL/S generated FREEMAIN and allows the same module 
to operate on more than one operating system. When 
module B is ready to return control to module A, module 
B issues a UEPIL. UEPIL gets the address of the storage it 
is to use for data areas from GDTSPR. IDCSA0O3 saves the 
address of module B’s storage area which is in register 13. 
IDCSA0O3 saves the address of module A’s save area, 
which is obtained from module B’s save area, and 
IDCSAO3 sets the forward chain in module A’s save area 
to zero. 


IDCSA03 


2 IDCSA03 compares module B’s module identification 
against the module identifications in AUTOTBL. Ifa 
match is not found, control is given to step 3. If IDCSA03 
finds a match, the number of times the module has been 
called is compared to one. If the number is one, IDCSA03 
will not issue a FREEVIS but reduces, by one, the number 
of times the module has been called. If the number is 
greater than one, IDCSA0O3 has acquired storage other 
than storage from the AUTOTBL and this storage must be 
teleased. IDCSA03 subtracts one from the number of 
times the module has been called. 


IDCSA03 
Procedure: IDCSA03 


3 IDCSAO03 subtracts eight from the address of module B’s 
storage area to get the address of the header information. 
IDCSA0O3 issues a FREEVIS with the length of the storage 
area as specified in the first word of the header. 


IDCSA03 
Procedure: IDCSA03 


4 IDCSAO0O3 puts the address of module A’s save area in 
register 13. IDCSA03 removes the oldest module 
identification entry in the Inter-Module-Trace table. 
IDCSA03 adds module A’s module identification to the 


end of the Inter-Module-Trace table. IDCSA03 obtains 
module A’s module identification from the first word of 
the save area where module A saved registers when it was 
given control. 


IDCSA03 
Procedure: IDCSA03 


§ IDCSAO3 restores all registers, except register 15, from 
module A’s save area. Register 15 contains the return code 
from module B, if module B provides it, or zero. IDCSA03 
returns control to module A. 
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Diagram 5.5.1. UTIME Macro 


INPUT 


Register 1 


¢GDT 
(optional) 


Data Format Indicator 


Date 
Variable 






















Time 
Variable 












ome 
* 
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From Diagram 5.0 


PROCESSING 


Does initialization. 
Checks data format indicator. 
Issues TIME macro. 


Adjusts days per month. 


Formats time and date, if specified. 


Returns. 


OUTPUT 


Register | 
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Extended Description for Diagram 5.5.1 


IDCSA02 
Procedure: IDCSA02 


1 IDCSA02 calculates the number of arguments passed to 
UTIME. IDCSA02 passes the input parameter list and a 
variable containing the number of arguments to 
IDCSAO0S. 


IDCSA05 
Procedure: IDSCA05 


2 Ifthe caller incorrectly specifies the data format indicator, 
IDCSAO0S issues a UABORT macro. 


IDCSA05 
Procedure: IDSCA05 


3 Ifthe caller specifies FORMAT, IDCSA0S specifies a 
GETTIME macro. If CLOCK is specified, IDCSA05 
issues a STCK instruction. If the caller does not indicate 
the data format, IDCSACS issues 2 COMBG macro. 


IDCSA05 
Procedure: IDCSA05 


4 IDCSAOS adjusts the number-of-days-per-month table for 
leap years. If the year returned by the GETTIME macro is 
divisible by four, IDCSAOS sets the number of days in 
February to 29. 


IDCSA05 
Procedure: IDCSA05 


§ Ifthe caller specifies FORMAT, IDCSA05 formats the 
time as HH:MM:SS, where HH is hours, MM is minutes, 
and SS is seconds. The data is in decimal digits. If the date 
was requested and format specified, IDCSA05 formats the 
date as MM/DD/YY, where MM is the month, DD is the 
day, and YY is the year. The data is in decimal digits. 


If CLOCK is specified, IDCSA0O5 returns the time from 
the time-of-day clock in microseconds. If the date is 
requested and no data format is indicated, or CLOCK is 
specified, IDCSA0S returns the date in packed-decimal 
format, OYYDDDF, where YY is the year, DDD is the 
day, and F is the sign digit. 


IDCSA05, IDCSA02 
Procedure: IDCSA05, IDCSA02 


6 IDCSAOS moves the time and date to the calling program 
at the addresses specified by parameters two and three. 
IDCSAOS5 returns control to IDCSA02, which returns 
control to the module that issued the UTIME macro. 
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Diagram 5.6.1. ULISTLN Macro 


INPUT 


Register | 


Argument List 


| nen 





From Diagram 5.0 


PROCESSING 





1. Determines number of arguments. 


OUTPUT 


LISTPTR 


Argument List 


[ eens 


LISTLN 


Number of Arguments 
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Extended Description for Diagram 5.6.1 


1 Unlike most Umacros ULISTLN generates in-line code 
that performs the function rather than a Branch to another 
module. The code stores the address of the parameter list 
in register | in a fullword named LISTPTR. The code 
seaches the argument list looking for the end of the list. 
The last argument in the list has a high order bit of one. 
The number of arguments in the list is put in a byte named 
LISTLN. If the end of the argument list is not found after 
255 arguments, the search stops and LISTLN contains 
255. Control continues with the next instruction in the 
program. 


007-2 


SIZO'] S90TAING POMP 88900y WWSA/ASA 


Diagram 5.6.2. USAVERC Macro 


INPUT 


Register 15 
| 
i 


; 
| 
| 


From Diagram 5.0 


PROCESSING 


1. Copies contents of Register 15. 


OUTPUT 


TESTRC 
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Extended Description for Diagram 5.6.2 


1 Unlike most Umacros USAVERC generates in-line code 
that performs the function rather than generating a Branch 
to another module. The code copies the contents of register 
[5 which must be named RTNREG to a halfword named 
TESTRC. Control continues with the next instruction in 
the program. 
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| Diagram 5.7.1. UENQ Macro 


INPUT 
Register 1 


GDT 


aay 
arn: 
era 
ese ee 
fee eed 
ee 


Resource-Name 





. Generate a DTL for the input 


. Analyze the return code. 





From Diagram 5.0 


PROCESSING OUTPUT 


parameters. 


Lock the resource. 


. Return the address of the DTL for 
subsequent UDEQ request. 


Register 15 
Return Code 


Register 1 
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Extended Description for Diagram 5.7.1 
IDCSA08 
Procedure: IDCSA08 


1 A parameter list is built for the IKQDTL macro using the 
input parameters. 


CONTROL is set to “E” (executive) or to “S” (shared). 


SCOPE is set to “INT”, “SHR”, or X‘00’. The value 
X‘00’ is used if VOLID is present. 


VOLIDPTR is set to the address of a 6-byte volid or to 6 
bytes of X‘00’. The 6-bytes of X‘00’ are used 
if the SCOPE parameter is present. If this 
parameter is used, the supervisor determines 
if the scope is internal or external by the 
device address on which the volume is 
mounted. 


GETVIS is specified as yes so that storage will be 
obtained for the DTL. (Must be freed by 
IKQUNLK). 


if an error occurs, an out-of-storage message is issued 
(UV0-4) and control is returned to the calling routine with 
a value of 16 in register 15. 


IDCSA0B 
Procedure: IDCSA08 


2 The IKQLOCK macro is issued using the DTL from step 
1. RETOPT is set to “WAITC” or “RETURN”. 


IDCSA0B 
Procedure: IDCSA08 
3 The return codes are translated as follows: 


Reg 15 =0 Resource has been locked. 


=4 (For CONDITION =NOWAIT) resource 
may become availabie at a future time (rc=4, 
8, 28 from lock manager, that is, SUPVR). 

=8 This task already owns this lock (rc=24 from 
lock manager). 


= {2 Definition error (rc=12, 16, 20, 32, 36 from 
lock manager). 


For a lock manager return code of 4 or 24, no error 
message is issued. For a return code of 24, IKQUNLK is 
not called because the lock would be released in addition 
to freeing the DTL. For any other non-zero return code, a 
message is issued (UV0-8) and IKQUNLK is called to free 
the DTL. 
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Diagram 5.7.2. UDEQ Macro 


Register 1 


From Diagram 5.0 


PROCESSING 


1 - Issues IKQUNLK macro. 


2. Returns 


OUTPUT 


LOCK TABLE 
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Extended Description for Diagram 5.7.2 
IDCSA08 
Procedure: IDCSA08 


1 IDCSA08 issues an IKQUNLK macro to release control 
of the resource. If the address of the DTL to be unlocked is 
zero, no unlock is necessary. 


IDCSA08 


Procedure: IDCSA08 


2 IDCSAO8 returns contol to the module that issued the 
UDEQ macro. The return code is always 0. 
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I/O Adapter Visual Table of Contents 


6.1 6.2 


UOPEN 


6.1.1 


Build Build 


IOCSTR 


Check 
Open 


Control 
Blocks 





UPOSIT 


6.3 


I/O Adapter 


Overview 


UGET 





6.4 


6.5 6.6 6.7 6.8 
UPUT UCOPY UVERIFY UIOINFO 
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Diagram 6.0. I/O Adapter Overview 


INPUT 


Register 1 


GDT 


T Argument Lists i 


Data Sets 


From Module 
Issuing Macro 


PROCESSING 


1. Performs function indicated by 


macro: 
e UOPEN. 
See Diagram > 
e UCLOSE. Data Sets 
See Diagram 
e UPOSIT. 
See Diagram 63) 
e UGET. 
See Diagram 
e UPUT. 
See Diagram 6s) 
e UCOPY. 
See Diagram 
e UVERIFY. 
See Diagram 
e UIOINFO 
See Diagram 
Register 15 
2. Returns. 
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Extended Description for Diagram 6.0 
IDCIOO1 
Procedure: IDC1O01 


1 The type of I/O processing depends upon the Umacro 
issued: 


The UOPEN macro opens from one to four data sets. 


The UCLOSE macro closes from one to four data sets 
that were opened by the 1/O Adapter. SYSIPT and 
SYSLST are not closed with this macro, but at 
processor termination with the ULOTERM macro. 
This is done to consolidate termination work. 


The UPOSIT macro is used to position to a record in a 
data set on a direct access device. The type of 
positioning depends upon the data set organization: 


For VSAM data sets, the positioning may be by key, 
relative byte address (RBA), or relative record number. 


For ISAM data sets, the positioning is by key only. 


The UGET macro is used to obtain a record from a 
data set opened with a UOPEN macro. If the data set is 
being processed with keys - ISAM or indexed VSAM - 
the key is returned with the record. If the data set is 
being processed with control intervals - VSAM with 
block processing - a control interval is returned. If a 
relative-record data set (RRDS) is being processed, a 
relative record number is returned. Only if the VSAM 
data set is opened for update processing may the record 
be modified in the buffer. Data sets opened for update 
processing must be processed with a UGET followed 
by a UPUT on the same record just obtained. This is 
true regardless of whether or not the record has been 
changed. A UPUT must be issued after each UGET, 
for UPDATE, even if it is the last UGET before the 
data set is closed. Update processing is used when the 
REPLACE option has been specified for the REPRO 
function. 


The UPUT macro is used to write records to a data set 
that was opened with the UOPEN macro. Multiple 
records can be written with one UPUT. If the data set 
is VSAM opened for block processing, the record must 
be a control interval. A UPUT must be issued for each 
UGET ona VSAM data set opened for update. 


The UCOPY macro copies one data set to another data 
set if both data sets have been opened with the 
UOPEN macro. The input data set may be positioned 
to a Starting point with the UPOSIT macro before the 
copy takes place. The UCOPY copies all records from 
the input data set starting at the beginning record and 


continuing until end-of-file or a terminating error. If 
the output data set has records before the UCOPY, the 
following applies: 


a. Ifthe data set is VSAM with records in keyed 
sequential or relative record format, the input 
records are merged with the existing records. 


b. If the data set is VSAM with entry sequential 
record format, the input records are added after the 
existing records. 


c. If the data set is nonVSAM, the input records are 
written over the existing records. The existing 
records are lost. ISAM data sets cannot be used for 
output for UCOPY. 


The UVERIFY macro insures that the address for the 
end-of-file for the VSAM data set in the VSAM catalog 
is the same as the end-of-file address on the I/O device. 
If the two addresses are not identical, the VSAM 
catalog changes to match the I/O device. The data set 
must be VSAM opened for control interval output 
processing. A return code from the UOPEN macro 
indicates that the data set may need verification. The 
FSR should ignore the return code form UOPEN and 
issue the UVERIFY in all cases except where a zero 
IOCSTR address is returned from UOPEN. At 
UOPEN, VSAM just checks the VSAM catalog for 
information about the data set; it does not check the 
physical data set. If the UOPEN returns a code saying 
that there is no data in the data set, the physical data 
set may or may not have data. 


The UIOINFO macro is used to obtain information 
concerning a data set. The macro analyzes an option 
byte passed by the caller to determine what kind of 
information is required. The types of information 
which may be requested are: 


Data-set name 
Volume serial list 
Device type 
Timestamp 


The caller may provide UIOINFO with a work area 
into which the requested information should be placed 
or he may provide an UGPOOL ID. In the latter case 
UIOINFO obtains the required amount of storage. 
(The caller is responsible for freeing this storage.) 


The data requested is formatted into the return area 
and control is returned to the caller. 


IDCIOO1 
Procedure: IDCIOOI 


2 


A return code is put in register 15. If the return code is 
nonzero, error messages are written. Control returns to the 
module that issued the Umacro. 
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Diagram 6.1. UOPEN Macro 
From Diagram 6.0 


PROCESSING OUTPUT 
OCARRAY 


INPUT 
Register | 












“10CS” 
IOCSTR 





ii 


IOCSEX 


4 
4 


File Identification 





1. Builds IOCSTR for each tC 
OPNAGL. Issues LOCATE 
if OPEN is fora catalog. . 
See Diagram 
Addresses of 
1 to 4 OPNAGLs 


2. Builds control block required 
to open the data set. 
See Diagram 


Data Sets 3. Opens the data sets. 


CB 


> 






OR 





Access Method 
Module 







OPNAGL 





Data Sets 


4. Checks for successful open. 


See Diagram 


5, Returns. 
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Extended Description for Diagram 6.1 


IDCIO01, IDCIO02 
Procedures: IDCIOOP, OPENRTN, DSDATA 


1 IDCIOOP builds an internal array (OCARRAY) to 
describe the open to be performed. The rest of step | and 
all of step 2 are repeated for each open argument list 
(OPNAGL) that the calling module give to the UOPEN 
macro via register 1. OPENRTN increments the identifier 
in IODSID by | to form a unique identifier for the data 
set. OPENRTN uses the identifier in a UGPOOL macro 
to obtain storage for an IOCSTR and IOCSEX for the 
data set and file identification save area. OPENRTN puts 
the IOCSTR into the chain of IOCSTRs addressed from 
IODIOC in the I/O Adapter Historical Data Area, 
IODATA. 


DSDATA loads the VSAM IKQVLAB routine with a 
CDLOAD macro. The FILENAME and the address of a 
work area are passed as arguments. KQVLAB reads the 
LABEL CYLINDER and returns information about the 
file in the work area. DSDATA saves the FILE ID and file 
organization. 


If the OPNAGL indicates that the open is for a catalog 
recovery area (CRA), the DSDATA routine generates a 
data set name for the CRA, namely, 
CATALOG.RECOVERY.AREA. VOL.xxxxxx where 
XXXxxxX is the volume serial number of the CRA’s first 
extent. 


If the OPNAGL indicates that the open is for a catalog, 
OPENRTN issues a catalog Locate requesting the return 
of the catalog ACB address. Control is then passed to step 
3; 


If the open is not for a catalog, control is passed to Step 2. 


IDCIO02 
Procedures: BUILDACB, BUILDDBK 


2 If the data set organization is VSAM, BUILDACB builds 
an EXLIST and an ACB control block. BUILDACB puts 
the addresses and length of the control blocks in the 
IOCSEX. If the data set organization is nonVSAM, 
BUILDDBK loads a module containing a DTF control 
block and the Access Method Module required to process 
the data set. BUILDDBK uses a table of module names 
and data set characteristics to find the right module to 
load. BUILDDBK updates the DTF with information 
from the OPNAGL. BUILDDBK uses a UGPOOL macro 
to obtain storage for subsequent GET /PUT operations. If 
the record format is spanned, one storage area is obtained, 


otherwise, two storage areas are obtained. The address of 
the ACB or DTF is put in IOCCBA in the IOCSEX. 


IDCIOO2 
Procedure: OPENRTN 


3 OPENRTN issues one OPEN macro for each ACB or 
DTF built in step 2. There are no exit routines. If OPEN 
detects an abend condition, OPEN abends. 


IDCIOO02 
Procedures: OPENRTN, CKNONOP, BUILDRPL 


4 OPENRTN and CKNONOP test each data set for a 
successful open. If the data set is VSAM, OPENRTN tests 
the results of the OPEN. If the data set is sequential 
non VSAM, CKNONOP checks the open flags in the DTF. 
No checking is done on ISAM or device independent data 
sets. If the data set opened successfully, OPENRTN and 
CKNONOP set IOCMSGOP in the IOCSTR and 
IOCFLGOP in the IOCSEX. If address or control interval 
processing is not specified in the OPNAGL for a VSAM 
data set, OPENRTN determines if the data set has an 
index. A second test is performed to determine if the data 
set is a Relative Record data set (RRDS). For all VSAM 
data set, OPENRTN obtains data set information and 
BUILDRPL builds a RPL to process the VSAM data set. 
For an ISAM data set, CK NONOP issues a SETL macro 
to position to the first record. CK NONOP obtains data set 
information from the ISAM DTF and saves it in the 
IOCSTR. 


IDCIO02, IDCIO01 


Procedures: OPENRTN, DSDATA, BUILDACB, 
BUILDRPL, CKNONOP, IDCIOOP 


5 Ifany errors occurred, any of the procedures that check for 
error conditions sets a nonzero return code in register 15. 
IDCIOOP returns control to the module that issued the 
UOPEN macro. 
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Diagram 6.1.1. UOPEN Macro — Build IOCSTR 


From Diagram 6.1 


INPUT PROCESSING 














IODATA 


IODXTN 


External Data Set List 





Checks if request is to open SYSIPT 
or SYSLST. 












2. Obtains storage for IOCSTR. 











3. Calls external routine if data set 
is externally controlled. qi] 





Label Cylinder 


| 





4. Obtains data set identification and 
data set type. 








Issues LOCATE if OPEN is fora 
catalog. 








OUTPUT 


Data Identifier 
“1OCS” 
IOCSTR 


IOCSEX 


File Identification 
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Extended Description for Diagram 6.1.1 


IDCIO02 
Procedure: OPENRTN 


1 OPENRTN tests the OPNAGL for an open request for 
SYSIPT or SYSLST. SYSIPT is tested in two ways: 


¢ SYSIPT is the Dname in the OPNAGL. 
¢ OPNTYPSI flag in OPNAGL is on. 
SYSLST is tested in two ways: 

¢ SYSLST is the Dname in the OPNAGL. 
¢ OPTYSO flag in OPNAGL is on. 


If the file is SYSIPT, OPENRTN checks IODICS for an 
address of an IOCSTR already built for SYSIPT. If an 
IOCSTR is built, SYSIPT is already open (or an open was 
attempted), and OPENRTN returns the address of the 
IOCSTR for SYSIPT in the area addressed by OPNIOC 
in the OPNAGL. No further processing is done on 
SYSIPT. If the data set is SYSLST, OPENRTN checks 
IODOCS for an address of an IOCSTR already built for 
SYSLST. If an LOCSTR is built, SYSLST is already open 
and OPENRTN returns the address of the IOCSTR for 
SYSLST in the adrea addressed by OPNIOC in the 
OPNAGL. No further processing is done on SYSLST. 


If the data set is not open, continue to Step 2. 


IDCIO02 
Procedures: OPENRTN, PRINTMSG 


2 OPENRTN increments by | the file identifier in LODSID 
to form a unique identifier for the data set. OPENRTN 
issues a UGPOOL macro with the file identifier to obtain 
storage for the IOCSTR plus 4 bytes for the characters 
‘IOCS’, the IOCSEX, and the file id. file id is the name of 
the data set. Note: the file identifier that the 1/O Adapter 
creates is different from the file id. If storage is not 
available, PRINTMSG writes a message. OPENRTN 
chains the new IOCSTR to the last LOCSTR in the chain. 
If the data set is SYSIPT or SYSLST, OPENRTN saves 
the address of the IOCSTR in the IODATA. OPENRTN 
checks the requested processing of the data set specified in 
OPNOPT in OPNAGL for input, update, or output, and 
copies it into the IOCSTR. Input is the default. The 
OPNAGL is used to pass information to the 1/O Adapter 
in requesting a data set be opened. Information from the 
OPNAGL is placed in the IOCSTR and LOCSEX which 
are then used by the 1/O Adapter to control processing of 
the data set once it is opened. The cross reference at the 


end of this Extended Description shows how OPNAGL 
information is transposed into the IOCSTR and IOCSEX. 


IDCIO02 
Procedure: OPENRTN 
3 Ifthe invoker of Access Method Services supplied a list of 


TLBL/DLBL names that he wants to control, the address 
of the list is in IODXTN. Ifa list exists, OPENRTN 
compares each entry in the list with the Dname in 
OPNDDN in OPNAGL. If a match is found, OPENRTN 
puts the address of the external routine in IOCXAD. 
OPENRTN also builds a parameter list for the external 
routine and puts the address of the first parameter in the 
list in IOCXPM. OPENRTN then gives control to the 
external routine to do the open. For lack of any 
information about the external data set, OPENRTN sets 
the IOCSTR to indicate the data set is nonVSAM with 
variable length records and logical record length of 32,760. 
This does not restrict the type of data sets that can be 
externally controlled. It is just to make the data set appear 
as something to the FSR that requests the data set be used. 
If a data set is not externally controlled, control continues 
with step 4. 


IDCIO02 
Procedures: DSDATA, PRINTMSG 


4 Information must be obtained from job control if: (a) the 


data set is not SYIPT or SYSLST, or (b) a DLBL name 
OPNDDN was passed as input to UOPEN. DSDATA 
issues a CDLOAD macro to load IKQVLAB, the VSAM 
Read Label Cylinder module. If the return code from 
CDLOAD is nonzero, DSDATA issues a UABORT 
macro. If the return code is 12 (indicating insufficient 
storage), DSDATA sets the UABORT code to 28, 
otherwise DSDATA sets the UABORT code to 64. 
DSDATA gives control to IKQVLAB. If the return code is 
nonzero, PRINTMSG writes a message and the UOPEN 
for the data set terminates. If the return code is zero, 
IKQVLAB placed information about the data set in a 
work area. Data set organization and file id are set in the 
IOCSTR and IOCSEX. For SYSIPT and SYSLST the file 
id is assumed to be the FILENAME and the data set 
organization is assumed to be physical sequential with 
record size of 80 for SYSIPT and 121 for SYSLST. If the 
OPNAGL specifies device type of 2400, the data set is 
assumed to be a tape and the information returned by 
IKQVLAB is from a TLBL statement. If the device type is 
not 2400, DSDATA checks the DLBL for ISAM or 
VSAM. If neither ISAM or VSAM is specified, the data 
set is assumed to be physical sequential nonVSAM. 


For all data sets, DSDATA puts the file id in the file 
identification area addressed from the IOCSTR. 


If the OPNAGL indicates that a catalog recovery area is 
being opened, DSDATA sets VSAM data set organization 
in the LOCSTR. If the OPNAGL indicates that a catalog 
recovery area ts being opened, DSDATA generates a 
data-set name for the CRA. The name generated is: 
‘CATALOG.RECOVERY.AREA.VOL.Xxxxxxx ’, 
where xxxxxx is the volume serial number for the first 
CRA extent. 


IDCIO02 
Procedures: OPENRTN, PRINTMSG 


5 


If the data set to be opened isa VSAM catalog, as 
indicated by LOCINFCT, a VSAM Locate is issued via the 
System Adapater UCATLG macro. OPENRTN builds a 
CTGPL and one CTGFL. The name used in the Locate 
(pointed to by CTGCAT and CTGENT) is the name as 
returned from IKQVLAB and contained in LABDSN. 
CTGPSWD is set equal to OPNPWA if a password has 
been specified via the OPNPWA field. The address of the 
catalog dname passed in OPNDDN is placed in 
CTGDDUC. The CTGFL requests the return of the 
catalog ACB address, CATACB. If the return code is 
nonzero, PRINTMSG writes a message. For all VSAM 
catalogs, control passes to the final phase of UOPEN for 
VSAM data sets. 
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OPNAGL 


OPNOPTIN 
OPNOPTOT 
OPNOPTUP 
OPNOPTBK 
OPNOPTKS 
OPNOPTCR 
OPNOPTDR 
OPNOPTSK 
OPNOPTCI 
OPNMODRS 


OPN MODAX 


OPNMODUB 
OPNMODRP 
OPNTYPXM 
OPNTY PCI 
OPNTYPRA 
OPNTYPRV 


IOCSTR/IOCSEX 


IOCMACIN =‘I 
IOCMACOT = ‘I’ 
IOCMACUP = ‘1’ 
IOCMACBK = ‘1’ 
IOCMACCR = ‘0’ 
IOCMACCR = ‘I’ 
IOCMACDR = ‘I’ 
IOCMACSK = ‘I’ 
IOCMACCI = ‘I’ 
Not required 


Not required 


IOCMODUB = ‘i’ 
IOCMODRP = ‘1’ 
IOCMODXM = ‘I’ 
IOCINFCT = ‘i’ 
IOCRCVRA = ‘I’ 
IOCRCVXM = ‘I’ 





OPNAGL IOCSTR/IOCSEX Cross Reference Table 


Description 


Input processing 

Output processing 

Update processing 
Control interval processing 
Keyed processing 
Addressed processing 
Direct processing 

Skip sequential processing 
Export CIMODE 

Open reusable data set 
with reset 

Open alternate index of 
path only 

User buffers 

Replace processing 
Export/import 

Open catalog 

Open catalog recovery area 
Recovery bit for VSAM 


If OPNOPTBK or OPNOPTKS is not specified, IOCMACCR is set to ‘I’. 
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Diagram 6.1.2. UOPEN Macro — Build Control Blocks 


INPUT 


OPNAGL 


IOCSTR 


OPNAGL 
IOCSTR 


| 


From Diagram 6.1 
PROCESSING 
For VSAM data sets, continue to 


Step 2; for nonVSAM data sets, 
go to Step 4. 


Obtains storage for control blocks. 


Builds EXLST. 


Builds ACB. 


Builds compare word and finds 
device type data. 


Checks for valid blocksize and 
unsupported device. 


Loads DTF and Access Method 
module. 


Obtains storage for I/O areas. 


Updates the DTF. 





Compare Word 


Device Type Data 





OUTPUT 








DTF 


Access Method 
Module 


I/O Areas 


—_ 
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Extended Description for Diagram 6.1.2 


IDCIO02 
Procedure: BUILDACB 


1 For VSAM data sets continue to step 2; for nonVSAM 
data sets go to step 4. 


IDCIO02 
Procedure: BUILDACB 


2 BUILDACB issues a UGPOOL to obtain storage for the 
three VSAM control blocks: EXLST, ACB, and RPL. If 
OPNSTRNO is 0, BUILDACB obtains storage for one 
RPL; otherwise the value of OPNSTRNO determines the 
number of RPLs required. If the return code from 
UGPOOL is nonzero, BUILDACB sets an error condition 
and terminates UOPEN processing. 


BUILDACEB first builds an EXLST control block issuing 
the EXLST macro. Only the EODAD exit will be taken if 
GETVSAM encounters an end-of-file. LERAD and 
SYNAD exits are specified, however, but they are set 
inactive. BUILDACB puts the pointer to the EODAD exit 
routine into the exit list. BUILDACB puts the address and 
length of the EXLST control block in IOCEXA and 
IOCEXL respectively. 


IDCIOO2 
Procedure: BUILDACB 


3 BUILDACB builds an ACB control block by issuing the 
ACB macro. The ACB macro generates IN, SEQ, ADDR 
for the MACRF field. These attributes are overriden with 
information contained in the LOCSTR/IOCSEX or 
OPNAGL. 


type of processing is set in the OPNAGL, BUILDACB 
uses it. The VSAM open routine will fill in the correct 
organization, if the specified organization is wrong. If the 
organization ts not specified, address is set as the default 
because VSAM defaults to indexed and gives an error if 
the data set is not indexed. BUILDACB puts each 
password in an array of passwords to save the passwords 
until OPEN time and puts a pointer to the password in the 
ACB. 


If lOCRCVRA='l’, BUILDACB specifies the 
CRA=UCRA option for opening a catalog recovery area. 
If a VOLID or SYSNO is passed as input, (i.e., not 
DNAME) SYSNO is set in the ACB. VOLID is translated 
to SYSNO by IKQASNMT. 


Also, if IOCRCVRA=‘I’, the third parameter passed to 
UOPEN is not an address of an OPNAGL; rather it is an 
address passed by EXPORTRA. The contents of this 
address must be inserted into the ACBUAPTR field of the 
ACB. 


If the value of OPNSTRNO is greater than 1, BUILDACB 
moves the value of OPNSTRNO to the ACB. The address 
and length of the ACB are put in IOCCBA and IOCCBL, 
respectively. lf OPNMODRC in the OPNAGL is 1, 
BUILDACB puts the address of the ACB in IOCCBP. 


If OPNT YPXM is on, the request is from 
EXPORT(RA)/IMPORT(RA), and the number of data 
buffers in the ACB (ACBBUFND) is changed from 2 to 5. 


IDCIOO02 
Procedure: BUILDDBK 
4 AnonVSAM data set cannot be opened as a catalog or 


opened for update. If either of these two conditions exist, 
BUILDDBK does not build control blocks for the data set. 
BUILDDBK builds a compare word, COMPWORD with 
data set organization, open options and record format. It 
saves the blocksize, record size, and the length of the 
required I/O areas. The information is in the OPNAGL, 
IOCSTR, and LOCSEX. The Access Method Module uses 
the I/O areas. The length of the I/O area is the blocksize 
plus 8. 


Bit Referenced ACB MACRF = 
IOCMACOT = ‘1’ OUT 
JIOCMACUP = ‘1’ OUT 
IOCMACBK #'‘t’ CNV 
IOCMACCR = ‘0’ KEY 
IOCMACDR = ‘1’ DIR 
IOCMACSK #'1’ SKP 
IOCMODUB = ‘1’ UBF 
OPNMODAX = ‘1’ AIX 
OPNMODRS = ‘1’ RST 


In DOS, the CATALOG OPEN option is never specified 
since catalogs are opened as described in step 5, Diagram 
6.1.1. 


BUILDACEB requests address processing if the data set 
organization (indexed or non-indexed) is not known. If the 


IDCIOO2 
Procedure: BUILDDBK 


5 BUILDDBK compares the device type specified in the 
OPNAGL against the table of allowable devices, 
DEVTABLE. When a match is found, the track length, 
constants used to determine the number of fixed length 
blocks per track, and the device code defined inthe DTF 


are saved. If a device type is not specified in the 
OPNAGL, ’231466bb’ is used as a default. The data set is 
not opened and an error message is written if the following 
conditions are found: 


Blocksize in OPNAGL is less than 1. 


Record format is fixed and blocksize is not a multiple of 
recordsize. 


A non-supported device is specified. 


IDCIOO2 
Procedure: BUILDDBK 


6 


BUILDDBK compares COMPWORD against a table of 
allowable data set characteristics and corresponding load 
module names, DOSACC. When a match is found, the 
length of the load module is used to obtain storage for the 
load module with a UGSPACE macro. BUILDDBK loads 
the module with a LOAD macro that puts it in the storage 
just obtained. The load modules are named IDCDI xx 
where xx is 0! through 15 and contain one or two DTFs 
along with the Access Method Modules needed to processs 
the data set. 


IDCIOO2 
Procedures: BUILDDBK, PRINTMSG 


7 


BUILDDBK issues a UGPOOL macro to obtain storage 
for the 1/O areas. The Access Method Module uses the 
1/O areas as buffers. BUILDDBK puts the address of the 
storage in IOCWKA. If BUILDDBK finds no match in 
DOSACC or cannot obtain storage, the data set is not 
opened and PRINTMSG writes a message. If 
BUILDDBK cannot obtain storage for the load module, it 
issues a UABORT macro. 


IDC1IO02 
Procedure: BUILDDBK. 
8 BUILDDBK updates the DTF with data set characteristics 


from the OPNAGL. Data set characteristics are record 
format, record size, blocksize, and device type. 
BUILDDBK updates the CCWs with the length of the 
data to get or put and the address of an I/O area. 
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Diagram 6.1.3. UOPEN Macro — Check Open 


From Diagram 6.1 





INPUT PROCESSING 





1OCSTR 1. For VSAM data sets, continue to 


Step 2; for nonVSAM data sets, 
go to Step 6. 


eae 2. Checks for successful open. 
ACB 
3. Determines type of processing. 
4. Obtains data set information. 
5. Builds an RPL. 
IOCSTR 
ia area 


6. Obtains ISAM data set characteristics 
and positions to first record. 


Access Method 
Module 





7. Checks for successful open. 


[i 
|| 
= 


IOCSTR 


Data Identifier 
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Extended Description for Diagram 6.1.3 


IDCIO02 
Procedure: OPENRTN 


1 


For VSAM data sets continue to step 2; for nonVSAM 
data sets go to step 6. 


IDCIO02 
Procedure: OPENRTN 


2 


OPENRTN checks the ACBOPEN flag if the open was 
successful. If the open was successful, OPENRTN sets 
flags in the IOCSTR and IOCSEX to indicate that the 
data set can be used and that it must be closed when 
finished. 


IDCIO02 
Procedures: OPENRTN 


3 


OPENRTN makes another check to determine if the 
opened object is a path. If a path has been opened, keyed 
processing is assumed. If REPLACE processing has been 
specified for a path, PRINTMSG writes an error message. 
If the open object is not a path, the LOCSTR does not 
specify control interval or address processing, the type of 
processing is determined by checking the index portion of 
the file. If there is an index portion, keyed processing will 
be used. If there is no index portion, the type of processing 
is set to address processing. OPENRTN next checks the 
ACB to see if the data set is RRDS, if so, OPENRTN sets 
LOCMACCR=‘0’ (keyed) and IOCMACRR=‘1I’. Thus, 
for a 


KSDS IOCMACCR = 0, 
ESDS IOCMACCR = I, 
RRDS IOCMACCR = 0, 


IOCMACRR = 0 
IOCMACRR = 0 
IOCMACRR = | 


IDCIOO2 
Procedures: OPENRTN, PRINTMSG 


4 


OPENRTN obtains the ACB error code, logical record 
length or control interval, high-used RBA, key length, and 
relative key position. If the data set did not open, only the 
error code, not the data, is obtained, and PRINTMSG 
writes a message. If the data set opened successfully, 
OPENRTN moves the ACB information to the IOCSTR. 


IDCIO02 
Procedures: BUILDRPL, PRINTMSG, OPENRTN 


5 


For any VSAM data set that is open, BUILDRPL builds a 
request parameter list (RPL) by issuing the RPL macro. 


Input work areas are required if the data set is opened for 
input or update processing. BUILDRPL issues a 
UGPOOL macro with the file identification to obtain 
storage for the maximum length record or one control 
interval for control interval processing. If 
IOCMODUB='I’, the BUILDRPL procedure of 
IDCIO02 will not issue a UGPOOL to obtain storage for 
an I/O area for input or update processing. In subsequent 
UGET requests the FSR will indicate his own buffers in 
IOCWORK. 


if LOCMODXM=‘I’ and IOCMACRR='I’, indicating 
EXPORT/IMPORT and RRDS, BUILDRPL will get an 
extra four bytes for the work area (IOCWKA) if the data 
set is input IOCMACIN=‘1’). This extra four bytes will 
be utilized in later UCOPY processing for exporting a 
relative record data set. The work area address specified 
for the RPL is the input work area plus 4 (IOCWKA-+4). 
If no space is available for the work area, BUILDRPL sets 
an error return code, PRINTMSG writes a message, and 
OPENRTN turns off the open flag in the LOCSTR. 


BUILDRPL generates an RPL via the RPL macro and 
initializes the RPL with the address of the ACB, options, 
work area address, and maximum length of a data record. 
If (OCMACRR=‘I’, the OPTCD will indicate ‘KEY’. If 
the RRDS is to be processed for output, IOCMACOT=‘I’ 
or IOCMACUP=‘I’, OPTCD will indicate ‘SKP’. This 
will cause output RRDS to be processed in skip sequential 
mode. 


The RPL macro generates KEY, SEQ, NUP for the 
OPTCD field. These attributes are overridden with 
information indicated in IOCSTR/IOCSEX as follows: 


IOCSTR/IOCSEX RPL OPTCD = 
IOCMACUP='I’ UPD 
IOCMACDR='I’ DIR 
IOCMACSK="I’ SKP 
IOCMACCR="‘I’ ADR 
IOCMACBK="‘1’ CNV 


The length of the RPL times ACBSTRNO is stored in 
IOCRPL. If ACBSTRNO is greater than |, the first RPL 
is copied to each additional RPL area. 


IDCIOO02 
Procedures: CK NONOP, PRINTMSG 
6 For ISAM data sets, CK NONOP obtains the true file 


block length, key length and relative key position from the 
DTF after the file is open. If the true block length is 
greater than the block length in the OPNAGL, 
PRINTMSG writes an error message, and CK NONOP 
turns off the open flag in IOCSTR. This ts an error 


condition because ISAM open routines build their own 
CCW with the reali data set characteristics obtained from 
the DSCB. If the I/O area for the data set is not large 
enough for a physical block, the block will overlay storage 
not belonging to the 1/O Adapter. If the true block length 
is equal or less than the value in the DIF, CKNONOP 
puts the values from the DTF in the IOCSTR. 
CKNONOP issues a SETL macro to position to the first 
record in the data set. 


IDCIOO2 
Procedure: CK NONOP 
7 CKNONOP checks the DTF open flags for sequential 


data sets. There are no open flags for ISAM or device 
independent data sets like SYSIPT and SYSLST. If the 
open flags are set for a sequential data set or tape data set, 
CKNONOP sets flags in the IOCSTR and IOCSEX. 
CKNONOP always sets open flags for ISAM and device 
independent data sets. If the DTF open flag is not set for a 
sequential data set, PRINTMSG writes an error message, 
and CKNONOP sets an error return code. 


Wal Jo Aysodorg — [e}103,8]A/ posuedy'] 


4 Guat 4 


DBO] SIOIAIag POMP] 88900V WVWSA/ASA 


Diagram 6.2. UCLOSE Macro 


INPUT 


Register | 


Addresses of 
1 to 4 IOCSTRs 





Open Data Sets 





From Diagram 6.0 





PROCESSING 
OCARRAY 
1. Obtains IOCSTRs to close. ot 
2. Builds list to close. (If the IOCRCVCL IOCSTR Pointers 


flag is on in IOCSEX, skip to step 7.) 


Coe eee tC) 
ae DTF/ACB Pointers 


3. Closes data sets. 


4. Checks for successful close (VSAM 
data sets only.) 


5. Frees module storage for non- 
VSAM data sets. 


6. Frees control blocks and work area 
storage for each data set. Removes 
{OCSTR from chain for each data 
set. 


de Returns. 





OUTPUT 


DTF 


Register 15 
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Extended Description for Diagram 6.2 


IDCIO01 
Procedure: IDCIOCL 


1 IDCIOCL puts the addresses of IOCSTRs in OCARRAY. 
Even if the address is zero it is put in OCARRAY. The 
address will be zero if a UOPEN was issued against a data 
set, but the IOCSTR could not be built. IDCIOCL sets the 
type of operation to “Close” in OCATYP in OCARRAY. 


IDCIO02 
Procedure: CLOSERTN 


2 Only a maximum of four data sets are closed with any one 
UCLOSE macro. CLOSERTN examines OCARRAY for 
the addresses of IOCSTRs to close. If the address of an 
IOCSTR is not zero and CLOSE ALL is not requested, 
CLOSERTN checks the data set for SYSIPT and 
SYSLST. If the data set is SYSIPT or SYSLST, 
CLOSERTN does not close the data sets because they are 
needed until processor termination. 


If a UCLOSE macro is issued and the IOCRCVCL bit is 
on in IOCSEX, the work area pointed to by IOCWKA is 
freed via UFSPACE. Next, a work area whose size is 
specified in LOCTRN is obtained via UGPOOL and the 
address is returned in IOCWKA. Control then passes to 
step 7 (a data set close is not done when the IOCRCVCL 
bit is on). This allows reallocation of the record work area 
after the file is opened. If LOCINFCT='‘l’, indicating a 
close of a VSAM catalog, CLOSERTN merely frees up the 
control blocks associated with this catalog that were 
obtained by I/O Adapter. The issuer of the UCLOSE 
macro is given an RCOK return code. For any other 
nonzero LOCSTR, CLOSERTN saves the address. And, if 
the DTF or ACB is opened, CLOSERTN saves the 
address of the control block in preparation for closing. If 
the data set is not open, LOCFLGOP=0, CLOSERTN 
makes a check to determine if it is externally controlled. If 
it is externally controlled, CLOSERTN passes arguments 
to the external routine. CLOSERTN continues the above 
checking until: 


e IDCIOO1 specifies CLOSE ALL in OCARRAY and 
CLOSERTN has checked all IOCSTR addresses in 
OCARRAY. This happens during I/O termination. 


e IDCI1001 does not specify CLOSE ALL in 
OCARRAY and CLOSERTN has checked all 
IOCSTR addresses in OCARRAY. 


IDCIOO02 
Procedure: CLOSERTN 


3 For up to four open DT Fs or ACBs, CLOSERTN issues a 
CLOSE macro for each open DTF or ACB. The return 
code from the CLOSE macro is saved. If an abend occurs, 
no exits are taken; CLOSE abends. 


For CRAs, CLOSERTN unassigns the logical unit 
number if IOCS YSNO is equal to the value obtained from 
the ASSGN macro by UOPEN. 


IDCIO02 
Procedures: CLOSERTN, PRINTMSG 


4 For VSAM data sets, CLOSERTN checks the ACB error 
code. If the ACB error code is nonzero, PRINTMSG 
writes a message. No tests are made for nonVSAM data 
sets or user catalogs. 


IDCIOO02 
Procedure: ENVFREE 


5 For nonVSAM data sets, ENVFREE issues a FREEVIS 
macro to release the storage used for the IDCDIxx module 
where xx is from 01 to 15. For VSAM data sets the storage 
for the ACB, RPL, and exit list is freed in step 6 along with 
the IOCSTR and all other storage having the same 
IOCSID. 


IDCIO02 
Procedure: CLOSERTN 


6 CLOSERTN saves the address of the IOCSTR that was 
closed and the address of the next IOCSTR in the chain 
after the IOSTR for the closed data set. CLOSERTN 
issues a UFPOOL to free all storage obtained for the data 
set that is closed. CLOSERTN passes the IOCSID field to 
UFPOOL which identifies all storage obtained for the data 
set. CLOSERTN seaches the IOCSTR chain until the 
IOCSTR is found that points to the closed IOCSTR. 
CLOSERTN replaces the address of the closed IOCSTR 
with the address of the next LOCSTR in the chain. 


IDCIO01 


Procedure: IDCIOCL 


7 IDCIOCL puts a return code in register 15 and returns 
control to the module that issued the UCLOSE. 


Wl J0 Aysadoig — [8]1938]\] posuaay'] 


C0C~7 


SISO] S9OIAIOG POY] 89000— WWSA/ASA 





Diagram 6.3. UPOSIT Macro 





Data Set 


- 





From Diagram 6.0 





PROCESSING 


1. Checks data set. 


2: Positions in VSAM data set. 


3. Positions in ISAM data set. 


4. Writes error message for nonVSAM 
and nonISAM data sets. 


5, Returns. 


OUTPUT 


Error Message 


Register 15 


eee 
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Extended Description for Diagram 6.3 
IDCIOO3 
Procedure: IDCIO03 


1 


If the LOCSTR address is zero or the data set is not open 
(LOCMSGOP=60), IDCIO03 issues a UABORT macro. If 
the data set is open for processing (IOCMSGOP=1), and 
the data set is externally controlled IOCFLFEX=1), 
IDC1003 returns control, with a return code of zero, to the 
module that issued the UPOSIT. No provision is made for 
positioning in externally controlled data sets. 


IDCIOO03 
Procedures: PTAMDS, PRINTMSG 
2 For VSAM data sets, PTAMDS inserts the POINT 


argument in the RPL. VSAM uses the POINT argument 
in the RPL to position to the requested record. If the data 
set is open for adddress processing, PTAMDS puts the 
address of the Relative Byte Address (RBA) in the 
RPLARG field of the RPL. If the data set is RRDS 


~ (LOCMACRR=‘1’), the RPLARG field is set to contain 


the address of the relative record number which is 
contained in IOCREL. If control interval processing is 
specified (IOCMACBK="'1’), the RPLARG field is set to 
contain the address of the RBA which is contained in 
1OCRBA. Otherwise, PTAMDS puts the address of the 
key in IOCKYA into the RPLARG field. If the length of 
the key of the requested record is greater than the key 
length for the data set, PRINTMSG writes an error 
message and PTAMDS does not position to the requested 
record. PTAMDS expands every key to 256 bytes by 
adding binary zeros on the right. PTAMDS inactivates the 
end-of-data routine in the EXLIST control block. This is 
done to prevent the end-of-data routine from getting 
control if the record positioned to is beyond the end of the 
data set. If the end-of-data routine receives control, an 
abend would occur. PTAMDS issues the POINT macro to 
position to the record with the key or the next higher key. 
PTAMDS re-activates the end-of-data exit routine. If the 
return code from the POINT macro is 12, an 1/O error has 
occurred and a message is written. PRINTMSG prints the 
error message. If the return code from the POINT macro is 
8, a logic error has occurred and PITAMDS checks the 
logical error. If the results indicate that no record was 
found or repositioning beyond end-of-file, PTAMDS sets 
a return code of “no record found.” For all other logic 
errors, PRINTMSG writes a message containing the 
return code unless the suppress message flag, 
IOCMSGSM has been set by the caller. 


IDCIO03 
Procedure: PTISDS 
3 Foran ISAM data set, PTISDS does not position the 


record if the length of the key supplied is greater than the 
key length for the data set. For valid key lengths, PTISDS 
does the positioning. PTISDS expands the key to 256 bytes 
by padding on the right with binary zeros. PTISDS issues 
an ESETL macro because a SETL was issued when the 
data set was opened. PTISDS issues a SETL macro to 
position to the record with the key or next higher key. If 
the postioning is beyond the end of the data set, the SETL 
routine sets a flag in the DTF. If this flag is on, PTISDS 
returns a code of “‘no record found.” If the flag is not on, 
positioning was successful and PTISDS returns a code of 
Zero. 


IDCIO03 
Procedures: PRINTMSG, IDCIO03 


4 


If the data set is nonVSAM and not ISAM, PRINTMSG 
writes an error message. If an error is detected, IDCIO03 
turns off the open for processing idiciator, IOCMSGOP, 
so that no more I/O operations except close are permitted 
against the file. 


IDCIOO!1 
Procedure: IDCIOPO 


5 


IDCIOPO puts a return code in register 15 and returns 
control to the module that issued the UPOSIT. 
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Diagram 6.4. UGET Macro 


INPUT 


Register | 


Record 







Data Set 


(~~) 


From Diagram 6.0 


PROCESSING 


If entrance is from any module 
except UCOPY, control goes to Step 2; 
if entrance is from UCOPY, control 
goes to Step 3. 


Checks data set. 


Transfers control for externally 
controlled data set. 


Gets record and puts its address in 
IOCSTR. 
e VSAM records. 


e NonVSAM records. 


5. Returns. 





OUTPUT 


IOCSTR 


IOCDAD 
Length of Record 
IOCALN 
IOCKYA 
IOCRSA 


Register 15 
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Extended Description for Diagram 6.4 


1 


If entrance is from any module except UCOPY, control 
goes to step 2. If entrance is from UCOPY, control goes to 
step 3. 


IDCIOO1 
Procedure: IDCIOGT 


2 


If the address of the IOCSTR is zero or the file is not open 
for processing, (IOCMSGOP=0), IDCIOGT issues a 
UABORT macro to terminate processing. If end-of-file 
has previously been encountered, (IOCFLGEF=1), on an 
input data set, IDCIOGT returns control to the module 
that issued the UGET. This check allows more than one 
module to issues UGETs on the same data set and both 
modules will get end-of-file indications by a return code. 


IDCIOO1 
Procedure: GETEXT 


3 


If the data set is externally controlled, GETEXT passes an 
argument list to the external routine so the external routine 
can perform the 1/0 operation. GETEXT tests the return 
code from the external routine. If the return code is zero, 
GETEXT moves the address and length of the data record 
just read to the LOCSTR and GETEXT increments the 
count of successful UGETs. If the return code is 
end-of-file, GETEXT sets the end-of-file flag in the 
IOCSTR and GETEXT sets the return code to end-of-file. 
If the return code is 12, indicating that no more I/O 
operations can be performed against the data set, 
GETEXT turns off the open for processing flag 
(IOCMSGOP). For any other return code, GETEXT sets 
a return code of 4. IDCIOGT returns control to the 
module that issued the UGET. 


IDCIO01 


Procedures: GETVSAM, CHANGE, VSAMERR, 
PRINTMSG, GETNONVS, IROSEOD, IRSISYN, 
IRAMEOD 


4 For VSAM data sets continue with 4.a, for nonVSAM data 


sets go to 4.b. 


a. If any of the IOCSTR change processing flags are set, 
indicating a change in processing modes, the 
CHANGE procedure makes the appropriate change in 
the RPL. The following IOCSTR settings specified by 
the issuer of UGET are reflected in the RPL: 


IOCSTR RPL OPTCD = 
IOCCHPSQ SEQ 
IOCCHPDR DIR 
IOCCHPSK SKP 
IOCCHPKS KEY 
IOCCHPCR ADR 
IOCCHPBK CNV 
IOCCHPKG KGE 
IOCCHPKE KEQ 
LIOCCHPUP UPD 
IOCCHPNU NUP 


The CHANGE procedure will set all change 
processing flags to ‘0’, and the IOCSTR will be 
changed to reflect the new processing option. 


If the data set is RRDS, IJOCMACRR=‘1’), RPLARG 
is set to the address of IOCREL so that VSAM will 
return the relative record number to UGET. 


If user buffer is specified JOCMODUB=‘l’), the caller 
has placed the address of the input work area in 
IOCWORK. This address will be placed in the RPL 
work area field. 


For OPTCD=CNV or ADR with DIR or SKP, the 
caller has placed an RBA in IOCRBA. The address of 
IOCRBA will be placed in the RPLARG field. In this 
situation, the RBA will not be moved to IOCRBA 
following the GET. 


For OPTCD=KEY with DIR or SKP, the caller has 
placed the address of the key in IOCKYA and its 
length in IOCK YL. RPLARG is set equal to IOCKYA 
and RPLKEYLN is set equal to IOCK YL. If 
IOCMACCTI is set on (indicating export CIMODE 
processing), and the input data set isa KSDS/AIX, 
register 0 is set to X‘30’ before the GET is issued. 


GET VSAM issues a GET macro in the move mode, 
specifing the address of the RPL built when the data 
set was opened. If end-of-file is encountered, the 
VSAM EODAD exit routine, IRAMEOD, sets the 
end-of-file flag in the IOCSTR and sets the return code 
to indicate end-of-file. GETVSAM tests the return 
code from GET. If the return code is nonzero, an error 
code has been placed in the RPL. If the return code is 
zero, the VSAM GET routine has read the record or 
control interval. GETVSAM moves the record address, 
record length, and RBA from the RPL to the IOCSTR. 
If the data set is being processed by key, GETVSAM 
places the address of the key in the record just read in 
the IOCSTR: Ifthe return code from the GET is 
nonzero, VSAMERR obtains the error code from the 
RPL and PRINTMSG writes the message. The call to 
VSAMERR by UGET to print logical error messages 


is bypassed if the suppress messages flag, 
IOCMSGSM, has been set by the UGET caller. 


b. For nonVSAM data sets, GETNONVS issues a GET 
specifying the DTF address. For spanned records the 
address of the work area for the data set which was 
obtained when the data set was opened, is given the the 
GET macro. The GET routine puts the complete 
record in the work area. GETNONVS gets the length 
of variable length records from the Record Descriptor 
Word (RDW). If the input LOCSEX indicates a catalog 
recovery area for import (IMPORTRA), the 
GETNONVS routine strips off the 4-byte header 
record prepended to it when the record was exported 
via EXPORTRA (see UPUT Diagram 6.5). For 
nonspanned records register 8 has been specified as the 
IOREG in the DTF. For undefined records the length 
is found in the RECLEN register defined in the DTF. 
The GET routine puts the address of the record in 
register 8. 


For ISAM data sets with fixed unblocked records, the 
key is returned preceeding the data; however, register 8 
has the address of the data. GETNONVS subtracts the 
key length from the data address to get the address of 
the key. If an error or end-of-file occurs attempting an 
ISAM GET, the GET routine sets flags in the DTF. 
GETNONVS tests the flags. If end-of-file has 
occurred, GETNONVS sets a return code. If an error 
has occurred, PRINTMSG writes a message and 
GETNONVS sets a return code. If no errors or no 
end-of-file has occurred, GETNONVS assumes the 
GET its successful and the record address and record 
length are set in IOCDAD and IOCDLN, respectively. 
GETNONVS puts the address of the key in IOCKYA. 


For non-ISAM data sets, if an error or end-of-file 
occurs, the EODAD exit routine, IROSEOD, or 
SYNAD exit routine, IRSISYN, gets control. if 
end-of-file occurs, IRSOEOD sets a return code. If an 
error has occurred, PRINTMSG writes a message and 
IRSISYN sets a return code. If no errors or no 
end-of-file has occurred, GETNONVS assumes the 
GET is successful and the record address and record 
length are set in IOCDAD and IOCDLN, respectively. 


IDCIO01 
Procedure: IDCIOGT 
5. IDCIOGT puts a return code in register 15 and returns 


control to the module that issued the UGET. 
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Diagram 6.5. UPUT Macro 
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From Diagram 6.0 


PROCESSING OUTPUT 


If entrance is from any module 
except UCOPY, continue to Step 2: if 
entrance is from UCOPY, go to 

Step 3. 


Checks for multiple requests. 


OR Record 


Transfers control for externally Record 
controlled data set. 


; IOCSTR 
Writes the record. 


e VSAM records. 


® NonVSAM records. 


Register 15 
Returns. 
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Extended Description for Diagram 6.5 


1 Ifentrance is from any module except UCOPY, control 
goes to step 2. If entrance is from UCOPY, control goes to 
step 3. 


IDCIOO1 
Procedure: IDCIOPT 


2 IDCIOPT uses the type identification to determine 
whether or not the record is a message. An omitted 
identification or an identification of zero indicates a data 
record. A nonzero value indicates a message is to be 
written. If the address for the IOCSTR is zero or the open 
for processing flag, LOCMSGOP, is off, IDCIOPT issues a 
UABORT macro. If IOCPNM is zero, only one record is 
written with UPUT and the length of the record is 
assumed to be in IOCDLN. If IOCPNM is nonzero, one or 
more records are written with this UPUT. IOCDLN 
contains the total length of all the records, and each record 
is preceeded by a two byte length field for that record. 
IDCIOPT sets IOCPNM to one if it was initially zero. For 
multiple records, IDCIOPT puts the length of the first 
record in IOCDLN and IDCIOPT puts the address of the 
data for the first record in IOCDAD. 


IDCIOO1 
Procedure: PUTEXT 


3 Ifthe data set is externally controlled, PUTEXT constructs 
an arguments list. PUTEXT gives control to the external 
routine addressed in IOCXDAD. If the return code from 
the external routine is zero, PUTEXT increments the 
number of successful UPUTs. If the return code is 12, 
PUTEXT turns off the open for processing flag 
(LOCMSGOP) so that no processing can be done against 
this data set. PUTEXT returns control to step 2 for the 
next record. 


IDCIOO! 


Procedures: PUTVSAM, CHANGE, VSAMERR, 
PRINTMSG, PUTNONVS, IRSOSYN, PUTREP 


4 For VSAM data sets continue with 4.a, for nonVSAM data 
sets go to 4.b. 


a. PUTVSAM checks to see if LOCMACER is set by the 
caller of UPUT, if so, PUTVSAM issues the ERASE 
macro with a pointer to the RPL. In this case, a UGET 
for update must previously have been issued by the 
caller. If LOCMACEN is set by the UPUT caller, 
PUTVSAM issues the ENDREQ macro with a pointer 
to the RPL. 


If any IOCSTR flag indicating a change in processing 
modes, has been set by the caller, CHANGE makes the 
appropriate change in the RPL. The following 
IOCSTR settings specified by the issuer of UPUT are 
reflected in the RPL: 


IOCSTR RPL OPTCD= 
IOCCHPSQ SEQ 
IOCCHPDR DIR 
IOCCHPSK SKP 
IOCCHPCR ADR 
IOCCHPBK CNV 
IOCCHPKG KGE 
IOCCHPKE KEQ 
IOCCHPUP UPD 
IOCCHPNU NUP 


CHANGE will set all change processing flags to ‘0’, 
and the IOCSTR will be changed to reflect the new 
processing option. 


PUTVSAM puts the record length and address in the 
RPL. 


If lOCMACRR=‘l’, indicating a PUT to an RRDS, 
the RPLARG field in the RPL is set to the address of 
IOCREL. If OPTCD=CNV,DIR, RPLARG field is 
set to the address of IOCRBA. 


If user buffers are specified, (IOCMODUB=1), the 
output area address in the RPL is obtained from 
IOCWORK rather than IOCDAD. 


PUTVSAM issues a PUT macro to write the record. 
The record may be a logical record or a control 
interval. If the return code from the PUT is zero, 
PUTVSAM increments the number of successful 
UPUTs in IOCRRN. If the return code is nonzero, 
VSAMERR obtains the error code from the RPL. If 
the error code indicates a logic error, VSAMERR 
determines if it is a duplicate record or a 
record-out-of-sequence, PRINTMSG writes the 
appropriate message. Otherwise, the error is assumed 
to be an I/O error, and PRINTMSG writes a message. 
The call to VSAMERR by UPUT to print logical error 
messages is bypassed if the suppress messages flag, 
IOCMSGSM, has been set by the UPUT caller. 


PUT VSAM will provide replace processing under the 
following conditions: 


e A return code from PUT indicating a logical error (08) 
e RPL feedback code indicating duplicate record. 


e Replace processing specified by caller 
(IOCMODRP=1) 


In the PUTREP routine, LOCWKA is checked to 
determine if an input work area exists. If not, a 
UGPOOL is issued to obtain an input work area. The 
RPL is modified to permit update processing. A GET 
for update is issued followed by a PUT. The LOCSTR 
for the PUT will reference the address of the original 
PUT record in IOCDAD. After the PUT, the RPL is 
reset for no update processing. 


If the return code for an 1/O error is greater than 4, 
VSAMERR turns off the open for processing flag 
(LOCMSGOP). PUTVSAM returns control to step 2 
for the next record. 


. PUTNONVS checks the length of the record against 


the LOCTRN to be sure that the record can be written. 
If the length is too long, PRINTMSG writes an error 
message and control returns to step 2 for the next 
record. For the SYSLST data set, PUTNONVS 
compares the record length to the maximum and 
truncates the record if it is longer than the maximum. 
The record is processed according to the record format. 


e For spanned records, PUTNONVS constructs a 
Record Descriptor Word (RDW) in the first four 
bytes of the work area. PUTNONVS moves the 
record to the work area making one spanned logical 
record. The address of the work area will be 
specified in the PUT macro. 


If the output IOCSEX indicates export of a catalog 
recovery area (IOCRCVM='‘l’), a 4-byte header 
must be prepended to each record of the portable 
data set. The header consists of 4 bytes of binary 
zeros. However, if the data-length IOCDLN) and 
the data pointer (IOCDAD) in the IOCSTR are 
both zero, then the 4-byte “header” is written as a 
software end-of-file and consist of X°00008000". 


e For variable blocked records, PUTNONVS checks 
to be sure the block will fit in the 1O AREA being 
used as the buffer. If the block is too long, 
PUTNONVS issues the TRUNC macro to write 
the current buffer and to start processing in the 
other 1/O area. 


e For variable records, PUTNONVS constructs a 
RDW in the first four bytes of the area in the buffer 
and PUTNONVS moves the record following the 
RDW. 


PUTNONVS issues a PUT macro. The address of 
the next area is returned by the PUT 
macro—except for spanned records—and is saved. 
If the records are variable blocked, PUTNONVS 
saves the number of bytes remaining in the current 
area. If an I/O error is detected during the PUT 
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macro, IRSOSYN sets error data. PRINTMSG 
writes the message. IRSOSYN turns off the open 
for processing flag, IOCMSGOP. If there are no 
errors, PUTNONVS increments the count of 
successful UPUTs in IOCRRN. PUTNONVS can 
use device independent, magnetic tape, or 
sequential disk DTF processing. PUTNONVS 
returns control to step 2 for the next record. 


IDCIOO0!1 
Procedure: IDCIOPT 


5 When all the records have been written, IDCIOPT puts a 
return code in register 15 and returns control to the 
module that issued the UPUT macro. 
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Diagram 6.6. UCOPY Macro 
From Diagram 6.0 


PROCESSING OUTPUT 
Return Code 


1. Obtains input record. ae ih [ 
eed IOCSTR for Output Data Set 


Output Data Set 


= 


Input Data Set 


INPUT 













GDT 2. Tests return code. 





3. Puts record on output IOCSTR 
and writes record. 






Return Code 






a r 2] 
G 
e. 
zt 
- 
C 
= 





IOCSTR for Output Data Set 


Tests return code. 


a 





IOCSTR for Input Data Set 5. Returns to step 1 until an error 
is encountered or end-of-file is 
reached. 
Register 15 
6. Returns. 


Input Data Set 


ai 


Output Data Set 


UW) 
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Extended Description for Diagram 6.6 
IDCIOO1 
Procedure: IDCIOCO 


1 IDCIOCO obtains a record from the input data set by 
calling procedures used for a UGET macro. The UGET 
procedure returns control to this point in the UCOPY 
routine. Arguments to the UGET procedures are set up 
just as though a UGET had been issued. If export 
CIMODE processing has been requested, the control 
interval is retrieved. For each input control interval that 
contains a segment of a spanned record, the segment is 
checked for a consistent level number; only a valid 
segment is written. If the segment is invalid, message 
IDC1329] is written and the remaining segments are 
ignored. 


IDCIOO1 
Procedures: IDCIOCO, PRINTMSG 


2 IDCIOCO tests the return code from the UGET 
procedures. If the return code is zero, the UGET 
procedure read the record successfully. If the output 
IOCSTR indicates RRDS (IOCMACRR=!1) and the input 
IOCSTR indicates nonRRDS (IOCMACRR=0), an 
incremental counter is maintained. This counter is 
incremented by one each time a record is successfully 
retrieved from the nonRRDS. This count is placed in the 
output IOCREL prior to UPUTing the record. 


If the return code indicates end-of-file, control goes to step 
6. If the return code indicates an error, IDCIOCO 
increments the number of errors for UCOPY. If the 
UGET routine has set a message, PRINTMSG writes it. 
Processing continues with the next input record if the 
number of errors is less than four, and the open for 
processing flag (IOCMSGOP) is on. If the number of 
errors is 4 or LOCMSGOP is off, IDCIOCO turns off 
IOCMSGOP and UCOPY quits. 


IDCIOO1 
Procedure: IDCIOCO 


3 °¢ Ifthe output LOCSTR does not indicate export 
CIMODE processing: 

IDCIOCO moves the length and address of the 
record just read from the input IOCSTR to the 
output IOCSTR. If the input and output IOCSTR 
both indicate RRDS, IOCREL is moved from the 
input IOCSTR to the output IOCSTR before issuing 
the UPUT. This will result in exact recreation of the 


correlation between the relative record number in the 
input and output RRDS. 


If the input IOCSTR indicates IOCMACRR='‘I’ and 
the input IOCSEX indicates IOCMODXM="'1’, this 
isan EXPORT ofan RRDS. It is required that the 
relative record number be carried in the portable data 
set. The relative record returned in IOCREL when 
the record is retrieved is placed in the 4-byte field 
immediately preceding the record. The RRDS record 
plus the 4-byte field is then written to the portable 
data set. 


If the output IOCSTR indicates IOCMACRR=‘l’ 
and the output IOCSEX indicates IOCMODXM='I’, 
this is an IMPORT of an RRDS. Records retrieved 
from the portable data set have the relative record 
number prepended to the RRDS record. This relative 
record number is moved to the output IOCREL. The 
address of the beginning of the RRDS record is set to 
its logical beginning (the address of the retrieved 
record +4) and the length of the record to be written 
is reduced by 4 bytes. 


e Ifthe output LOCSTR does indicate export CIMODE 
processing: 


For a spanned record, a GET is issued for each 
segment, and the spanned record is built in a work 
area. When all segments are retrieved, a PUT is 
issued for the record. 


For a non-spanned record, the control interval is 
deblocked, and a PUT is issued for each record 
contained in it. 


IDCIOCO writes the record by calling the same 
procedures used for the UPUT macro. IDCIOCO sets up 
the arguments to the procedures just as though a UPUT 
macro has been issued. The UPUT procedure returns 
control to this point in the UCOPY routine. 


IDCIOO! 
Procedure: IDCIOCO 


4 


IDCIOCO tests the return code from the UPUT 
procedures. If the return code is zero, the UPUT 
procedure wrote the record successfully. If the return code 
indicates an error, IDCIOCO increments the number of 
errors for the UCOPY. 


IDCIOO1 
Procedures: PRINTMSG, IDCIOCO 


5 


Control goes to step | for the next record. Processing 


continues if the number of errors is less than four, and 
IOCMSGOP is on. PRINTMSG writes a message if the 


message has been formatted. If the number of errors is 4, 


IDCIOCO truns off IOCMSGOP and UCOPY quits. 


IDCIOO!I 
Procedure: IDCIOCO 


6 IDCIOCO puts a return code in register 15, and returns 
control to the module issuing the UCOPY. 
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Diagram 6.7. UVERIFY Macro 


INPUT 


Register | 





VSAM 
Catalog 


VSAM 
Data Set 


From Diagram 6.0 


PROCESSING 


1. Checks data set. 


Z3 Updates end-of-file indicator in 
VSAM catalog. 


3. Returns. 





OUTPUT 


VSAM 
Catalog 


Register 15 


Za 
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Extended Description for Diagram 6.7 


IDCIOO!I 
Procedure: IDCIOVY 


The second argument is assumed to be a valid IOCSTR 
address. The UVERIFY does not continue if: 


e The file is not VSAM. 
e No RPL has been built for a VSAM file. 
e The VSAM file is not open. 


No error message is written for the last two conditions 
because message have been written at open. 


IDCIOOI 
Procedure: IDCIOVY 
2 IDCIOVY issues a VERIFY macro. 


IDCIOO! 
Procedures: VSAMERR, PRINTMSG, IDCIOVY 
3 If the return code is not zero, VSAMERR obtains the error 


code from the RPL. If the error is a logic error, 
PRINTMSG writes a message. If the error is an 1/O error, 
PRINTMSG writes an error message. If the error code 
returned in the RPL is not 4, which indicates that the error 
occurred in the data, VSAMERR turns off the open for 
processing flag (IOCMSGOP). IDCIOVY puts a return 
code in register 15 and returns control to the module that 
issued the UVERIFY. 
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Diagram 6.8. UIOINFO Macro 


INPUT 
Register | 


GDT 
Option byte 


Return area pointer 


Caller-supplied data 
UGPOOL storage ID 


Direct 
address 





From Diagram 6.0 


PROCESSING 


Obtains information requested. 


Obtains storage for return area if not 
supplied by caller. 


Formats requested information into 
return area. 


OUTPUT 
Register } 


t GDT 
Option byte 


Caller-supplied data 


{ UGPOOL storage ID 
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Extended Description for Diagram 6.8 


IDCIO03 
Procedure: DSINFO 


1 UILOINFO analyzes the option byte passed by the caller 
and determines what kind of information is required. Data 
set name, volume serial list and Logical Unit Blocks 
(LUB) require that UIOINFO obtain job control 
information. UIOINFO issues CDLOAD to load 

-IKQVLAB, the VSAM read label cylinder module,and 
then gives control to IKQVLAB. The work area passed to 
IKQVLAB is that of the existing work area in IDCIO02’s 
automatic storage. If the return code from IKQVLAB is 
nonzero, UIOINFO sets a return code and returns control 
to the calling procedure. If the return code from 
CDLOAD was nonzero, DSINFO issues a UABORT 
macro. If the return code is 12 (insufficient storage was 
available), DSINFO sets the UABORT code to 28; 
otherwise, DSINFO sets the UABORT code to 64. 


If device type information is requested, UIOINFO issues a 
CDLOAD macro for IKQVDTPE and passes control to it 
providing a pointer to the label information that will be 
returned from IKQVLAB. Label information is not 
needed if the VOLID is already known. In that case, 
IKQVDTPE does a GETVCE using the VOLID. The 
reading of label information is needed only to find a 
VOLID. It is assumed that the volume is already assigned; 
if not, a job control error is returned. 


If timestamp information is requested, UIOINFO issues 
an OVTOC macro to open the VTOC on the volume. It 
next issues a PVTOC macro with the read option to read 
the format-4 label of the VTOC. When processing is 
complete, a CVTOC macro is issued to close the VTOC. 


IDCIO03 
Procedure: DSINFO 


2 All of the information that UIOINFO obtains in Step | is 
placed in IDC!I002’s automatic storage work area. During 
this process UIOINFO calculates the actual length of the 
data to be passed back to the caller. The caller can either 
pass a return area to UIOINFO or pass a UGPOOL ID. If 
the caller passes a return area, UIOINFO determines if it 
is large enough (the length is contained in bytes 0 and | of 
the return area). If not, ULOINFO places the total size 
needed in bytes 2 and 3 of the return area, sets a return 
code, and passes control back to the caller. 


If the caller has passed a UGPOOL ID, UIOINFO issues 
a UGPOOL macro for the required amount of storage 


with the storage identification passed by the caller. In this 
case the caller is responsible for freeing this storage. 


IDCIO03 
Procedure: DSINFO 


3 UIOINFO formats the requested information into the 
return area and passes control back to the caller. 
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Text Processor Visual Table of Contents 


Text Processor 


Overview 





UPRINT 


1A 


7.1 Vice 7.3 7.4 
UESTS UESTA UREST URESET 
CONVERT 


(fe) 


PRINT 


UERROR 


Voz 
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Diagram 7.0. Text Processor Overview 


INPUT 


Register | 


Argument List 





Register | 


Argument List 


Dynamic Static Text 
Text Module 


Register | 


Argument List 


ERCNVTAB 











From Module 
Issuing Macro 


PROCESSING OUTPUT 





1. For page control continue to Step 2: 
for line control, go to Step 3. 


2. Manipulates PCT based upon macro 
specified: 


e UESTS 
See Diagram 


Register 15 


as 


e UESTA 
See Diagram 


e UREST 
See Diagram a 





e URESET 
See Diagram 


Printed Lines 
3. Formats, converts, and prints lines: 


e UPRINT 


See Diagram 
Register 15 


ees 


y 





4. Formats error messages: 


e UERROR 
See Diagram 76) 


Printed Lines 


Register 15 
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Extended Description for Diagram 7.0 


IDCTP01 
Procedure: IDCTPO1 


1 For page control continue with step 2; for line control go 
to step 3. 


2 The page control macros use the argument list to change 
the Print Control Table, PCT. The page control macros 
are: 


UESTS, which establishes the PCT with data from a 
Static text module. 


UESTA, which establishes the PCT with data from 
storage. 


UREST, which changes the PCT after a UESTS or 
UESTA macro has been tssued. 


URESET, which sets Access Method Services defaults 
in the PCT. 


Each page printed by Access Method Services has three 
sections: 


1 Oto 3 subtitles 


2 Header line 
Data line 


3 0 to3 footing lines 


The title section contains the main title line and from zero 
to three subtitle lines. All lines in the title section are 
printed at the top of each page. The main title line is the 
first line on each page followed by subtitle lines. The 
header and data section contains any header and data 
lines. The header lines are kept in static text modules and 
are printed on page overflow conditions The footing 
sections contains from zero to three lines printed at the 
bottom of each page. At least one vertical space precedes 
them. More vertical spaces can appear depending upon the 
control characters in the first footing line. A new page 
results from any of the page contro! macros, a page eject 
on a line, or a request to print a line that would cause more 
lines on a page than specified. If there is not enough space 
on a page for all the header lines and one data line, none 
are printed. A page is ejected, and title and header lines 
are printed on the next page. Footing lines are always 
printed on each page. Vertical spacing is done before the 
line is printed. 


The page control macros give the facility to change the 
following items in the PCT: 


Item Default Limits 

Main title line | l 

Page number 107 1 to line width minus 
location field length 
Time-of-day 75 ! to line width minus 
location 8 for field length 

Date location 9] 1 to line width minus 8 


for field length 
Subtitle line no subtitles 0 to 3 lines 


Footing line no footing Oto3 lines 


Line width 120 133 maximum 
Page depth 54 999 maximum 
Default vertical 1 vertical 1, 2, 3, or vertical 
space character space spaces 

Translate table standard 

for print chain tables 


The UPRINT macro formats data within a line, converts 
data to a printable form, and prints the line or lines. 
IDCTPOI uses the PCT to format the line and the page. 
The line to be printed is described by two kinds of input: 
static text and dynamic text. Static text is unchanging data 
and format structures that reside in a module referred to as 
a Static text module. Dynamic text is any changing data 
and format structures that reside in storage. Format 
structures, FMTLIST, describe how the line is to be 
formatted. The types of formatting are: 


Vertical spacing 

Inserting data into a line 

Extracting fields from a block of data in storage 
Extracting data from a static text module 
Defining default data 

Repeating any of the above actions 


The types of conversion are: 


Binary to hexadecimal 

Binary to hexadecimal with apostrophe 
Binary to dump 

Binary to decimal 

Packed decimal to unpacked decimal 
EBCDIC, no translation 


The types of vertical spacing are: 
Absolute spacing 


The line is printed at a given line number on the 
page. If data has been printed at that line number, 
the page is ejected, and the line is printed at the first 
data line number on the next page. If the line 
number is within the title section or header lines, 
the line is printed at the line number immediately 
following the header lines. If the line number is 
within the footing section, the page is ejected, and 
the line is printed immediately following the header 
lines on the next page. 


Relative spacing 


The line ts printed at a number of vertical spaces 
counted from the last printed line. If there is not 
enough room on the page to print the line, the page 
is ejected, and the line is printed after the title 
section and header lines on the following page. 


Fiect 


The line is printed after the title section and header 
lines on the following page. 


The UERROR macro formulates prose messages for the 
return and reason codes caused by catalog errors. It 
instigates multilevel message requests to the UPRINT 
macro. Formatting and printing of the multilevel message 
is handled by the UPRINT macro. 
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Diagram 7.1. UESTS Macro 


INPUT 






Static Tex! 
Identifier 


Static Text 
Module 


From Diagram 7.0 


PROCESSING 


If entrance is from first UESTS 
macro, continue to Step 2: if 
entrance is after first UESTS 
macro, go to Step 3. 


Performs initial processing. 


Prints existing lines. 


Remakes secondary PCT. 


Gets input from static text 


module. 


Initializes values in work table. 


Puts data in PCTs. 


Returns. 






© 





PO4WT 


EEE 







OUTPUT 


Stack Buffer 


a 


Printed Lines 


A 


Ova | © PCT 2 


JL 


Register 15 
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IDCTP04 
Procedure: INITPCT 


4 Prior to making any changes INITPCT gives control to 
STACKEL to flush the stack buffer. If a secondary PCT 


Extended Description for Diagram 7.1 


IDCTP04, IDCTPO1 
Procedures: ESTSCONT, INITPCT, STACKPUT 


IDCTP04 
Procedure: PCTSETUP 
7 PCTSETUP forces a page overflow so the next line will 


1 


if entrance is from the first UESTS macro, processing 
continues with step 2. If entrance is after the first UESTS 
macro has been issued, processing continues with step 3. 


exists—that is PCTSPP in the primary PCT is not 
zero—INITPCT releases the secondary PCT witha 
UFPOOL macro. INITPCT copies some data from the 


start on a new page. If no secondary PCT exists, 
PCTSETUP initializes the primary PCT with the 
minimum values needed to control a page, which are: 


e 
2 ESTSCONT passes control to INITPCT which tests the secondary PCT to the primary PCT before the secondary i ice peated aa aia 
GDTTPM to determine if this is the first UESTS macro EC dis iees NEES EL sues a Ge OL macoiors a fi nc ag Seen a 
issued. If GDTTPH in the GDT is not zero, a PCT already Bee ny a ie ee ee ener sf AIRE SRE wRELC TRICE eticd 
exists, and control is given to step 3. The first time a PCTIDN, in the secondary PCT to ‘PCT2’, and sets the P 
UESTS macro is issued the GDTTPH is zero, which PCTSPP field to zero. For initializing either the primary PCT or the secondary 
means that no PCT exists. When no PCT exists, INITPCT PCT, PCTSETUP verifies the input data and puts it into 
obtains and initializes a PCT. INITPCT issues a IDCTP0S5 the appropiate PCT. 
UGSPACE macro for the primary PCT. UGSPACE puts ; 
the address of the primary PCT in GDTTPH. (The GDT mrocemure: DCI IDCTP04 
refers to the PCT as the Text Processor Historical Data § Ifa static text module is used once, it is likely that it will 
Area.) The Text Processor (TP) uses two Print Control be used again on the next call to the Text Processor. Procedure: ESTSCONT 
Tables—a primary PCT and a secondary PCT. Each PCT Rather than loading and deleting a static text module each 8 ESTSCONT deletes the storage for the static text entry 
has the same fields. The primary PCT contains default time it is used, the static text module is kept in storage with a UFSPACE macro. ESTSCONT puts a return code 
values. INITPCT creates it during processor initialization, until a different static text module is needed. The address in register 15, and control returns to the module that 
and deletes it at processor termination. It exists throughout of the static text module in storage is kept in PCTSTM in issued the UESTS macro. 
Access Method Services processing. The secondary PCT the PCT. The static text identification passed by the 
contains current values which are different from the calling program to the Text Processor as input is used to 
default values in the primary PCT. INITPCT creates it reference the appropiate module. IDCTP05 concatenates 
and deletes it many times during Access Method Services the first three bytes of the static text identification with 
processing. The address of the secondary PCT is in the ‘IDCTS’ to form the module name. IDCTP05 compares 
primary PCT. When the Text Processor uses a PCT, if the the module name to the name of the static text module in 
secondary PCT exists, it is used instead of the primary storage in PCTSTM. If the names don’t match, IDCTP05 
PCT. deletes the static text module in storage with a UDELETE 
a : ie macro, and IDCTPOS loads the requested static text 
{peu than Whine each line pagaeus completed, f he Text module with a ULOAD macro. IDCTP0S5 puts the name 
rocessor saves time by putting completed lines in an area 
of the loaded module in PCTSTM and the address of the 
of storage called the stack buffer. When the stack buffer is module in the field PCTSME in the PCT. If a secondary 
ay Feiied wales ESTOS ON) issues 2 PCT exists, it is used; otherwise the primary PCT is used. 
macro for storage for the stack buffer and puts 
the address of the stack buffer in the fields PCTBUF and IDCTP0S uses the low-order byte of the static text 
PCTBNL in the primary PCT. ESTSCONT opens the identification as an index to obtain the correct static text 
System output data set with a UOPEN macro. Control is entry. IDCTPO5 copies the entry from the static text 
given to step 4. module into storage that IDCTPOS obtains with a 
UGSPACE macro. This is done so the static text entry is 
IDCTP04 available if the static text module is deleted. 
Procedure: STACKFL IDCTP04 
3 Because controls governing the writing like page depth Procedure: PO4SETUP 


and line width are changing, the lines formatted under the 


current control values must be written before the controls 6 PO4SETUP puts data from the static text entry into a work 
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change. STACKFL writes the stack buffer with a UPUT 
macro. 


table. PO4SETUP uses the work table to make the input 
from UESTS, UESTA, and UREST into the same format. 
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Diagram 7.2. UESTA Macro 


INPUT 


3 


v2) 
C. 
pe 
~ 
CO 
“y 
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GDT 
{IOCSTR 


Print Control 
Argument List 


GDT 


GDTTPH 


PCT | 


PCTSPP PCT ? 





From Diagram 7.0 


PROCESSING 


Prints existing lines. 


Remakes secondary PCT. 


Initializes values in work area. 


Puts data in PCTs. 


Returns. 


POIWT 


i= 


OUTPUT 


Printed Lines 


PCPSPP 


Register 15 
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Extended Description for Diagram 7.2 


IDCTP04 
Procedures: ESTACONT, INITPCT 


1 


ESTACONT determines if a primary PCT exists. 
ESTACONT invokes INITPCT to get storage for the 
PCT. ESTACONT then invokes PO4SETUP to build the 
work table, ESTACONT then invokes PCTSETUP which 
initializes the PCT. Because controls governing the writing 
(like page depth and line width) are changing, the lines 
formatted under the current control values must be written 
before the control values change. INITPCT writes the 
stack buffer with a UPUT macro. 


IDCTP04 
Procedure: INITPCT 


2 


If a secondary PCT exists—that is PCTSPP in the primary 
PCT is not zero—INITPCT releases the secondary PCT 
with a UFPOOL macro. INITPCT issues a UGPOOL 
macro for a new secondary PCT. INITPCT sets the 
identification, PCTIDN, in the secondary PCT to ‘PCT2’, 
and INITPCT sets the PCTSPP field to zero. UGPOOL 
puts the address of the new secondary PCT in the field 
PCTSPP in the primary PCT. INITPCT copies all the data 
in the primary PCT into the secondary PCT. INITPCT 
copies some data from the secondary PCT to the primary 
PCT before the secondary PCT is deleted. 


IDCTP04 
Procedure: PO4SETUP 


3 


PO4SETUP puts data from the input into a work table. 
PCTSETUP uses the work table to make the input from 
UESTS, UESTA, and UREST into the same format. 


IDCTP04 
Procedure: PCTSETUP 


4 


PCTSETUP forces a page overflow so the next line will 
start on a new page. If no secondary PCT exists, 
PCTSETUP first initializes the primary PCT with the 
minimum values needed to control a page which are: 


A translate table for a print chain 

A page number increment 

A first page number 

A line number where the first line is printed 
A line number where the last line is printed 


For initializing either the primary PCT or the secondary 
PCT, PCTSET UP verifies the data tn the work table and 
puts it into the appropiate PCT. 


IDCTP04 
Procedure: ESTACONT 


5 ESTACONT puts a return code into register 15, and 
control returns to the module that issued the UESTA 
macro. 
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Diagram 7.3. UREST Macro 


INPUT 


# GDT 
} LOCSTR 


Argument List 


I Pointers 


Print Control 
Argument List 


GDT 


GDTTPH 


PCT | 


PCTSPP 


From Diagram 7.0 


PROCESSING 


Prints existing lines. 


Initializes values in the work 
area. 


Puts data in PCT. 


Returns. 


iad MN aes 
ccm 


OUTPUT 


Printed Lines 


PCT | Pe 
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Register 15 


a; 


Wa] Jo Ajsodoig — [ej1a38y] posusdy] 


uonsiedo Jo pomp; ‘7 Jo1dvyD 


S¥7-Z 


Extended Description for Diagram 7.3 


IDCTP04 
Procedures: RESTCONT, STACK FL 


1 Aprimary PCT must exist. If it does not, RESTCONT 
issues a UABORT macro. Because controls governing the 
writing (like page depth and line width) are changing, the 
lines formatted under the current control values must be 
written before the control values change. STACK FL 
writes the stack buffer with a UPUT macro. 


IDCTP04 
Procedure: PO4SETUP 


2 PO4SETUP puts data from the input into a work table, 
PO4WT. PCTSETUP uses the work table to make the 
input from UESTS, UESTA, and UREST into the same 
format. 


IDCTP04 
Procedures: RESTCONT, PCTSETUP 


3 The UREST macro allows the user to change any 
combination of the following: 


Subtitle lines 

Footing lines 

Line width 

Page depth 

Default space character 
Translate table 
Starting page number 


A value of zero in any of the parameter lists causes the 
item to be reset to the Access Method Services default. 
RESTCONT evaluates the input parameter list. If the 
secondary PCT exists, PCTSETUP modifies it. Otherwise, 
PCTSETUP modifies the primary PCT. 


IDCTP04 
Procedure: RESTCONT 


4 RESTCONT puts a return code into register 15, and 
control returns to the module that issued the UREST 
macro. 
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Diagram 7.4. URESET Macro 
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From Diagram 7.0 


PROCESSING 


Prints existing lines. 


Returns last page number. 


Frees secondary PCT and subpool. 


Returns. 


OUTPUT 


Printed Lines 
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Register | 


t IOCSTR 


Page Number 


Register 15 
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Extended Description for Diagram 7.4 


IDCTP04 
Procedures: RESETCON, STACKFL 


1 A primary PCT must exist. if it does not, RESETCON 
issues a UABORT macro. If a secondary PCT exists, 
RESETCON forces a page overflow so the next line will 
begin on a new page. Because controls governing the 
writing (like page depth and line width) are changing, the 
lines formatted under the current control values must be 
written before the control values change. STACKFL 
writes the stack buffer with a UPUT macro. 


IECTP04 
Procedure: RESETCON 


2 If the invoker of Access Method Services requested that 
the last page number be passed, RESETCON converts the 
current page number to binary and places it in the 
invoker’s parameter list. 


IDCTP04 
Procedure: RESETCON 


3 Before the secondary PCT is deleted, RESETCON copies 
some data into the primary PCT. One UFPOOL macro 
releases the secondary PCT, subtitle lines, footing lines, 
and any Static text entries addressed from the secondary 
PCT in PCTSQP because everything was obtained with 
subpool identification ‘TPOL’. RESETCON sets the 
address of the secondary PCT to zero in the primary PCT 
in PCTSPP. This resets all page control values to the 
values contained in the primary PCT. 


IDCTP04 
Procedure: RESETCON 


4 RESETCON puts a return code into register 15, and 
control returns to the module that issued the URESET 
macro. 
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Diagram 7.5. UPRINT Macro 


From Diagram 7.0 


INPUT PROCESSING OUTPUT 


1. if entrance is from module Issuing 
UPRINT, continue to Step 2: if 
entrance 1s from PRINT or 
CONVERT, go to Step 3. 


IOCSTR Locates format list. 


Format List 
Processes format list. 


CONVERT 

See Diagram 3.) 
PRINT 

See Diagram p32) 


Space 


w 
fan 
~ ie 
Nee 4 Lt 
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ae 4 


Format List 


Static text 
Insert text 


Dynamic Static Text 
Argument List Module ; Default 


Register 1S 
—— i Poca 


Block 


Replication 


End of format list 
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Extended Description for Diagram 7.5 


1 Ifentrance is from a module issuing a UPRINT macro, 
continue with step 2; if entrance is from PRINT, Diagram 
7.5.2, or CONVERT, Diagram 7.5.1, go to step 3. 


IDCTP01, IDCTP05 
Procedures: [DCTPPR, IDCTP05 


2 The format list, FMTLIST, and Print Control Table, 
(PCT), must be found. If a secondary PCT exists, 
IDCTPPR uses it; otherwise, IDCTPPR uses the primary 
PCT. The format list, FMTLIST, can be in one of three 
locations: 


e inthe FSR 
e Ina list of static text entries chained from the PCT 
e Ina static text module 


If the format list is in the FSR, DARGSTID in the 
Dynamic Argument List, DARGLIST, is zero. The calling 
program gives the address of the FMTLIST to UPRINT 
as the fourth argument. 


IDCTPPR compares the static text identification in 
DARGSTID against the static text identification of each 
entry addressed from the Print Control Table in field 
PCTSQP. If a match is found, IDCTPRR uses that 
FMTLIST in the static text entry as input to UPRINT. Ifa 
match is not found, IDCTPRR must obtain the FMTLIST 
from a static text module. 


IDCTPOS concatenates the name of the static text module 
in DARGSMOD with the characters ‘IDCTS’ and 
compares it with the name of the static text module in 
storage. The name of the static text module currently in 
storage is kept in PCTSTM in the PCT. If the names do 
not match, IDCTPOS deletes the module named in 
PCTSTM with a UDELETE macro, and IDCTPOS loads 
the module named in DARGSMOD with a ULOAD 
macro. IDCTPOS puts the name and address of the newly 
loaded module in the PCT. [DCT POS finds the particular 
static text entry by using DARGSENT as an index to the 
static text module. IDCTPO05 copies everything in the static 
text entry after the length field and puts the static text 
identification and the address of the next entry in the list at 
the beginning of each entry on the list. IDCTPO5 then 
chains the copy into the list of static text entries addressed 
from PCTSQP so it will be readily available when it is 
used again. See “Text Structure” in the chapter 
“Diagnostic Aids” for a discussion of static text entries. 


IDCTP01 


Procedures: IDCTPPR, SPACE, STATIC, INSERT, 
BLOCK, REDO 


3 


IDCT PPR takes action on the format list substructures in 
FMTLIST depending upon the structure type. The line 
buffer is a work area where each line is formatted. 
IDCTPPR processes substructures in order of their 
appearance in the FMTLIST. If the high order bit in 
FMTFLGS is on, this substructure is the last in the 
FMTLIST. If there is formatted data in the line buffer, 
IDCTPPR calls LINEPRT to write the line. (See diagram 
7.5.2.) IDCTPPR sets a return code in register 15, and 
control returns to the module that issued the UPRINT 
macro. 


Types of substructures: 
e Space 


If this is the first substructure in the FMTLIST, 
SPACE saves the spacing type character from the 
FMTLIST for LINEPRT, and control returns to Step 2 
for the next substructure. If the space substructure is 
not the first substructure in the FMTLIST, SPACE 
transfers control to PRINT. After control returns from 
PRINT, the new spacing type character is saved for the 
next line. (For more information on PRINT, see 
diagram 7.5.2.) Control returns to Step 2 for the next 
substructure. 


e Static text 


STATIC passes the address of the input data, length of 
input data, type of conversion, position in the output 
line, and length of output field to IDCTPPR. (See 
diagram 7.5.1.) 


e Insert data 


INSERT compares the insert reference number in 
FMTRFNO against every DARGINS field in the 
Dynamic Data List. If the same number is found in 
DARGINS, INSERT gives the following information 
to CVPSTRM: the length in DARGINL, the address 
in DARGDTM, the type of conversion from 
FMTCNVF, the output field length from FMTOLEN, 
and the position for the field in the output line from 
FMTOCOL. (See diagram 7.5.1.) If the same number 
is not found in any DARGINS, INSERT ignores the 
insert-data substructure, and control returns to Step 2 
for the next substructure. If the next substructure is a 
default-text substructure, INSERT processes the 
default structure. 


Default text 


If a default-text substructure does not immediately 
follow an insert substructure that does not have a 
matching reference number in DARGINS, INSERT 
ignores the default-text substructure, and control 
returns to Step 2 for the next substructure. INSERT 
uses the default-text substructure instead of a matching 
DARGINS to describe input for an insert-data 
substructure. INSERT takes the values for input and 
output from the default-text substructure only. 
Nothing is taken from the insert substructure. Control 
is given to IDCTPPR. (See diagram 7.5.1.) 


Block format 


BLOCK obtains input information from DARGDBP 
and DARGILP. If the DARGBPL flag is set on (more 
than one block is to be used for input data), then 
BLOCK adds the offset count in BLKLRIO to the 
address in BLKLPTR to get the address of the input 
data. BLOCK uses the input length specified in 
BLKLILP. The block number in the format list, 
FMTBLKNO, is used as an index into the BLK LIST. 


If the DARGBPL flag is not set, then BLOCK adds the 
offset count in FMTIOFF to the address in 
DARGDBP to get the address of the input data. If the 
input length in FMTILEN is zero or 32,767, BLOCK 
uses the input length in DARGILP. If the length in 
FMTOLEN is zero or 32,767, the output length is the 
length of the converted input data. 


All this data is given to IDCTPPR. (See diagram 7.5.1.) 
Replication 


REDO compares the reference number in FATRFNO 
against every DARGREP field. If the same number is 
not found, REDO ignores the replication substructure 
and control returns to Step 2 for the next substructure. 
If the same number is found in DARGREP, REDO 
uses the count in DARGPCT for loop control to set up 
the number of times the following substructures are 
repeated. REDO obtains the number of substructures 
to repeat from FMTRBC. At the end of each time 
through the substructures REDO prints a line because 
the output positions for each field are unchanging. (See 
diagram 7.5.2.) REDO saves the value in FMTRIO 
and adds to each address of block data in the 
substructures being repeated. 


If the DARGBPL flag is set on (more than one block is 
to be used for input data), then REDO calculates the 
redo input offset from the BLKLRIO field of the block 
list. The block number in the format list, 
FMTBLKNO, is used as an index into the BLKLIST. 
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If the DARGBPL flag is not set, the redo input offset is 
obtained from the format list redo input offset field, 
FMTRIO. 


IDCTPO1 


Procedure: IDCTPPR 


4 IDCTPPR puts a return code in register 15 and returns 
control to module that tssued the UPRINT macro. 
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Diagram 7.5.1. UPRINT Macro — CONVERT 


INPUT 


Format List 


Dynamic 
Argument List 


Line Butfer 


LLLLLLLLLLLLLLL LLL 





From Diagram 7.5 


PROCESSING OUTPUT 


1. Converts data according to type of 
conversion. 


e Binary to hexadecimal. 


e Binary to hexadecimal with 
apostrophe. 


e Binary to dump. 
e Binary to decimal. 


e Packed decimal to unpacked 
decimal. 


e EBCDIC (no translation). 


Line Buffer 


Zz Puts field in line buffer in correct WLLL LLL LLL 
Output column. 


3. Prints line buffer, if full. -— 
See Diagram {73> 
4. Returns. 
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Extended Description for Diagram 7.5.1 


IDCTPO1 


Procedures: CONVERT, BHCONV, BHDCONV, 
BDCONV, PUPCONV, EBCDIC 


t CONVERT checks the conversion type from FMTCNVT 
and converts the field accordingly. Output fields can 
overlap. When a line of conversion is finished, LINEPRT 
prints the line. (See diagram 7.5.2.) 


Control returns to the caller in diagram 7.5. (See diagram 
7.5.) Types of conversion: 


Binary to hexadecimal 


BHCONV converts bytes of binary data to their 
equivalent printable hexadecimal. BHCONV prints 
two characters for each byte. The maximum input 
length is 32,767. If the length of the converted data 
is greater than the length of the output field, 
BHCONYV truncates the data on the right. If the 
length of the converted data is less than the length 
of the output field, BHCONV does not change the 
remaining fields to the right. if the converted data 
extends beyond one line, BHCONV continues the 
data on the next line. 


Binary to hexadecimal with apostrophe 


BHCONV converts bytes of binary data to their 
equivalent printable hexadecimal. BHCONV prints 
two characters for each byte. The output is 
preceded by a ‘X’ and followed by ‘a’. The 
maximum input length is ( ( line width - starting 
position)/2) - 3. If the length of the converted data 
is greater than the length of the output field, 
BHCONV truncates the data on the right. If the 
length of the converted data is less than the length 
of the output field, BHCONV does not change 
remaining fields to the right of the trailing 
apostrophe. If the converted data extends beyond 
one line, BHCONV truncates the data on the right. 


Binary to dump 


BHDCONV converts bytes of binary data to their 
equivalent printable hexadecimal. BHDCONV 
prints two characters for each byte. This type of 
conversion forces the output to begin on a new line. 
IDCTPPR is called to put the current line in the 
stack buffer prior to calling CONVERT (See 
diagram 7.5.2.) BHDCONV formats the output line 
like a standard ABEND dump with relative 
addresses on the left of the page, eight segments in 
the center, and a 32 byte EBCDIC translation with 
non-printable characters replaced by periods on the 


right of the page. The output starts in column one 
and BHDCONV uses 32 bytes of input per line. 
The maximum input length is 32,767. 


Binary to decimal 


BDCONV converts bytes of binary data to their 
equivalent packed decimal, then calls PUPCONV 
for further conversion to unpacked decimal. Sign 
suppression, leading zero suppression and left 
alignment can be used. The input length is one to 
four bytes, and the maximum output length is 16 
bytes including the sign. If the length of the 
converted number is greater than the length of the 
output field, BDCONV truncates the number on 
the left. If the converted number extends beyond 
one line, PUPCONV truncates the number on the 
right. 


Packed decimal to unpacked decimal 


PUPCONV converts bytes of packed decimal data 
to their equivalent printable unpacked decimal. 
Sign suppression, leading zero suppression and left 
alignment can be used. Eight bytes is the maximum 
input length, and 16 bytes including sign is the 
maximum output length. If the length of the 
converted number is greater than the length of the 
output field, PUPCONV truncates the number on 
the left. If the converted number extends beyond 
one line, PUPCONV truncates the number on the 
right. 


EBCDIC, no translation 


EBCDIC assumes the input is in printable 

EBCDIC and no conversion is done. If align right is 
specified, the EBCDIC character string is aligned to 
the right in the print field. The print column 
specified is added to the print field length to 
determine the last printable position. Unwanted 
blanks following a nonblank character can be 
eliminated by specifying blank suppression on the 
following field. If blank suppression is specified on 
an EBCDIC field, EBCDIC moves that field left 
into the prior EBCDIC field so there is only one 
blank between the two fields. Blank suppression 
can be specified only on fields that immediately 
follow EBCDIC fields. The maximum input length 
is 32,767. If the output extends beyond one line, 
EBCDIC prints additional lines. 


IDCTPO! 


Procedure: CONVERT, BHCONV, BHICONV, BDCONV, 
PUPCONV, EBCDIC 


2 The conversion routines put the converted data in the 
correct column. FMTOCOL in the FMTLIST specifies the 
output column. If blank suppression is on 
(FMTCNVF=X‘0010'), the output column is in PCTAPC 
in the PCT, and FMTOCOL is an offset from the output 
column in PCTAPC. In this case, the conversion routines 
find the output column by adding the value in PCTAPC to 
the value in FMTOCOL. The output column for each field 
is calculated separately from other fields. Output fields 
may overlap due to specification of output columns in 
FMTOCOL. 


IDCTPOl 


Procedures: CONVERT, BHCONV, BHDCONV, 
PUPCONV, EBCDIC 


3 When the line buffer is full or a new line is to start, the 
conversion routines call LINEPRT to print the line. See 
Diagram 7.5.2. 


IDCTPOI 


Procedures: CONVERT, BHCONV, BHDCONV, 
PUPCONV, EBCDIC 


4 When all the data specified by the FMTLIST substructure 
is converted, control returns to the caller in Diagram 7.5. 
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Diagram 7.5.2. UPRINT Macro - PRINT 


From Diagram 7.5 and 7.5.1 


INPUT PROCESSING OUTPUT 





I » Returns data to caller, if requested, 
otherwise, continues with step 2. 


PCT1 


neon 









PCTSPP 





PCTAHP 





2: Determines if line will fit on current page. 






Line Buffer Processes header and message. 





Printed Lines 





Translates line. 





Stack Buffer 





Prints stack buffer if full. 





Clears line buffer and returns. 
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Extended Description for Diagram 7.5.2 


IDCTP01 
Procedures: LINEPRT, LINERET 


LINEPRT tests the return area pointer in the argument list 
for zero. If it is not zero, procedure LINERET places the 
formatted line in the return area without checking for or 
setting page-related data such as carriage control, 
headings, etc. Only as many characters are returned as 
allowed by the return area length. 


IDCTPO1 
Procedures: LINEPRT, STACKPUT 
2 LINEPRT tests the print data set supplied with the 


UPRINT macro to determine if itis a change from the 
current print file. Ifthe print data sets are changing, 
STACKPUT writes the stack buffer with a UPUT macro. 
Then LINEPRT puts the page number and next line 
number for the new print data setin PCTCPN and 
PCTNLI respectively. LINEPRT puts the page number 
and next line number for the old print data set in PCTSPN 
and PCTSNL for the standard print data set or in 
PCTAPN and PCTANL for an alternate print data set. 
LINEPRT compares the current line number from 
PCTNLI with the pagesize in PCTPPD to determine if the 
current line with its spacing will fit on the current page. If 
the line will not fit, LINEPRT ejects a page, and 
LINEPRT prints all title lines on the new page. If the 
vertical spacing is more than three lines, LINEPRT writes 
blank lines until the line number is within three lines of 
the line number where the line is to be written and the 
spacing character can handle spacing. 


IDCTP01 
Procedure: LINEPRT 
3 LINEPRT tests the flags in the static text entry to 


determine if this static text entry describes a header line or 
a message. 


a. Ifit is a header line, LINEPRT puts the address of the 
translated header line in PCTAHP so it can be written 
again when a page overflows as well as when they are 
first given to the Text Processor. Unless all header 
lines, spaces, and one data line will fit on a page, a 
page overflow occurs, and LINEPRT ejects a page. 
The number is in HSDP in the static text entry. A 
UGPOOL is done for storage for the kept header line. 
Once a header is given to UPRINT, it can only by 
removed by another header, UESTS, UESTA, or 
URESET macro. 


b. Ifit is a message line, LINEPRT writes the stack buffer 
with a UPUT macro. 


IDCTPO!1 
Procedure: LINEPRT 


4 LINEPRT translates the formatted line using the translate 
table supplied for the print chain and addressed from 
PCTTRP. The CHAIN or TABLE parameter of the 
PARM command determines the translate table. In Access 
Method Services translate tables, all non-printable bit 
combinations are changed to periods. 


IDCTPO1 
Procedures: LINEPRT, STACKPUT 


5S LINEPRT puts the translated line preceded by a two byte 
length field in the stack buffer. When the stack buffer is 
full, STACKPUT issues a UPUT against the entire buffer. 
Lines in the stack buffer are in variable format with as 
many trailing blanks removed as possible. The minimum 
line size is 10 bytes. If the line is a message, STACK PUT 
issues a UPUT against the message alone. This is done 
because all messages go to the standard SYSLST data set. 
STACKPUT passes an identification number with the 
UPUT macro. The identification number for all data lines 
is Zero and for messages is the message number. Therefore, 
STACKPUT must issue a separate UPUT for each 
message. If an alternate data set is being processed, there is 
no way to keep messages for the standard data set until 
ready to print, because there is only one stack buffer. 


IDCTP01 
Procedure: LINEPRT 


6 LINEPRT fills the line buffer with blanks and control 
returns to the caller, FORMAT or CONVERT. 
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Diagram 7.6 UERROR MACRO 
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t ERCNVTAB 





Static Text 
Module 


- 





l. 


From Module Issuing 
UERROR Macro 


PROCESSING 


Determine type of error to be converted. 


e Catalog Error 


Retrieve verbal text description of catalog 
return code. 


Initialize DARGLIST to print primary and 
secondary message palr. 


UPRINT. 


Return to invokKer. 


OUTPUT 


Printed Lines 


Register 15 


Za 
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Extended Description for Diagram 7.6 
IDCT P06 
Procedure: IDCTP06 


1 The Error Conversion Table (ERCNVTAB) indicates the 
type of error to be converted. The only allowable error is a 
catalog error. 


IDCTP06 
Procedure: CATERCNV 


2 Retrieve the verbal text description from the UERROR 
Static text module (IDCTSTP6). CATERCNV uses the 
numeric catalog error code to index the appropriate verbal 
text entry in the static text module. The UPRINT macro ts 
used to return the verbal text. 


IDCTP06 
Procedure: CATERCNV 


3 The DARGLIST is initialized to print the primary and 
secondary message pair. In a batch environment, both 
messages are issued to the SYSLST data set. 


IDCTP06 

Procedure: [DCT P06 

4 Print the message pair via the Text Processor UPRINT 
macro. 

IDCTP06 


Procedure: IDCTP06 
§ Control is returned to the issuer of the UERROR macro. 
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Debugging Aids Visual Table of Contents 


8.0 





Debugging Aids 
Overview 






UDUMP Macro 





UTRACE Macro 






Dump Fields 


Wal 30 Ayiodosg — [ej20;8},] posu09|] 


097-2 


91807] Sa0IAJog poe s8900V WWSA/ASA 


Diagram 8.0. Debugging Aids Overview 


INPUT 


Intra-Module 
Trace Table 


Register | 


Argument List 





LLLLLLLAAMAMAMMA AAA 


From Procedure 
Issuing Macro 





PROCESSING OUTPUT 
Intra-Module 
Trace Table 
1. Updates Intra-Module Trace WLLL 


Table. 
See Diagram E> 


Zs Dumps information based on options 
specified: 


See Diagram ——— 82) 


Trace Tables 


e TRACE 
Trace Tables and 
Selected Areas 
° AREAS 
Trace Tables and 
Full Region Dump 
8 FULL 
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Extended Description for Diagram 8.0 


IDCDBO1 
Procedure: IDCDBO! 


1 


When a module issues a UTRACE macro instruction, the 
PL/S compiler generates inline code that updates the 
Intra- Module Trace Table. Diagram 8.1 shows the 
UTRACE macro instruction in detail. Processing 
continues with the statement following the UTRACE 
macro. 


The output of the UDUMP macro instruction depends 
upon the TEST keyword options specified either in the 
PARM command or from the EXEC statement. 


¢ If TRACE ts specified, UDUMP prints the Inter- and 
Intra-Module Trace Tables each time a UDUMP 
macro is executed. 


¢ If AREAS is specified, UDUMP prints the Inter- and 
Intra-Module Trace Tables and items given to the 
UDUMP macro only for the areas specified. 


e If FULL is specified, UDUMP prints Inter- and 
Intra-Module Trace Tables and a full region dump 
only for the dump identifiers specified. 


Diagram 8.2 shows the UDUMP macro instruction in 
detail. Control returns to the module issuing the UDUMP 
macro. 
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Diagram 8.1. UTRACE Macro 


From Diagram 8.0 


INPUT PROCESSING OUTPUT 





TLLL{LLLLLLLLLLLLL+~=«XN« Removes oldest identifier. VILL {LLLLLLLLLLLL GP GDT 
GDTTR2 


Intra-Module 
Trace Table 


GDT 
GDTTR2 2. Adds new identifier. 


Intra-Module 
Trace Table 













New Identification 
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Extended Description for Diagram 8.1 
IDCDBO1 
Procedure: 1[DCDBO1 


1 The inline code generated by the UTRACE macro gets the 
address of the Intra- Module-Trace Table from the 
GDTTR72 field in the GDT. The inline code shifts the 
Intra-Module-Trace Table left so that the oldest identifier 
at the beginning of the table is lost. 


2 The module provides the UTRACE macro with the new 
identifier to add to the Trace Table. The generated inline 
code puts the new identifier at the end of the Trace Table. 
The new identifier is 4 bytes long; the first two characters 
are characters 4 and 5 of the module name; the last two 
characters are assigned by the module. The identifier may 
either be four characters in quotes or the address of four 
characters. Control continues with the next instruction. 
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Diagram 8.2. UDUMP Macro 


INPUT 





Register | 


Dump List 







Full Dump Identifier 





GDTDBG 


GDTDBH 












Inter-Module 
Trace Table 


= 


Intra-Module 









From Diagram 8.0 





OUTPUT 






PROCESSING 


1. Checks for PARM command 
with TEST options. 


2. Initializes. 





GDTDBG 


GDTTRI! 
GDTTR2 





Trace Tables 


Fields from 
Selected Areas 


3. Dumps trace tables. 


4. Dumps list of fields. 
See Diagram 2) 


5. Dumps region. 


Full Region 


— 


6. Terminates. G 


Trace Table opie 


= 





GDTTRI 
GDTTR2 
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Extended Description for Diagram 8.2 


IDCPMO01 
Procedure: IDCPMO! 


1 


The PARM command with the TEST keyword must be 
specified in order for any dumping to take place, or the 
TEST keyword must be specified in the PARM field of the 
EXEC statement. The PARM FSR, IDCPMO1, has loaded 
the dump routine, [DCDBOI, and has put the address of 
the dump routine in the GDTDBG field in the GDT, if 
dumping is to take place. If GDTDBG is nonzero, control 
goes to Step 2. If GDTDBG 1s zero, the dump routine is 
not loaded and no dumping takes place; control returns to 
the module issuing the UDUMP macro. 


IDCDBO0!1 
Procedure: IDCDBO! 


2 


IDCDBO! obtains the calling module identifier from the 
last entry in the Inter-Module Trace Table. It issues a 
UTRACE macro to put the caller’s module identification 
in the Intra-Module Trace Table. Both the Inter-Module 
and the Intra-Module Trace Tables are saved so that the 
trace tables will not be updated during the dumping 
operation and the information in the trace tables at the 
time the UDUMP was issued is preserved. IDCDBO! turns 
off the TEST options by saving the address of the dump 
routine and setting GDTDBG to zero. This prevents any 
dumps during the processing of the current dump 
operation. IDCDBO! also issues a ULISTLN macro to get 
the number of arguments passed via the UDUMP macro. 
If there are three arguments, IDCDBO! has received a list 
of items to dump. 


IDCDBO01 
Procedure: IDCDBOI 


3 


IDCDBO! uses the Test Option Data Area, whose address 
is in GDTDBH, to determine whether or not to print the 
trace tables. The trace tables are printed if any one of the 
following conditions is present: 


e TESTRACE contains a nonzero value, indicating that 
the trace tables are to be printed each time UDUMP is 
executed. 


¢ IDCDBOI compares the calling module identifier from 
the Inter-Module Trace Table with the module 
identifiers in the AREANAME. If a match is found, it 
prints the trace tables. 


¢ IDCDBOI compares the full dump identifier provided 
by the module issuing the UDUMP macro with the full 


dump identifiers in FDUMPID. If a match is found, it 
prints the trace tables. 


IDCDBO1 
IDCDB02 


Procedures: IDC DBOI, IDCDBO02 


4 If three arguments are given to the UDUMP macro, the 
third is a list of areas to be dumped. IDCDBO2 converts 
and prints each item in the list. If the calling module 
identifier from the Inter-Module Trace Table matches a 
name in AREANAME, IDCDBO1 invokes IDCDB02 to 
process the list. Otherwise, the list is ignored. Diagram 
8.2.1 shows dumping fields in detail. 


IDCDBO1 
Procedure: IDCDBO! 


5 IDCDBOI compares the full dump identifier provided by 
the module issuing the UDUMP macro with full dump 
identifiers in FDUMPID. If no match is found, processing 
continues with step 6. IDCDBO1 adds | to REALBEG and 
checks the number with FDUMPBEG to determine if the 
current pass is within the dumping range. If it is, | 
IDCDBO! compares REALCNT with FDUMPCNT to 
determine if all the dumps requested have been given. If 
they have not, IDCDBOI adds | to SNAPID and issues a 
USNAP macro to dump the region. UPRINT writes a 
message stating the full dump identifier (SNAPID). 


IDCDBO01 
Procedure: IDCDBO! 


6 IDCDBOI puts the address of the trace tables in GDTTRI 
and GDTTR2 and resets the TEST options by placing the 
address of the dump routine in GDTDBG. Control returns 
to the module that issued the UDUMP macro. 
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Diagram 8.2.1. UDUMP Macro — Dump Fields 


From Diagram 8.2 


PROCESSING 





INPUT 





Dump List 


a. Array Header 


b. Individual Field 


e Hexadecimal 
e Bit Stnng 
e Character 
e Fixed Binary 


¢c. Dump List Terminator 


2: Prints data lines. 


1. Gets type of dump list entry: 


OUTPUT 


Printed 
Data Lines 
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Extended Description for Diagram 8.2.1 


IDCDBO02 


Procedures: ARRAYHDR, IDCDB02, NAMEFLD, 
ITEMDUMP, HCONVERT, BCONVERT, CCONVERT, 
FCONVERT 


1 IDCDBO2 processes each entry in the Dump List until the 
end of the list is reached. 


a. If the type in the Dump List is ‘A’. the entry is an 
Array Header. If there is any formatted dump data in 
the line, ARRAYHDR issues a UPRINT to print the 
line. Each array begins on a new line, and an Array 
Header cannot occur within the elements of another 
array. If an Array Header does occur within the 
elements of another array, UPRINT prints an error 
message, the Array Header is ignored, and the 
following field entries are processed as though the 
Array Header had not been in the Dump List. A 
UPRINT macro prints the name of the array from the 
Dump List. ARRAYHDR obtains the looping array 
control from the Dump List. The number of bytes in 
each input element of the array is used to address the 
elements of the array. 


b. Ifthe type in the Dump List is H, B, C, or F, 
NAMEFLD formats the name of each field in the line. 
If the field is part of an array, NAMEFLD adds a 
subscript of the element number to the field name. 
NAMEEFLD also checks the input data type and 
converts and formats the data as follows: 


° Type H 
HCONVERT converts hexadecimal! data to 
printable form and prints 2 characters per byte of 
input; each four bytes of input is converted and 
followed by a blank. 


e Type B 
BCONVERT converts bit string data to printable 
form and prints eight characters followed by a 
blank per byte of input. The printed output is 
enclosed in quotes. 


° Type C 
CCONVERT converts character input to printable 
form and prints one character per byte of input. 
The printed output is an unbroken string of 
characters enclosed in quotes. 


e Type F 
FCONVERT converts fixed binary data to 
printable decimal. Leading zeros are suppressed. If 
the input is 2 or 4 bytes long, FCONVERT prints a 


sign; no sign is printed if the input is | or 3 bytes 
long. 


c. Ifthe first byte of the dump list entry is X‘FF’. 
IDCDBO2 terminates processing of the list. Control 
returns to the main dump routine, IDCDBO1I. 


IDCDB02 
Procedure: ITEMDUMP 
2 IDCDBO02 logically divides the page into four columns. A 


maximum of four different fields may be printed on a line. 


Each printed field is preceded by its name from the Dump 
List entry and an equal sign. As soon as one line of data is 
formatted, a UPRINT macro prints the line. 
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Overall Organization 


Chapter 3: Program Organization 


This chapter describes the organization of the Access Method Services 
processor: the physical packaging of routines into load modules. 


The final authorities for any program are the compiler and assembly listings 
for that program. This chapter complements those listings, and assumes that 
they are at hand. You should have them available for any in-depth analysis. 
This chapter directs you to a specific module of the processor; the listings for 
that module provide further detail. The next chapter, “Microfiche 
Directory,” can help you relate the listings to this book. 


The processor consists of executable modules, organized into seven general 
areas, and non-executable modules (Command Descriptors and Text Struc- 
tures). As described in the “Introduction,” six of these areas form a substruc- 
ture that provides services and control for the remaining area. This substruc- 
ture is made up of the Executive, the System Adapter, the I/O Adapter, the 
Text Processor, the Reader/Interpreter, and Debugging Aids. The seventh 
area consists of the Function Support Routines (FSR), of which there are 
currently fifteen, one for each verb supported by the processor. 


Several modules are link-edited together into one phase (named IDCAMS), 
which is loaded when the processor 1s invoked. 


This phase is the root phase and consists of: 


IDCEX01 Executive main routine 

IDCIOOI1 I/O Adapter main routine 

IDCSAOl1 System Adapter initialization/termination routine 
IDCSA02 System Adapter services routine 

IDCSA03 System Adapter prologue/epilogue routine 
IDCTPO! Text Processor main routine 

IDCSA08 System Adapter services routine 


The following phases are loaded when required using CDLOAD and remain 
loaded until termination: 


IDCEX02 Executive initialization, called by IDCEX0! 

IDCEX03 Executive termination, called by IDCEX01 

IDCIO02 I/O Adapter Open/Close, called by IDCIOO1 

IDCIO03 I/O Adapter positioning and UIOINFO processing, called by IDCIOO! 
IDCSA05 System Adapter time routine, called by IDCSA02 

IDCTP04 Text Processor page control, called by IDCTPO1 

IDCTP05 Text Processor Text Structure loading, called by IDCTPO1 or IDCTP04 
IDCTP06 Text Processor error message processor called by IDCTPO1 

IDCDBO1 Dump routine, called by any routine 

IDCDB02 Symbolic dump, called by IDCDBO! 
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The following phases are loaded by the system when their services are re- 
quired: 
IDCDIOl SYSLST DTF and put phase 
IDCDI02 SYSIPT DTF and get phase 
IDCDI03 Fixed and fixed blocked sequential access method SDDTF and get phase 
IDCDI04 Fixed and fixed blocked sequential access method SDDTF and put phase 


IDCDIO5 Variable and variable blocked sequential access method SDDTF and get 
phase 


IDCDI06 Variable and variable blocked sequential access method SDDTF and put 
phase 


IDCDIO7 Undefined sequential access method SDDTF and get phase 

IDCDI08 Undefined sequential access method SDDTF and put phase 

IDCDIO9 Spanned and spanned block sequential access method SDDTF and get phase 
IDCDI10 Spanned and spanned block sequential access method SDDTF and put phase 
IDCDII1 Fixed and fixed blocked sequential access method MTDTF and get/put 


phase 

IDCDI12 Variable and variable blocked sequential access method MTDTF and get/put 
phase 

IDCDI13 Spanned and spanned blocked sequential access method MTDTF and 
get/put phase 


IDCDI14 Undefined sequential access method MTDTF and get/put phase 


IDCDII5 Fixed and fixed blocked indexed sequential access method ISDTF and get 
phase 


The FSRs and the Reader/Interpreter are alternately called by the Executive 
(IDCEX01) to perform their duties. The Reader/Interpreter is entered at 
IDCRIO1 and loads IDCRILT and IDCRIKT when needed. The FSRs are 
named as follows: 


IDCALO! ALTER 
IDCBIO1 BLDINDEX 
IDCCLO! CANCEL 
IDCDEO1 DEFINE 
IDCDLO1 DELETE 
IDCXP01 EXPORT 
IDCMPO01 IMPORT 
IDCLCO1 LISTCAT 
IDCLRO1 LISTRCRA 
IDCPMO1 PARM 
IDCPRO! PRINT 
IDCRCOI EXPORTRA 
IDCRMO1 IMPORTRA 
IDCRPO1 REPRO 
IDCRSO1 RESETCAT 
IDCVYOl VERIFY 


VSE/VSAM Access Method Services Logic 


Licensed Material — Property of IBM 


System Macros and Services Used by Access Method Services 


All requests for services from the operating system are issued by either the 
System Adapter or the I/O Adapter. The following lists all system and I/O 
macros issued by the processor, along with the issuing module’s name and the 
label at the point of issue. These labels all begin with “L” contain a mnemon- 
ic for the macro, and end with a single digit. Thus they are easy to locate with 


the cross-reference table of the listing. 


The adapters provide the services in the following list to the rest of the 
processor. Non-system services are also provided by the adapters and by the 
Text Processor. Services are represented in the listings by a call to the appro- 


priate service-module entry point. 


System and I/O Macros Used by Access Method Services 


Macro 
CANCEL 
CATLG 
CCB 


CDLOAD 


CLOSE 
COMRG 


CVTOC 


DIMOD 
DTFDI 
DTFIS 
DTFMT 


DTFSD 


ENDREQ 
EOJ 
ERASE 
EXCP 


EXTRACT 


FREEVIS 


GET 


GETIME 
GETVIS 


Module 
IDCSAO! 
IDCSA02 


IDCSA0O1 
IDCIO03 


IDCIOO2, IDCIO03 
IDCSAO1 
IDCSA02 
IDCRSO1 


IDCIO02, IDCSAO1 


IDCSA05 
IDCEX02 


IDCIO03 
IDCRS07 


IDCDI01, IDCDI02 
IDCDI01, IDCDI02 
IDCDII5 


IDCDI11 
IDCDI12 
IDCDI13 
IDCDI14 


IDCDI03, IDCDI04 
IDCDI05, IDCDI06 
IDCDI07, IDCDI08 
IDCDI09, IDCDI10 


IDCRPO1 
IDCSAO1 
IDCRP01 


IDCIO03 
IDCSAO1 


IDCSA02 
IDCSAO1 
IDCRIO1 


IDCIO02 
IDCSA03 
IDCSAO! 


IDCSA02 
IDCIOO! 


IDCSA05 


IDCSA03 
IDCSAOI 
IDCSA02 


Label 
LCANCEL1, LCANCEL2 
LCATLG! 


LCCB1, LCCB2 
LCCBI 


LCDLOAD 1 
LCDLD1 

LCDLD2, LCDLD3 
LCDLOAD1 


LCLOSE1 


LCOMRG1, LCOMRG2 
LCOMRGS5 


LCVTOCI 
LCVTOC1 


LDTFDII 
LDTFIS1 


LDTFMT1, LDTFMT2 
LDTFMT1, LOTFMT2 
LDTFMT1, LDTFMT2 
LDTFMT1, LDTFMT2 


LDTFSD1 
LDTFSD1 
LDTFSDI1 
LDTFSD1 


LEOJ1 


LEXCP1, LEXCP2 
LEXCP, LEXCP2, LEXCP3 


LEXTRCT1 
LEXTRCT2 
LEXTRCT1 


LFREEV!, LFREEV2, 
LFREEV3, LFREEV4 
LFREEV1, LFREEV2 
LFREEV5, LFREEV6, 
LFREEV7, LFREEV8, 
LFREEV9 

LFREEV11, LFREEV13, 
LFREEV14, LFREEV15 


LGET1, LGET2, 
LGET3, LGET4, LGETS 


LGETIME]1, LGETIME2 


LGETVI1 
LGETV3, LGETV10 
LGETV5, LGETV6 
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System and I/O Macros Used by Access Method Services 


Macro 


ISMOD 
LOAD 


MTMOD 


OPEN 
OVTOC 


PDUMP 


POINT 
PUT 


PVTOC 


SDMODFI 
SDMODFO 
SDMODUI 
SDMODUO 
SDMODVI 
SDMODVO 
SETL 

| TRUNC 
VERIFY 
WAIT 


Module 


IDCIO02 
IDCDII5 


IDCSA02 
IDCIO02 


IDCDII1, IDCDI12 
IDCDI13, IDCDI14 


IDCIO02 


IDCIO03 
IDCRS07 


IDCSA02 
IDCSAO1 


IDCIO03 
IDCIOO1 


IDCIO03 
IDCRO7 


IDCDIO3 
IDCDI04 
IDCDIO07 
IDCDIO08 
IDCDI05, IDCDIO9 
IDCDI06, IDCDI10 
IDCIO02, IDCIO03 
IDCIOO! 
IDCIOOL 


IDCIO03 
IDCSAO1 


Label 


LGETV7, LGETV8 
LGETVI 


LLDD2, LLDD3 
LLOAD1 


LOPEN 1! 


LOVTOC1 
LOVTOC! 


LPDUMPI 
LPDUMP2 


LPOINT1! 


LPUT1, LPUT2 
LPUT3, LPUT4 


LPVTOC1, LPVTOC2, 
LPVTOC3, LPVTOC4, 
LPVTOCS, LPVTOC6 


LSETLI1 
LTRUNCI 
LVRFY 1 


LWAIT1, LWAIT2 
LWAIT1, LWAIT2, LWAIT3 


The Global Data Table (GDT) contains a branch vector to the various entry 
points in the adapters which provide these services. A routine obtains a 
service by loading the appropriate entry points address into a register and 
performing a BALR. Standard linkage is used: register 1 points to a list of 
argument addresses, register 13 points to a save area, register 14 contains the 
return address, and register 15 contains the entry point address. The excep- 
tion is the call to SAABT: register | is not used, register 13 contains the 
address of a save area in the System Adapter, register 14 contains the address 
of SAABT and register 15 contains an abort code. 
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Services Provided for Processor Modules 


The following is a list of the services provided by the adapters and the Text 
Processor, the appropriate module name in each case, and the entry point 
name. Calls to the services are generated by macros defined by Access 
Method Services. The macros are collectively called Umacros. The listings 
contain only the calling sequence and not the Umacro. This publication 
discusses the Umacros in order to combine the calling sequence with the 
service performed as a function. The rightmost column lists the arguments 
that may be included with each of these Umacros. These arguments represent 
the addresses of the named items. When the argument is preceded by the 
symbol +, then it is the address of a fullword pointer to the named item. 
Brackets ({ ]) indicate an optional argument. 


Internal Services Provided for Processor Modules 


Service 
PROLOG 


UABORT 


UCALL 


UCATLG 


UCLOSE 


UCOPY 


UDELETE 


UDEQ 


UDUMP 


UENQ 


UEPIL 


UERROR 


UESTA 


UESTS 


UFPOOL 


UFSPACE 


UGET 


Module 
IDCSA03 


IDCSAO1 


IDCSA02 


IDCSA02 


IDCIOO1 
IDCIO02 


IDCIOOl 


IDCSA02 


IDCSA08 


IDCDBO01 


IDCSA08 


IDCSA03 


IDCTP06 


IDCTP0O1 


IDCTPOl 


IDCSA02 


IDCSA02 


IDCIOO! 


Entry Point 
IDCSAPR 


SAABT 


IDCSACL 


IDCSACA 
IDCIOCL 


IDCIO01 


IDCSADE 
IDCSADQ 


IDCDBO01 


IDCSANQ 


IDCSAEP 


IDCTPER 


IDCTPEA 


IDCTPES 


IDCSAFP 


IDCSAFS 


IDCIOGT 


Description Arguments 
Initialize a routine on entry; get storage. module identification 
size of storage for module 


Handle unrecoverable error condition while 
processing. 

Load (if necessary) an executable module and 
and pass control to it. 


Catalog request. 
Close one or more data sets. 


Copy a data set. 


No operation in DOS/VSE. 
Release control of a resource 


Print diagnostic output and storage dump. 


Gain control of a resource 


Free storage on exit from a routine. 


Verbalize catalog error messages. 


Establish a PCT (print control table) from 
information in storage. 


Establish a PCT (print control table) from 
information in Text Structures. 


Release a named pool of storage. 


Release unnamed storage. 


Read a record. 


UABORT code (in register 15) 


GDT 
entry point name 
[list of arguments for called module] 


GDT 
tcatalog parameter list 


GDT 
tIOCSTRL...] 


GDT 
tinput IOCSTR 
toutput IOCSTR 


GDT 
module name 


GDT 
*DTL (from UENQ) 


GDT 
Dump Identifier 
[tsymbolic dump list] 


GDT 

‘SHR’ | ‘EXCL’ 

‘NOWAIT’ | ‘WAIT’ 

resource name 

reserved (not used) 

Scope (see “Scope Structure 
for UENQ - ENQSCOPE”) 

*DTL (output) 


GDT 
module identifier 
{return code] 


GDT 

ERCNVTAB 

GDT 

alternate IOCSTR or zero for SYSPRINT 
PCARG 


GDT 
alternate IOCSTR or zero for SYSPRINT 
Text Structure identification 


GDT 

pool identification 

[* ALL” 

GDT 

address of storage to free 


GDT 
tIOCSTR 


Chapter 3: Program Organization 3-5 


Internal Services Provided for Processor Modules 
Entry Point Description 


Service 
UGPOOL 


UGSPACE 


UIOINFO 


UIOINIT 


UIOTERM 


ULISTLN 


ULOAD 


UOPEN 


UPOSIT 


UPRINT 


UPUT 


URESET 


UREST 


USAVERC 


USNAP 


UTIME 


UTRACE 


UVERIFY 


3-6 


Module 
IDCSA02 


IDCSA02 


IDCIOO1 
IDCIOO3 


IDCIOO! 
IDCIOO1 


Inline 


IDCSA02 


IDCIOO! 
IDCIO02 


IDCIOO1 
IDCIO03 


IDCTPO1 


IDCIOO! 


IDCTPO! 


IDCTPO1 


Inline 
code 


IDCSA02 


IDCSA02 


Inline 


IDCIOO! 


IDCSAGP 


IDCSAGS 


IDCIOSI 


IDCIOIT 


IDCIOTM 


None 


IDCSALD 


IDCIOOP 


IDCIOPO 


IDCTPPR 


IDCIOPT 


IDCTPRE 


IDCTPRS 


None 


IDCSASN 


IDCSATI 


None 
code 


IDCIOVR 


Allocate a named pool of storage and 
optionally initialize it. 


Allocate unnamed storage, and optionally 
initialize it. 


Return file-ID, volume serial numbers, 
and/or device type information about a given 
filename. 


Initialize the I/O Adapter. 


Close all data sets that were opened with 
UOPEN and free all storage still used by 
the I/O Adapter. 


Copies the contents of register 1 into a 
fullword named LISTPTR and puts the 
number of arguments addressed by register 
l in a byte named LISTLN. Maximum 
value is 255. 


Load (if necessary) a module; do not pass 
control to it. 


Open one or more data sets. 
Position to a logical record. 


Format (and usually write) one or more 
lines, 


Write a record. 


Re-initialize PCT (print control table) 
for the next function. 


Modify an existing PCT (print control 
table). 


Copies the low order half of 
register 15 into a halfword named 
TESTRC. 


Call for a dump of the partition. 


Get date and time of day. 


Adds the current identification to 
the Inter-Module Trace Table. 


Issue VSAM VERIFY macro. 
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Arguments 


GDT 
size of storage to obtain 
return storage address 


pool identification 
[“SETZERO” | “SETBLANK”] 
GDT 

size of storage to obtain 

return storage address 
(“SETZERO” | “SETBLANK”] 
GDT 

option flags 

t work area 

filename|volid 
logicalunitno,timestamp 

{pool identification] 

GDT 

[¢ zero] 

{t external routine list] 

GDT 

GDT 


module name 

returned loaded module address 

(RETPNF=1] returns control on 
phase not found 


GDT 
[{OPNAGLL...]|OPNAGL,CRAAPLIST} ] 


GDT 
tIOCSTR 


GDT 

alternate IOCSTR or zero for SYSPRINT 
t DARGLIST 

[* FMTLIST] 


GDT 
tlOCSTR 
{ID code] 


GDT 

alternate IOCSTR or zero for SYSPRINT 
invoker’s page 

number field 

GDT 

alternate IOCSTR or zero for SYSPRINT 
arg! 

arg2 

argn 


GDT 

SNAP dump-ID number 
GDT 

field for returned time 
[field for returned date] 
[“FORM”|“KLOK”} 


GDT 
tIOCSTR 
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Processor Invocation 


Invocation of the Access Method Services processor is via standard 
DOS/VSE job control (// EXEC IDCAMS, SIZE=AUTO), or via a sub- 
routine call. If tape or nonsequential nonVSAM files are to be processed by 
Access Method Services, use the LBLTYP statement to reserve storage for 
label information. Entry and exit to the Access Method Services processor 
occurs through IDCSAO1, a module of the System Adapter. For a subroutine 
call, you must load phase IDCAMS which occupies 27,000 bytes and branch 
to the load address plus six. Standard linkage is used; that is, register 1 points 
to the argument list, register 13 points to a save area, register 14 contains the 
return address, and register 15 contains the entry point address. On return 
from the Access Method Services processor to a subroutine caller, all registers 
except register 15 are restored. Register 15 contains the value of MAXCC 
(see the section: “Processor Condition Codes” below.) 


The argument list, as shown in Figure 3-1, can be a maximum of four full- 
word addresses pointing to strings of data. The last address in the list con- 
tains a “1” in the sign field. The first three possible strings of data begin with 
a two-byte length field. A null element in the list can be indicated by either 
an address of zeros or a length of zero. 
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REG 1 


Argument List 


OPTIONS 


DNAMES 


; PAGE NUMBER 


[OLIST 


Psu 


Paani 


USER DATA, 










Pai 


t orouTINe, 





A user DATA, 





n: Fullword which specifies the number 
of groups of three fields that follow. 
Each group consists of a DNAME, an I/O 
routine, and user data. 


DNAME: Address of a 10-byte character 
string, the first two characters of which are 
‘DD’, the next 8 characters are the DNAME 
field value which may appear in the FILE, 
INFILE, or OUTFILE parameters of any 
Access Method Services command. The 
SYSIPT (DDSYSIPT) and SYSLST 
(DDSYSLST) DLBL names may also appear 
if the invoker wishes to manage these files. 
The appearance of this name causes 
invocation of the associated IOROUTINE 
for all I/O operations on the data set 
associated (normally via the DLBL or TLBL 
statements) with DNAME. 


IOROUTINE: Address of the program 
which is to be invoked to process I/O 
operations upon the data set associated 
with DNAME. This routine is invoked 
instead of a system access method for all 
operations against the data set. 


USER DATA: Address of a data area 


that the user can use for any purpose, 


Figure 3-1. Argument List for Processor Invocation 


LENGTH OPTIONS 


LENGTH: Halfword which specifies the 
number of bytes in the OPTIONS field. 


OPTIONS: Character string which contains 
system options from PARM field of EXEC 
statement or options set up by the invoker. 


LENGTH 


LENGTH: Halfword, in DOS/VSE, this value 
must be Q. 


LENGTH PAGE NUMBER 


LENGTH: Halfword which specifies the number 
of bytes in the PAGE NUMBER field. 


PAGE NUMBER: I-4 byte character string 
which may specify the starting page number 
of system output listing. This value is reset 
to the current page number upon 
completion of the present invocation of the 
Access Method Services processor. The 
number will be truncated to fit the space. 
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Processor Condition Codes 


User I/O Routines 


Overall Control Flow 


The processor’s condition code is LASTCC, which can be interrogated in the 
command stream with modal commands. The possible values, their mean- 
ings, and examples of causes are in the following table. The table illustrates 
the value of LASTCC. 


Code Meaning 


0 The function was executed as directed and expected. Informational messages may have 
been issued. 


4 Some annoyance in executing the complete function was met, but it was possible to 
continue. The results might not be exactly what the user wants, but no permanent harm 
appears to have been done by continuing. A warning message was issued. 


8 A function could not perform all that was asked of it. The function was completed, but 
specific details were bypassed. 


12 The entire function could not be performed. 


16 Severe error or problem encountered. Remainder of command stream is flushed and 
processor returns condition code 16 to the operating system. 


The LASTCC condition code is reflected in its related message numbers. The 
first numeric character of the message number equals the condition code 
divided by 4. 


MAXCC, which can also be interrogated in the command stream, is the 
highest value of LASTCC thus far encountered. 


If the user has supplied his own I/O routine, the I/O Adapter invokes the 
user routine. Again, standard linkage is used. Figure 3-2 shows the argu- 
ments passed to the user routine. Each field begins on a fullword boundary. 


When writing a user I/O routine, the user must be aware of three things. 
First, the processor handles the user data set as if it were a nonVSAM data set 
that contains undefined records (maximum length—32,760 bytes) with a 
physical sequential organization. The processor does not test for a 
DLBL/TLBL statement for the data set. Therefore, the name can be any- 
thing. Second, the processor formats data in various ways. The user must 
know what the format is so that the user’s routine can be coded to handle the 
correct type of input and format the correct type of output. (See “Diagnostic 
Aids” for more information). Third, each user supplied I/O routine must 
handle any error messages and provide to the processor a return code in 
register 15. The processor uses the return code to determine what it is to do 
next. 


The permissible code are: 
O Operation successful. 
4 End of data for a GET operation. 


8 Error occurred during a GET/PUT operation but continue processing. 


12 Do not allow any further calls (except for CLOSE) to this routine. 


Figure 3-3 illustrates the overall control flow through the processor. Entry 
and exit are through IDCSA01. IDCEX01 is the main controller; it alternates 
control between the Reader/Interpreter and the FSRs to process each com- 
mand. When all commands are processed or a severe error has occurred, 
IDCEX01 gives control to IDCEX03. After IDCEX03 completes, IDCEX01 
returns to IDCSAOI. 
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User data obtained from the 
processor invocation parameter list. 







Register | 


USER DATA 
IOFLAGS 
IOINFO 










Get or Put 








(Eight bytes) Fullword of flags: 






Value 
Byte | 0 - 
Record Length haa 
Byte 2 32=C 
For a GET this information is returned to the 
processor by the user’s I/O routine in the 8-byte 
area passed to the routine. 
For a PUT the processor gives this information to the 
user’s I/O routine. 64 - 
[28 - 
Bytes 3.4 () - 
(Record type 
for PUT only) 


Figure 3-2. Arguments Passed to and from User I/O Routine 


Meaning 
OPEN 
CLOSE 
GET 
PUT 


Indicates IOINFO 
contains the 
address of a 
DD name on 
OPEN or CLOSE 


OPEN for output 
OPEN for input 


Normal data 
record 1s to 
be written 


Message serial 
number converted 
to binary if IDC 
message is to be 
written 





All modules in Figure 7 call the modules in Figure 8 for services (like writing 
a record). The addresses of the entry points to the service modules are kept in 


the GDT. All modules in Figure 8 also call each other for services. 
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IDCAMS From and to Access Method 
Services Invoker 


Command 
IDCSAO1 Name 


Modal Verb 
& Keyword 


Initiator/ Table 
Terminator IDCRILT 


IDCRIFF 


Table 
IDCRIKT 


Command 

Descriptors 

(Static ey xX S 

Modules) S é © & 
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IDCEX01 
Main Line 





LR 









IDCEX02 
Executive 
Initiator 


rd) 







IDCRIO02 
Setup 
Descriptor 














IDCRIO1 
Reader/ 
Interpreter 












Command 
Structures 

(FDP Mapping 
Macros) 









IDCRIO3 
Reader/ 
Interpreter 
Terminator 

















Function 
Support Routine 





IDCEX03 
Executive 
Terminator 
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[I/O Services 


IDCIOO1I 
I/O Main 










IDCIO02 
Open/Close 


IDCIOO3 


Position 


Entry/Exit Services 





IDCSA03 IDCSA02 





Prologue 
Epilogue 


System 
Adapter 


Main 


Figure 3-4. Flow of Control Through Services 






Text Formatting 
Services 


IDCTPO1 
Text 

Processor 
Main 














IDCTP04 












Setup 


[IDCTPOS5 
Get Text 
Structure 





IDCTP06 
Verbalize 
Return Codes 


Operating System Services 


IDCSAO1 IDCSA08 
Abort Enqueue 
Dequeue 
IDCSA05 
Time 








Debugging 
Services 


IDCDBO1 


Dump 
Main 





IDCDBQ2 
Symbolic 
Dump 
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Chapter 4: Microfiche Directory 


This chapter contains a directory to the microfiche listings for all modules of 
the processor. This directory describes the contents of each module by 
function and label, allowing you to quickly find any desired code. 


The processor is written in PL/S, a high-level, IBM proprietary system 
language. Listings that are produced for microfiche consist of the PL/S 
source code, a cross-reference and attribute table, and the assembly code. See 
the IBM publication Guide to PL/S II, for a more detailed explanation of 
PL/S and its listings. 


Each module is designed with no explicit GOTOs or branches. All condition- 
al phrases are contained within IF-THEN-ELSE clauses and DO-WHILE 
clauses of PL/S. All loops are controlled by DO statements. Extensive use of 
closed subroutines (procedures) is made. 


The microfiche for each module begins with the PL/S portion, which con- 
tains all commentary and is the most readable form of the program. All 
major data areas are defined at the beginning of the listing. IF-THEN-ELSE 
clauses and DO-loops are indented to denote levels of logic. The cross- 
reference and attribute table shows each use of each data area. The assembly 
listing is keyed back to the PL/S source statement numbers. 


The listings are extensively commented. Each module begins with a prologue 
commentary that lists all standard information for that module. Throughout 
the listing, additional comments are boxed and structurally indented to make 
them easy to find. Each internal procedure has a small prologue to further 
describe its function. 


Note: The listings use CPL, FVT, and FPL instead of CTGPL, CTGFV, and 
CTGFL, respectively. See VSE/VSAM VSAM Logic, Volume | for a de- 
scription of these data areas. 


In the following tables, the module name appears in the first (leftmost) 
column. The second column contains an entry-point label, the label of an 
internal procedure (subroutine), or the label of data used externally—that is, 
by another module. The third column differentiates between entry points 
(EP), procedures (PR), and data used externally (DE). 
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CSECT/Load 
Module Name 


IDCALOI 


IDCAMS 


[DCBIOI 
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Label 


IDCALOI 
LOCATPRC 


ALTERPRC 


CHECKPRC 


INDEXPROC 


PARAMCHK 


IDCBIOI 
OPENPROC 


JCPROC 


MAINPROC 


FINPROC 


TERMPROC 


LOCPROC 


CATPROC 


DEFPROC 


DELTPROC 


INITPROC 


CNTLPROC 


SORTPROC 


Use 


EP 
PR 


PR 


PR 


PR 


PR 


EP 


EP 
PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 
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Description 


ALTER FSR; modify an existing catalog entry. 
Translate the encoded command parameters into 
the necessary catalog parameter lists and call 
IDCSACA for a catalog request (UCATLG 
macro). 


Only entry point to this module. 


Locates catalog fields that must be altered in 
context. Procedure only locates those fields that 
contain multiple attributes. Thus, since the user 
may wish to change only one of several attributes, 
the original field must serve as the basis for 
alteration. 


Builds the VSAM catalog management interface for 
the alter request. 


Does validity checking on certain attributes to 
ensure compatibility between old values and new 
values. 


If KEYS has been specified on the ALTER 
command, INDEXPRC builds the parameter list to 
alter the associated index object. 


Verifies that parameters specified on the command 
are valid for the type of object to be altered. 


Root phase for Access Method Services; consists of 
IDCSAOI, IDCSA02, IDCSA03, IDCEXO1, 
IDCIOOIL, and IDCTPOL. See the directory for 
these modules for further description. 


BLDINDEX FSR; build one or more alternate 
indexes over a defined, nonempty base cluster. 


Only entry point to this module. 


Opens the data sets required by the BLDINDEX 
FSR-—base cluster, alternate index and, optionally, 
sort work files—by issuing UOPEN. 


Issues the UIOINFO macro to determine if caller 
supplied sort work job control; obtains data set 
name and volume serial. 


Controls the build process for one alternate index 
by calling OPENPROC, LOCPROC, INITPROC, 
CNTLPROC. 


Closes alternate index, sort work files, and issues 
alternate index final status message. 


Closes base cluster, frees resources, and prints 
termination message. 


Controls sequence of catalog locates to obtain 
information regarding base cluster and alternate 
index; verifies relationship. 


Constructs CPL and FPLs for catalog locate and 
calls VSAM catalog management via UCATLG. 


Constructs CPL, FVTs and FPLs and calls VSAM 
catalog management to define sort work files; opens 
defined files. 


Constructs CPL and calls VSAM catalog 
management to delete sort work files. 


Determines resources required for building 
alternate index and obtains core for work areas and 
sorting. 

Controls actual build by reading base cluster and 
calling SORTPROC and MERGPROC or 


BLDPROC to perform sort-merge and write 
alternate index records. 


Constructs sort records; performs the entire internal 
sort or the inttial sort phase of an external sort. 
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CSECT/Load 
Module Name 


IDCCDAL 
IDCCDBI 
IDCCDCL 
IDCCDDE 
IDCCDDL 
IDCCDLC 
IDCCDLR 
IDCCDMP 
IDCCDPM 
IDCCDPR 
IDCCDRC 
IDCCDRM 
IDCCDRP 
IDCCDRS 
IDCCDVY 
IDCCDXP 
I[DCCLOI 


IDCDBOI 


IDCDB02 


IDCDEOI 


IDCDE02 


Label 
SPILPROC 


BLDPROC 


MERGPROC 


IDCCLOI 


IDCDBOI 


IDCDBO2 
ARRAYHDR 


ITEMDUMP 
NAMEFLD 


HCONVERT 


BCONVERT 


CCONVERT 


FCONVERT 


IDCDEO! 
INTGCHK 


IDCDE02 
NAMEPROC 


ALLCPROC 


KEYPROC 


IXOPPROC 


Use 
PR 


PR 


PR 


EP 


EP 


EP 
PR 


PR 
PR 


PR 
PR 
PR 


PR 


EP 
PR 


EP 
oA 


EP 
EP 


EP 


Description 
Writes out initial strings to first sort work file in an 
external sort. 


Builds and writes the alternate index records from 
the sequenced sort records. 


Performs the merge passes of an external sort. 
Command Descriptor for ALTER verb. 
Command Descriptor for BLDINDEX verb. 
Command Description for CANCEL verb. 
Command Descriptor for DEFINE verb. 
Command Descriptor for DELETE verb. 
Command Descriptor for LISTCAT verb. 
Command Descriptor for LISTCRA verb. 
Command Descriptor for IMPORT verb. 
Command Descriptor for PARM verb. 
Command Descriptor for PRINT verb. 
Command Descriptor for EXPORTRA verb. 
Command Descriptor for the IMPORTRA verb. 
Command Descriptor for the REPRO verb. 
Command Descriptor for the RESETCAT verb. 
Command Descriptor for VERIFY verb. 
Command Descriptor for EXPORT verb. 


CANCEL FSR; stops Access Method Services 
processing and optionally cancels the current job. 


Debug module (UDUMP macro). 
Only entry point to this module. 
Debug module (symbolic dump). 
Only entry point to this module. 


Processes any array header elements (T YPE="A") 
occurring in the dump list. 


Processes any individual dump list elements, 


Inserts the symbolic name of the dump element into 
the proper position of the output line. 


Converts the value of the current dump item to 
hexadecimal representation. 


Converts the value of the current dump item to 
binary representation. 


Converts the value of the current dump item to 
character representation. 


Converts the value of the current dump item to 
fixed-integer representation. 


DEFINE FSR: define a new VSAM data set as a 
cataloged object. 


Only entry point to this module. 


Performs validity checking on completed catalog 
parameter list. 


Common processing routines for all define types. 
Initializes registers and obtains storage. 


Initializes the data set creation and expiration dates 
in the CTGFL and the object name in the CTGFV. 


Initializes several allocation and option related 
parameters in the CTGFL and CTGFV. 


Initializes the record management control block 
and the key range “pseudo-field” in the CTGFL. 


Initializes index options. 
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CSECT/Load 
Module Name 


IDCDE03 


IDC DIO 
IDC DI02 
IDCDIO3 


IDCDI04 


IDCDIOS 


IDCDI06 


IDCDIO7 


IDCDIO8 


IDCDIO9 


IDCDII0 


IDCDIT 


IDCDI12 


IDCDIL3 


IDCDI14 


IDCDIIS5 


IDCDLO! 
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Label 
PROTPROC 


MODELPRC 


FREESTG 


IDCDEO3 


CTLGPROC 


DSETPROC 


AIXPROC 


PATHPROC 


DSPACPRC 


NVSAMPRC 


IDCDLOI 
CATOPEN 


Use 
EP 


PR 


EP 


EP 


PR 


PR 


PR 


PR 


PR 


PR 


EP 
PR 
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Description 


Initializes the security combination and owner 
identification fields and the SHAREOPTIONS and 
ERASE|NOERASE flags in the CTGEL. 


Handles the retrieval of model objects to be used in 
defining components of VSAM user catalogs and 
data sets. 

Frees automatic storage for IDCDE02 CSECT. 
Routes control! to proper routine. 


Calls proper procedure to construct parameter list 
for the different object types. 


Oversees the construction of the VSAM CTGPL, 
CTGFYV, and CTGEL for defining a VSAM master 
or user catalog. 


Oversees the construction of VSAM key sequenced 
and entry sequenced data sets. 


Oversees the construction of the VSAM catalog 
interface for defining alternate index data sets. 


Oversees the construction of the VSAM catalog 
interface for defining paths. 


Oversees the construction of the VSAM catalog 
interface for defining VSAM data spaces. 


Oversees the construction of the VSAM catalog 
interface for defining a nonVSAM data set into a 
VSAM catalog. 


SYSLST DTF and put phase. 
SYSIPT DTF and get phase. 


Fixed and fixed blocked sequential access method 
SD DTF and get phase. 


Fixed and fixed blocked sequential access method 
SDDTF and put phase. 


Variable and variable blocked sequential access 
method SDDTFE and get phase. 


Variable and variable blocked sequential access 
method SDDTF and put phase. 


Undefined seqeuntial access method SDDTF and 
get phase. 


Undefined sequential access method SDDTF and 
put phase. 


Spanned and spanned block sequential access 
method SDDTF and get phase. 


Spanned and spanned block sequential access 
method SDDTF and put phase. 


Fixed and fixed blocked sequential access method 
MTDTF and get/put phase. 


Variable and variable blocked sequential access 
method MTDTFE and get/put phase. 


Spanned and spanned blocked sequential access 
method MTDTFE and get/put phase. 


Undefined sequential access method MTDTF and 
get/put phase. 


Fixed and fixed blocked indexed sequential access 
method DTF and get phase. 


DELETE FSR; delete a catalog entry from the 
VSAM catalog. 


Only entry point to this module. 


Opens the user catalog if required. 
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CSECT/Load 
Module Name 


IDCEXO! 


IDCEX02 


IDCEX03 


IDC1OO! 


Lahel 
FINDTYPE 


PARAMCHK 


BUILDCPL 


CATCALL 


MORESP 


CLEANUP 


IDCEX0O| 


MAIN 


CALLRI 


CALLFSR 


IDCEX02 
SCANPARM 


IDCEX03 
SCANPARM 


IDCIOIT 


IDCIOOP 


IDCIOTM 
IDCIOCL 


IDCIOPO 


IDCIOSI 
IDCIOGT 
IDCIOPT 
IDCIOVY 
IDCIOCO 
CHANGE 
GETEXT 
GETVSAM 


IRAMEOD 
GETNONVS 
IROSEOD 


Use 


PR 


PR 


PR 


PR 


PR 


PR 


EP 


PR 


PR 


PR 


EP 
PR 


EP 
PR 


EP 


EP 


EP 
EP 


EP 


PR 
PR 
PR 


Description 


Locates the entry to be deleted in order to 
determine its type when type ts not specified in 
command. 


Checks for invalid type specification and other 
command parameter errors. 


Constructs the CTGPL from parameters specified 
in the DELETE command and indicated in the 
FDT. 

Calls VSAM catalog management to delete a single 
catalog entry. 


Obtains a larger catalog work area and reinvokes 
catalog management. 

Performs termination functions and closes the user 
catalog, if required. 


Main-line for Executive; routes control through 
processor. 


Only entry point to this module; entered from 
IDCSAOL. 


Flip-flop control between Reader/Interpreter and 
FSR required for each command. 


Invoke Reader/Interpreter to parse the next 
command. 


Invoke FSR named by the result of parse by 
Reader/Interpreter. 


Executive, initialize the processor. 

Only entry point to this module. 

Scan processor invocation parameter list. 
Executive, terminate processing. 

Only entry point to this module. 


Scan invoker’s parameter list to return next 
available page number. 


Supply all 1/O services to the remainder of the 
processor. At each of the following entry points, 
IDCIOOIL converts the service request to the 
appropriate system macros and issues those macros. 


First call to 1/O Adapter: initialize the adapter for 
subsequent calls. 


Open | to 4 data sets (UOPEN macro), by calling 
IDC1IOO2. 


Close any data sets still open (UIOTERM macro). 


Close | to 4 data sets (UCLOSE macro), by calling 
IDCIOO2. 


Position to a specific record in a data set (UPOSIT 
macro), by calling IDC1O03. 


Obtain various pieces of information about data set. 
Read a record (UGET macro). 

Write a record (UPUT macro). 

Verify data set (UVERIFY macro). 

Copy a data set (UCOPY macro). 

Handles change of processing modes for RPL. 

Call an external routine to get a data record. 


Get a logical record or control interval from a 
VSAM data set. 


End-of-data-set exit routine for VSAM data sets. 
Get a logical record from a nonVSAM data set. 


End-of-data-set exit routine for nonVSAM data 
sets. 
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CSECT/Load 
Module Name 


IDCIO02 


IDCIO03 


IDCLCOE 
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Label 
PUTEXT 
PUTVSAM 
PUTNONVS 
PUTREP 
VSAMERR 
BLDAMSG 
PRINTMSG 
IDCIOS | 


IRSISYN 


IRSOSYN 


IDC1O02 
OPENRTN 
CKNONOP 


CLOSERTN 


ENVFREE 


DSDATA 

BUILDRPL 
BUILDACB 
BUILDDBK 


BLDOCMSG 
PRINTMSG 


IDCIO03 
PTAMDS 
PTISDS 
BLDAMSG 
PRNTMSG 
DSINFO 


IDCLCOI 
INITPROC 
GNXTPROC 
ENTPROC 


RTEPROC 


Use 


PR 
PR 
PR 
PR 
PR 
PR 
PR 
DE 


PR 


PR 


EP 
PR 
PR 
PR 


PR 


PR 


PR 


PR 


PR 


PR 
PR 


EP 
PR 
PR 
PR 
PR 
PR 


EP 


PR 


PR 


PR 


PR 
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Description 

Call a user-supplied routine for output. 

Put a logical record toa VSAM data set. 
Put a logical record to a nonVSAM data set. 
Handle PUT (Replace) processing. 

Build VSAM error message argument list. 
Prepare an error message. 

Print a message. 


Amount of storage IDCIOOI! needs. Used by 
IDCSAOL. 


Exit routine for [/O errors when attempting a GET 
on a nonVSAM, nonISAM data set. 


Exit routine for 1/O errors when attempting a PUT 
ona nonVSAM, nonISAM data set. 


Open/Close routine This routine can open or close 
I to 4 data sets with one call. 


Only entry point to this module. 

Open a data set. 

Check that a nonVSAM data set was opened 
successfully. 

Close data sets that were opened by the [/O Open 
routine. 


Free storage used for a data set; system areas, 
buffers, control blocks, DTF, and access load 
module. 


Issue CDLOAD and CALL for IKQVLAB, which 
returns the label information. 


Build RPL for VSAM data set and get input 
workareas for buffers. 


Build ACB and EXLST for VSAM data set to be 
opened. 


Load DTF and access module and modify DTF for 
a nonVSAM data set to be opened. 


Set up an error message. 

Call Text Processor to print error message. 

Perform POINT, SETL and ULOINFO operations. 
Only entry point to this module. 

Point to VSAM logical record. 

SETL to ISAM logical record. 

Prepare error message. 

Print message. 

Find volume/data set information. 


LISTCAT FSR; produces a listing of all or part of a 
VSAM catalog. This module initializes and 
manages the routing of VSAM catalog entries. 


Only entry point to this module. 


interrogates the FDT and initializes the catalog and 
DADSM parameter lists and workareas. Issues 
ULOAD for IKQDNT, the device name table. 


Manages the request for all or a specified subset of 
the catalog entry types in alphameric sequence. 
Manages the request for specific entries from the 
catalog. 


Routes control to the appropriate formatting 
procedure. Then routes control for formatting the 
associated data sets in a cluster or alternate index 


, grouping. 
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CSECT/Load 
Module Name 


IDCLCO02 


IDCLROI 


Label 


IDCLC02 


FREESTG 


FPLPROC 
LISTPROC 


AUPROC 


LOCPROC 


CDIPROC 


VPROC 


ERRPROC 


ANSVPROC 


DEVTCONV 
AATOPLR 


ADDASOC 
BUFSHUF 


BLDVEXT 
CATOPEN 
CKEYRNG 


CLEANUP 


CLENCRA 
CRAOPEN 


Use 


EP 


EP 


EP 


EP 


EP 


EP 


EP 


EP 


EP 


EP 


PR 


EP 


PR 
PR 


PR 
PR 
PR 


PR 


PR 
PR 


Description 


This module locates, formats, and lists the VSAM 
catalog entries. 


This entry point is used to establish addressability, 
acquire automatic storage and initialize the 
common data area pointers. 

Issues a UEPIL umacro to free the automatic 
storage acquired by IDCLC02. 


Re-initializes the string of CTGFLs prior to each 
catalog locate request, by using SAVEAREA copy 
stored at the original CTGFL-build time. 


Issues the Text Processor macro UPRINT and 
zeros out the Dynamic Data Area Argument List 
upon exiting. 


Repetitively builds the Text Processor Dynamic 
Data Argument List for formatting and listing the 
VSAM catalog fields for nonVSAM or user catalog 
entry. Repeatedly invokes LISTPROC to print the 
data. 


Issues VSAM catalog locate request and obtains 
additional catalog work space if required. After the 
first successful locate, sets the catalog ACB 
information in the CTGPL and establishes the 
LISTC subtitle with the catalog name. 


Formats the VSAM catalog data for cluster, 
alternate index, data, index, and path associations. 
Issues the locate request to obtain associated data 
set names for listing the cluster-data set-index-path 
and alternate index-data set-index-path 
associations. Builds the Text Processor argument 
list and invokes LISTPROC to print the data. 


Repetitively builds the Text Processor Dynamic 
Data Argument List for formatting and listing the 
VSAM catalog fields for a volume record entry. 
Repeatedly invokes LISTPROC to print the data. 


Completes the Dynamic Data Argument List with 
either an Access Method Services or catalog return 
code, when required. Issues the UPRINT macro to 
list the informational or error messages, Issues 
UERROR macro to list VSAM catalog (SVC26) 
error messages. Zeros out the Dynamic Data 
Argument List upon return to the caller. 


Retrieves the list of associated C.I. numbers and 
types from the work area and creates a save area 


copy. 
Translates the hexadecimal UCB device type code 
to the external device name. 


Only entry point to this module—Top control 
segment. 


Add an association to association table. 


Moves record from last (general) buffer to “home” 
buffer for this record type. 


Builds the vertical extension table. 
Opens the catalog data set and ENQs on it. 


Checks the data object for key range. If yes, prints 
high key. 


Closes the catalog and DEQs from itt and prints 
condition codes. 


Closes the CRA and frees storage associated. 


Opens the CRA and calls the procedure to build the 
CTT. 
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CSECT/Load 
Module Name Label Use Description 

CTTBLD PR Reads CRA control record, gets storage for CTT, 
scans CRA, and builds CTT. Controls sequential 
dump. 

DOOTHR PR Goes through SORTTBL forward chain containing 
nonVSAM names and calls PRTOTHR to print the 
objects. 

DOVSAM PR Goes through SORTTBL forward chain containing 
VSAM names and calls PRTVSAM to print them. 

ERROR PR Using entry subscript for error table, prints the 
error message, continues or aborts according to last 
condition code. 

GETPRT PR Gets copy of CRA record, calls IDCRC04 to obtain 
fields requested and, if COMPARE, gets the 
catalog record. 

INITLZE PR Initializes switches, adapter parameter list, 
IDCRC04 parameter list, opens the alternate 
output file, and gets table space. 

INTASOC PR Initializes an association table for a base object. 

INTSORT PR Gets storage for sort table, builds the entries in it 
from the CTT for the object type specified. 

INTVEXT PR Initializes VEXTTBL by calling IDCRC04 
requesting extension pointers and places them in 
the table. 

MEMSORT PR Adds forward and backward pointers tn sort table. 

PRTAAXV PR Prints associated AI Xs volumes. 

PRTCMP PR Prints and/or compares information in CRA for 
one entry. 

PRTDMP PR Prints unformatted CRA record. If compare, calls 
PRTDMPC to print corresponding catalog 
information and underscore miscompares. 

PRTDMPC PR Prints unformatted catalog record corresponding to 
CRA record being printed. The miscompares are 
underscored. 

PRTFIFO PR Print CRA without sorting using the same 
procedures as if sorting. 

PRTMCWD PR Prints miscompare message indicating most severe 
fields in error. 

PRTOJAL PR Print alias(s) associated with an object. 

PRTOJVL PR Print volumes and high keys associated with an 
object. 

PRTOTHR PR Print and/or compare all nonVSAM objects and 
their extensions. 

PRTTIME PR Print timestamps of volumes after converting them 
to MM/DD/YY HH/MM/SS. 

PRTVOL PR Print and/or compare volume record and its 
extensions. 

PRTVSAM PR Print and/or compare VSAM structures and 
associated records. 

SUMIT PR Sum or print number of objects processed. 

TCICTCR PR Translate control interval from catalog to CRA. 

VERTEXT PR Loops through the VERTEXT and extensions and 
prints them. 

IDCLRO2 EP Formats the buffer pool and reads CRA and 
catalog records. 
IDCMPO! IMPORT FSR; reconstruct a VSAM cluster or 


alternate index from a portable copy that was 
created by IDCXPOI. Any associated. paths are 
also recreated IDCSACA is called (UCATLG 
macro) to add the necessary entries to the VSAM 
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CSECT/Load 
Module Name 


Lahel 


IDCMPOl 
CLUSPROC 


CNCTPROC 
DUPNPROC 


CPLPROC 


IUNIQPRC 


ALTRPROC 


LVLRPROC 


CTLGPROC 


DELTPROC 


OPENPROC 


RANGPROC 


BFPLPROC 


RECPROC 


MV DAPROC 


MSGPROC 


FVTPROC 


BPASPROC 


GETPROC 


DVOLPROC 


DVOLCHK 


Use 


PR 


PR 
PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


Description 


catalog, and a UCOPY macro is issued to copy the 
data set by logical records. When the input data set 
is a catalog, no copy is performed: instead the 
catalog is connected by a call to IDCSACA. 


Only entry point to this module. 


Reads catalog and data records from the portable 
volume. Uses catalog information plus information 
from the command to perform a catalog define for 
the cluster or alternate index. Copies data into the 
object after successful definition in the catalog. 


Connects one or more user catalogs. 


This procedure is called when a duplicate entry 
name is found in the catalog when trying to define 
the data set to be imported. A locate will be 
performed. If the entry has the temporary export 
flag set in the attributes field, a delete is then 
performed so that the imported data set may be 
defined. If the entry is empty, checks are made for 
matching attributes so that import can be 
performed into a predefined empty data set. 


Constructs a CTGPL to be used for a catalog 
define, alter, delete, or locate operation. 


Checks the DSATTR field in the CTGFV to see if 
the cluster being defined is a unique data set. If so, 
a null space (volume) CTGFV must be supplied for 
catalog define. 


Constructs a CTGPL and CTGFYV to be employed 
by the catalog alter interface. 


Constructs CTGFL for DEVTYPE lists and 
constructs list of volume serial numbers. 


Invokes the VSAM catalog management to perform 
the operation indicated in the CTGPL. 


Deletes any temporarily exported data sets found 
by DUPNPROC. 


Performs all opens required for opening a VSAM 
object or user catalog for input or opening the 
portable volume for output. 


Processes all information dealing with key ranges. 


Constructs a CTGFL from dictionary and 
workarea information. 


Copies the data from the portable data set to the 
VSAM object being imported. The VSAM object is 
opened by OPENPROC. The UCOPY macro is 
employed to perform the copy. The UCLOSE 
macro is employed to close the object. 


Moves data from one location in virtual storage to 
another as specified by input arguments. 


Uses the Text Processor interface to list messages. 


Constructs CTGFVs and CTGFLs from 
information in the dictionary. Obtains portable file 
LRECL and passes it to the I/O Adapter. 


Constructs PASSWALL CTGFL and moves 
information into PASSWALL. 


Gets a data record and moves it into a buffer. 
Reconstructs the original record if it has been 
segmented. 


Constructs the special volumes CTGFLfrom the 
DEFAULTVOLUMES parameteg. 


Performs diagnostics to assure that 
DEFAULTVOLUMES volumes CTGFLs were 
constructed only for components whose attributes 
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CSECT/Load 
Module Name 


IDCPMO! 


IDCPROI 


IDCRCO! 


VSE/VSAM Access Method Services Logic 


Label 


IDCPMOI 
TESTPARM 


TESTSAVE 


MARGPARM 


GRPHPARM 


IDCPRO! 
TEXTPSET 


DELIMSET 


BUILDCRV 


BUILDNAM 
CHKCATNM 


CKNAMES 


COMPNAME 


DIRECT 
DUPNAMCK 


Use 


EP 
PR 


PR 


PR 


PR 


EP 
PR 


PR 


EP 


PR 


PR 
PR 


PR 


PR 


PR 
PR 


Licensed Material — Property of IBM 


Description 


are compatible with DEFAULTVOLUMES. Also 
checks to warn if DEFAULTVOLUMES was 
specified but ignored. 


PARM FSR; establish or change the processor 
parameters. Processor parameters (TEST, 
MARGINS, and GRAPHICS) can be established 
through the PARM field of the EXEC card. This 
FSR provides an alternate way to set these options. 


The results of changing TEST appear in the area 
whose address is in GDTDBH. The results of 
changing MARGINS appear as the first two 
halfwords tn the area whose address appears in 
GDTRIH, and GRAPHICS ts recorded in the 
PCT. 


Only entry point to this module. 


Resets the previous test option if necessary. 
Processes new test option. Obtains and initializes 
the Test Option Data Area. 


Extracts the specified test parameters from the FDT 
and places them in the Test Option Data Area to be 
used by the Access Method Services dump routine. 


Processes the input command source margins 
specified. The left and right margin values are 
placed into the Reader/Interpreter Historical Data 
Area to be used by the Reader/Interpreter when 
processing subsequent command Input. 


Determine graphics option chosen and issue 
UREST macro to establish the specified translate 
table. 


PRINT FSR; print the contents of a data set in 
EBCDIC, hexadecimal, or dump format. Page 
layout is established with a call to IDCTPEA 
(UESTA macro) and lines of data are printed by 
calling IDCTPPR (UPRINT macro). 


Only entry point to this module. 


Communicates the page layout and record layout 
for the listing to the Text Processor. 


Establishes the boundaries for printing a subset of 
the input data set. 


This is the highest level of control and the only 
entrypoint to this module. The function loops 
through the CRAs opening them, writes them and 
their associated objects to the portability data set 
and closes them. 


Obtains space for CRV, ACC, and VTT, obtains 
volume and device type information on CRAs., and 
constructs the name chain for all entries in the 
CRAs 


Builds the name chain extension block of storage. 


Reads a CRA record and checks the owning 
catalog, then issues an ENQ on the owning catalog. 


Gathers passwords for VSAM data sets, flags empty 
data sets, bypasses OS/VS-only data sets, collects 
the association CI numbers, and determines the 
largest logical record length. 


Compresses the blanks from the right of the object 
name and places it in the space obtained in the 
procedure SUBSP. 

Gets space and reads in the directory. 


Scans the name chain for duplicate names and 
prints message if one is found. 
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CSECT/Load 
Module Name 


IDCRCO02 


Lahel 
ERRCK 


EXPORTDR 


EXTRACT 


INIT 


MESSAGE 


NAMETABL 


OBJVOLCK 


OPEN 


OPENCRA 


SCANCRA 


SUBSP 


SYNCH 


TERM 


TIMESTMP 


IDCRCO02 
ALSPROC 


CLUSPROC 


CONTROL 


CTLGPROC 


GDGPROC 


LOCPROC 


MVDAPROC 


NVSMPROC 
OPENPROC 


PRNTPROC 
PUTPROC 


Use 
PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


EP 
PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 
PR 


PR 
PR 


Description 


If an error is considered severe, the catalog is closed 
and the error message ts printed. 


Prints start of export of CRA message, calls 
IDCRC02 to export and prints completion message. 


Sets up the FMPL and calls IDCRC04 to extract 
data fields from CRA records. 


Calls SUBSP to obtain storage and then initializes 
the buffer pool. 


Handles the printing of all messages. 


Checks the name on the CRA record and if it isa 
cluster, AIX, nonVSAM or catalog connector, it 
builds the name into the name chain. 


Checks the timestamp and CI on the volumes with 
that of the CRA for each object. 


Builds the OPNAGL and issues the open for the 
CRA. It then checks the owning catalog name for 
the major owning catalog. 


Calls procedures to open the CRA, get its 
timestamp, build the name table and the directory 
entry. 


Reads the catalog record, gets storage for CTT and 
loops all CRA records putting Cl numbers in the 
CTT and calls NAMETABL to build the name 
table. 


Handles the obtaining and allocation of small 
pieces of storage associated with the name table 
from one large block. 


Checks the entire name chain for entries specified 
in the input. It also checks for valid associations, 
Cls, and volumes. 


Dequeues from owning catalog, closes the 
portability data set, and releases storage. 


Reads the volume timestamp using UIOINFO and 
places it in the volume timestamp table. 


Creates a portable data set of VSAM clusters, 
catalog information for nonVSAM, and associated 
aliases. 


Only entry point to this module. 


Bypasses portable file information for OS/VS2 
alias associations of nonVSAM data sets. 


Obtains catalog information and data for VSAM 
Clusters. 


Builds control records containing catalog 
information. 


Invokes catalog management with a CTGPL for 
Locate. 


Bypasses portable file information for OS/VS2 
GDG bases. 


Builds a CTGPL and multiple CTGFLs for catalog 
locates. 


Moves data in storage from one location to another 
and clears work area storage. 


Gets catalog information for nonVSAM data sets. 


Opens the VSAM cluster for input and the portable 
data set for output. 


Prints messages for association errors. 


Writes a control record containing catalog 
information to the portable data set. 


Chapter 4: Microfiche Directory 4-ll 


4-12 


CSECT/Load 
Module Name 


IDCRCO3 


IDCRC04 


IDCRIOI 


VSE/VSAM Access Method Services Logic 


Label 


RECPROC 


SAVEPROC 


PCKLC 


PEXPT 


PGREC 
PGREP 
PGVAL 
PLNRV 


PLOCZ 
PLVAL 


PSCNC 


PSCNF 
PSHIN 
PTCMP 


PTRNS 


PTSTS 


IDCRIOI 
RIINIT 


Use 
PR 


PR 


EP 
PR 


PR 


PR 
PR 


PR 
PR 
PR 
PR 


PR 


PR 
PR 
PR 


PR 


PR 


EP 
PR 
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Description 


Copies the data for a VSAM cluster to the portable 
data set. 

Saves control records containing catalog 
information until processing for that object’s 
catalog information is complete and then writes all 
records to the portable data set. 


Handles format of buffer pool and reading of 
catalog or CRA records. 


This is the only entry point to this module. 


Insures the requested catalog field exists in a group 
occurrence being processed. 


Sets up address and length of extension pointers as 
per argument passed. 


Obtains addressability to the desired CI block. 


Finds highest non-deleted RELREPNO with 
desired group code. 


Find the field and extract the requested data. 
Locate non-replicated values 
Locate field and dictionary information. 


Locate fixed or variable length field in physical 
record and group occurrence. 


Loops through all FMFLs to convert names to 
internal notation. 


Moves requested data to area specified by caller. 
Inserts the data found into requested field. 


Compares sub-fields between input data and 
“found” data. 


Format and build compressed name table, insure 
group codes if special name obtained from caller. 


Tests for existence of field and if there, places 
dictionary information into work area. 


Consists of CSECTs IDCRIOI, IDCRIO2, and 
IDCRIO03. IDCRIOI is the Reader/Interpreter 
main-line routine. Its functions are: 


1. On first entry only, load a table of Command 
Descriptor phase names and a table of modal 
command verbs, initialize the 
Reader/Interpreter Historical Data Area, and 
obtain PARM options input if it exists in the 
PARM field of the EXEC statement. 


2. Scan the input stream for a command verb. 


3. Handle modal commands (IF, ELSE, DO, END, 
and SET) to determine which command to 
process next. 


4. Having found a function command verb, invoke 
IDCRIOQ2 to find and load the appropriate 
Command Descriptor module and initialize the 
FDT. 

5. Scan parameter set, using the Command 


Descriptor, to check syntax and semantics and to 
build FDT. 


6. Invoke IDCRI103 for clean-up activity following 
each function command, and return to 
IDCEXOl1 if the function command ts to be 
executed—that is, if it contains no syntax or 
semantic errors detectable by the 
Reader/Interpreter. 


Only entry point to this module. 


Initialize Reader/Interpreter processing. 
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CSECT/Load 
Module Name 


IDCRI02 


IDCRI03 


Lahel 
SCANCMD 
GETNEXT 


MODALSET 
MODALIF 
MODLELSE 
BYPASTRM 
KWDPARM 


POSPARM 
GETDATA 
GETSIMPL 
GETQUOTD 
BUILDFDT 
CONVERT 


DSIDCHK 


GETSPACE 
MORSPACE 


INREPEAT 


DEFAULTS 


ERRSETUP 


NEEDNOTS 


SKIPCMD 
SETFLAG 


PACKCVB 


NXTFIELD 
SCANSEP 


NEXTCHAR 
GETRECRD 
SCANENDS 


DSPLCALC 
ERRORI 
ERROR2 


IDCRIO2 


IDCRI03 


Use 


PR 
PR 


PR 
PR 
PR 
PR 
PR 


PR 
PR 
PR 
PR 
PR 
PR 


PR 


PR 
PR 


PR 


PR 


PR 


PR 


PR 
PR 


PR 


PR 
PR 


PR 
PR 
PR 


PR 
PR 
PR 


EP 


EP 


Description 
Control command scanning and FDT building. 


Get next function command verb name and pointer 
to its parameter set. Intepreter modal commands. 


Process SET modal command. 
Process IF modal command. 
Process ELSE modal command. 
Prepare to obtain next verb name. 


Process a keyword after searching the Command 
Descriptor for its match. 


Process a positional parameter. 

Set up to extract constant or list of constants. 
Extract an unquoted constant. 

Extract a constant from within apostrophes. 
Place constants into FDT (converting if needed). 


Convert EBCDIC to binary, decimal, or 
hexadecimal. 


Check data set name item for adherence to naming 
conventions. 


Allocate space for an FDT element. 


Allocate additional space for a list of constants in 
an FDT element. 


End of repetition of a subparameter list has 
occurred: prepare for another of the subparameter 
list repetitions. 


Add defaults to parameters explicitly specified. 


Make special preparations to print semantic error 
message. 


Check parameters to ensure that certain semantic 
requirements have not been violated. Check for 
mutually exclusive parameters, and required 
parameters. 


Bypass remainder of current command. 


Flag that a particular parameter was found in the 
input or was implied by defaults. 


Convert EBCDIC string to fullword binary 
number. 


Extract next field from the input stream. 


Scan past the next syntactic separator (comma, 
blanks, and/or comments). 


Extract the next character of the input stream. 
Read the next input record and print It. 


Find left and right scanning limits of command text 
in the input record just read. 


Calculate offset into an array of pointers or counts. 
Process an error whose message Is static. 


Process an error that requires variable data to be 
inserted into the message. 


Search the table of Command-Descriptor phases 
for the name of the phase that corresponds to the 
current command, and then load that phase. 
Initialize the FDT. 


Only entry point to this module. 


Reader/Interpreter function command termination. 
Free working space and delete unneeded phases. 


Only entry point to this module. 
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CSECT/Load 
Module Name 


IDCRIFF 


IDCRIKT 
IDCRILT 


IDCRMOI 


VSE/VSAM Access Method Services Logic 


Label 


ALISPROC 


ALTRPROC 


BFPLPROC 


BPASPROC 


CLUSPROC 


CPLPROC 


CTLGPROC 


DELTPROC 


FVTPROC 


GETPROC 


GDGPROC 


IUNIQPRC 


LVLRPROC 
MSGPROC 
MVDAPROC 
NFVTPROC 


NVSMPROC 


OPENPROC 
RANGPROC 
RECPROC 


UCATPROC 


DVOLPROC 


DVOLCHK 


Use 


EP 
PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 
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Description 


Last entry indicator for Module Name Table for 
command descriptors used by the 
Reader/Interpreter. 


Modal command verb and keyword table, used by 
the Reader/Interpreter. 


Load Module Name Table for command 
descriptors used by the Reader/Interpreter. 


Only entry point to this module. 


Reads data records and checks for allowable type in 
the DOS system. 


Constructs the CPL and FVT to be used to alter the 
names of the objects. 


Constructs the skeleton FPL or constructs the FPL 
from the dictionary and work area information 
passed by EXPORTRA on the portable volume. 


Constructs passwall FPL. 


Reads catalog and data records from the portability 
volume and defines the object copy. 


Constructs the catalog parameter list to be used for 
UCATLG operations. 


Invokes VSAM catalog management to perform 
operation indicated in CPL. 


Performs all delete operations using catalog 
management. 


Constructs FVT and FPLs from information in 
dictionary passed as an argument. 


Gets a data record via UGET, reconstructs it and 
places it in the buffer. 


If this procedure is called in DOS, it writes an error 
message. 

Checks the DSATTR field in the CTGFV to see if 
the cluster being defined is a unique data set. If so, 
a null space (volume) CGTFV must be supplied for 
catalog define. 


Constructs the FPL from the DEVICETYPES 
parameter or LISTVOLS from the RANGES 
parameter. 


Uses the Text Processor to list messages. 

Moves data from one location in storage to another 
as specified by input arguments. 

Constructs the FVT and FPLs for nonVSAM 
objects. 

Reads catalog and data records from the portability 
data set and performs the define of nonVSAM 
entries. 

Performs all opens of VSAM objects for output or 
the portability data set for input. 

Processes key range information building the 
RANGES list. 

Copy data from portability data set to VSAM 
cluster. 

Reads catalog and data records from portable 
volume and performs a define of user catalog 
pointers and aliases. 

Contructs the special volumes CTGFL from the 
DEFAULTVOLUMES parameter. 


Performs diagnostics to assure that 
DEFAULTVOLUMES volumes CTGFLs were 
constructed only for components whose attributes 
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CSECT/Load 
Module Name 


IDCRPOI 


IDCRSOI 


Lahel 


IDCRPOI 
DELIMSET 


CATRELOD 


SORSREAD 


TARGREAD 


GETPAIR 


DUMPIT 


TRUENAME 


CATRANS 


CNVRTCI 


CATCOMP 


VERIFYC 


IDCRSOI 
AERROR 


CATINIT 
CLEANUP 
COPYCAT 
INIT 
MERGECRA 
PROCCRA 
REASSIGN 
UPDCRA 


Use 


EP 
PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


PR 


EP 
PR 


PR 
PR 
PR 
PR 
PR 
PR 
PR 
PR 


Description 


are compatible with DEFAULTVOLUMES. Also 
checks to warn if DEFAULTVOLUMES was 
specified but ignored. 

REPRO FSR; copy a SAM, ISAM, or VSAMdata 
set toa SAM or VSAM data set; unload or reload 


catalogs. Data set types are determined at open 
time, when IDCIOOP is called (UOPEN macro). 


When records are skipped at the beginning, a series 
of UGETs ts issued until the required record is 
reached. 


When records are skipped at the end, a series of 
UGETs and UPUTSs is issued. 


When the copy ts to the end of the data set, then a 
single call is made to IDCIOCP (UCOPY macro), 
which copies the data set from the first record to be 
copied through the end of the data set. The 
UPOSIT macro is employed to position to a 
FROMKEY or FROMADDRESS starting point. 


Only entry point to this module. 


Establishes the boundaries for copying a subset of 
the input data set. 


Checks for sufficient space, matching names for 
target and backup catalogs, and for agreement with 
volume serial number and device types. 


Reads a record from the backup catalog during a 
catalog reload. 


Reads a record from the target catalog during a 
catalog reload. 


Reads a record from both the backup and target 
catalogs for the initial checking performed before a 
catalog reload begins. 


Activated by the PARM test function in order to 
trace all 1/O for catalog record. 


Maps the RBA boundaries of the backup truename 
ranges. 


Locate and translate control interval numbers from 
source Catalog to target catalog. 


Converts control interval numbers from source 
catalog values to target catalog values. 


Indicates differences in truename entries between 
backup and target catalogs. 


Opens a data set for control interval processing in 
order to compare the end-of-data-set and 
end-of-key-range information stored in the VSAM 
catalog with the true data in the data set. Reopens 
the data set for normal keyed processing. 


RESETCAT FSR; synchronize a catalog with the 
CRA (s) of its owned volume. 


Only entry point to this module. 


Exit if not enough storage is available to establish 
automatic storage for RESETCAT modules. 


Initialize RESETCAT's description of the catalog. 
Ensure all resources are freed. 

Copy the catalog to the work file. 

Perform the main initializations of RESETCAT. 
Merge and reset CRA into the workfile. 

Process the records of the current CRA. 

Perform control interval reassignment. 

Update the CRAs from the workfile. 
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CSECT/Load 
Module Name 


IDCRS02 


IDCRSO3 


IDCRS04 


IDCRSOS5 


VSE/VSAM Access Method Services Logic 


Label 
WRAPUP 


ASSOC 
CINALTER 
LOCDIT 


PROCCI 


PROCTYPE 
SCANCI 
SETCI 


VERA 


VERC 
VERDSDIR 
VERCI 
VERG 
VERR 
VERU 
VERX 


CATRCDSU 


CHKBITS 
CHKDSDIR 


CHKUNQ 
GETFIT 
GETNEXTE 


GETTAB 
MARKUNUS 
PROCVOL 
SETBMAP 


VERB 
VLNRESET 


VLRESET 


VOLCHK 


DELGO 
FIND 


MODGO 


ADDTN 
ADDUPCR 
BLDRLST 
BLDVLST 


Use 
PR 


PR 
PR 
PR 


PR 


PR 
PR 
PR 


PR 


PR 
PR 
PR 
PR 
PR 
PR 
PR 


PR 


PR 
PR 


PR 
PR 
PR 


PR 
PR 
PR 
PR 


PR 
PR 


PR 


PR 


PR 
PR 


PR 


PR 
PR 
PR 
PR 
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Description 

Handle clean-up operations after successful 
RESETCAT processing. 

Performs various checking functions. 

Does association checking. 

Alter control interval numbers in catalog records. 


Locates a specific control interval number in a 
catalog record. 


Ensure that a control interval number is in the list 
of control interval numbers for records being 
processed. 


Scan a catalog record for control interval numbers. 
Scan record for control intervals. 


Update the workfile to reflect new control interval 
numbers for reassigned CINs. 


Verify aliases for nonVSAM and GDG 
associations. 

Verify associations for clusters. 

Verify initial space claims. 

Verify associations on a set of records. 
Verify associations for alternate indexes. 
Verify associations for PATHSs. 

Verify associations for users catalogs. 
Verify the alias chain. 

Contains procedures for controlling space. 


Establish base record offsets for catalog low key 
range records. 


Compare bits in the bit map. 


Check a data set directory entry against a data or 
index component. 


Check extents for unique data spaces. 
Get a free entry in tables for ASSOC procedure. 


Translate an index into a table into a virtual 
address. 


Get and initialize a table for ASSOC procedure. 
Mark a volume group occurrence (VGO) unusable. 
Resolve space conflicts. 


Check space conflicts for data or index type catalog 
entries. 


Verify associations for GDG base records. 


Verify space requested from objects being reset 
against non-reset volumes. 


Verify space requested from objects being reset 
against reset volumes. 


Volume consistency routine. 
Performs field management processing. 
Delete a group occurrence. 


Locate requested information from a set of catalog 
records. 


Modify a group occurrence. 
Association processing. 

Add a true name to the catalog. 
Prepare for update CRA processing. 
Add an entry to the reset volume table. 


Add an entry to the volume serial table. 
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CSECT/Load 
Module Name 


IDCRS06 


IDCRSO7 


IDCSAO! 


IDCSA02 


Label 
CKERR 
CRAUPCHN 


DELTN 
ENTNMCK 


GENNAME 
GETVIA 


SCNRLST 
SCNVLST 


DSCLOSE 
DSOPEN 
RECMGMT 
WFDEF 
WFEDEL 


CATEOV 
CNVTCCHH 
ENSURECI 


EOVPANCI 


EOVPCCCR 
EOVPCHAC 


EOVPRBAP 


EOVPRCCR 


EOVPWFLR 
EOVPXIO 
HVTOC 
RENAMEP 
UPDCAT 
UPDCCR 


IDCSAOI 
IDCSAS1 


PRNTERR 
GETCORE 


Use 


PR 
PR 


PR 
PR 


PR 
PR 


PR 
PR 


PR 
PR 
PR 
PR 
PR 


PR 
PR 
PR 


PR 


PR 
PR 


PR 


PR 


PR 
PR 
PR 
PR 
PR 
PR 


EP 
EP 


PR 
PR 


Description 
Print an error message. 


Add a workfile record to a specific “update CRA” 
chain. 


Delete a true name from the catalog. 


Determine if a catalog record has a valid entry 
name. 


Generate a true name. 


Get a record by control interval number via a 
specific CRA. 


Obtain the next CRA volser entry. 
Scan the list of volumes. 


Handles I/O functions: defines and deletes the 
workfile. 


Close a VSAM data set. 

Open a VSAM data set. 

Perform I/O requests. 

Define the workfile for RESETCAT processing. 
Delete the workfile. 


This module contains system dependent code 
designed specifically for RESETCAT functions. 


Extend the catalog. 
Convert CCHH or BBBB to TTnn. 


Ensure that there are enough control intervals for 
reassignment. 


Format catalog free records until the catalog is 
extended. 


Update and write the CCR. 


Get the high allocated control interval numbers for 
the Low Key Range (LKR) and High Key Range 
(HKR) of the catalog. 


Build a table of high RBA field pointers for record 
management control blocks. 


Read the catalog control record (CCR) and update 
the high allocated control intervals in the record 
management control blocks. 


Write a deleted free record to the catalog. 
Perform 1/O for the catalog. 

Process all common VTOC handler functions. 
Rename duplicate true name entries. 

Update the catalog from the workfile. 

Update the catalog control record (CCR). 


Entry and exit module for the Access Method 
Services processor. Interface between the operating 
system and the processor. Create the GDT and call 
IDCEXOlI. 


Entry point for DOS Job Control invocation. 


Entry point for subroutine call invocation. It is six 
bytes beyond IDCSAOI. 


Print an error message using EXCP. 
Issue GETVIS to allocate storage. 


Supply all system services to the remainder of the 
processor, except prologue and epilogue At each of 
the following entry points, IDCSA02 converts the 
service request to the appropriate system macros, 
and issues those macros. 
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CSECT/Load 
Module Name 


IDCSA03 


IDCSA04 


IDCSAO0S5 


IDCSA08 


IDCTPO! 


VSE/VSAM Access Method Services Logic 


Label 
IDCSACL 


IDCSALD 


IDCSADE 
IDCSAGS 


IDCSAFS 


IDCSAGP 


IDCSAFP 


IDCSATI 


IDCSACA 


IDCSASN 


COREINIT 


IDCSAS2 


IDCSAPR 
IDCSAEP 


GETCORE 
IDCSAS3 


IDCSA05 


IDCTPES 
IDCTPEA 
IDCTPER 


IDCTPRS 
IDCTPRE 


IDCTPPR 
SPACE 
REDO 
STATIC 
BLOCK 
INSERT 


EP 
EP 


EP 


EP 


EP 


EP 


EP 


EP 
PR 


DE 


EP 
EP 


PR 
DE 


EP 


EP 
EP 
EP 


EP 
EP 


EP 
PR 
PR 
PR 
PR 
PR 
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Description 
Load an executable module and branch to it 
(UCALL macro). 


Load a module but do not branch to it (ULOAD 
macro). 


Not functional in DOS/VSE. 

Get space, a request for non-pooled storage 
(UGSPACE macro). 

Free space, release pooled or non-pooled storage 
(UFSPACE macro). 


Get pool, a request for pooled storage (UGPOOL 
macro). 


Free pool, release pooled storage (UFPOOL 
macro). 


Get date and time of day by calling IDCSA05 
(UTIME macro). 


Issue the VSAM CATLG macro (UCATLG 
macro). 


Provide core dump (USNAP macro). 


Initialize an area of storage to binary zeros or 


blanks. 


Amount of storage IDCSAO2 needs. Used by 
IDCSAOL. 


Prologue and epilogue for al! routines This module 
is called at entry to and exit from all other modules. 


Prologue entry point, acquire storage. 


Epilogue entry point (UEPIL macro), release 
storage. 


Get requested amount of storage. 


Amount of storage IDCSA03 needs Used by 
IDCSAOL. 


Phase table containing load status information of 
other phases. Used by the System Adapter. 


Get date and time of day (invoked by IDCSAQ02). 
Only entry point to this module. 

Acquire control of a resource. Release control of a 
resource. 


Text Processor: provide formatting for printed 
output. Each of the following entry points 
represents a service provided by the Text Processor. 
This module includes all conversion routines and 
controls the printing of each line of output text. 


Establish a PCT from static text (UESTS macro). 
Establish a PCT from storage (UESTA macro). 


Establish linkage to error message processor 
(UERROR). 


Modify an existing PCT (UREST macro). 


Re-initialize Text Processor for the next function 
(URESET macro). 


Print one or more lines (UPRINT macro). 
Set up line spacing. 

Initiate replication. 

Set up static text. 

Set up block data. 


Routine to insert data into predefined format, or 
use static text when an insert is missing and default 
data is called for. 
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CSECT/Load 
Module Name 


IDCT P04 


IDCTPO5 


IDCT P06 


IDCTSALO 
IDCTSBIO 

IDCTSDEO 
IDCTSDLO 
IDCTSEXO 
IDCTSIOO 

IDCTSLCO 
IDCTSLC1 
IDCTSLRO 
IDCTSLRI 
IDCTSM PO 


IDCTSPRO 


IDCTSRCO 


Label 
CONVERT 
BHCONV 


BHDCONV 
EBCDIC 


PUPCONV 


BDCONV 


IDCTPS|! 
ERROR 
STACKPUT 


LINERET 
LINEPRT 


IDCT P04 
ESTSCONT 
ESTACONT 


PO4SETUP 
RESTCONT 


PCTSETUP 
RESETCON 


INITPCT 
STACKFL 


IDCTPOS 


IDCTP06 


Use 


PR 
PR 


PR 
PR 


PR 


PR 


DE 
PR 


PR 


PR 
PR 


EP 
PR 
PR 


PR 
PR 


PR 
PR 


PR 
PR 


EP 


EP 


Description 


Converts data and sets it into the print line. 


Convert binary data to hexadecimal characters or 
hex-apostrophe representation. 


Convert binary data to hex-dump format. 


Sets up transfer of EBCDIC characters to a print 
line. 


Convert packed-decimal data to unpacked-decimal 
characters. 


Convert binary data to packed-decimal data, and 
call PUPCONV for conversion to 
unpacked-decimal characters. 


Amount of storage IDCTPOI needs. Used by 
IDCSAOL. 


Process error condition. 


Buffers data lines. Does a UPUT on the line when 
the stack is full, a message is to be printed, or the 
print file is changed. 


Returns formatted lines to the caller. 


Controls title lines, headings, spacing; translates 
data lines; and calls STACKPUT. 


Initialize and modify PCT; set up all page controls, 
define headings and footings, and define format of 
page. 

Only entry point to this module. 

Get space for PCT and initialize it (UESTS macro). 


Get space for PCT and initialize it from storage 
parameters (UESTA macro). 


Set up working table for PCT initialization. 


Initialize working table for modifying existing PCT 
(UREST macro). 


Verify and initialize elements of PCT. 


Re-initialize Text Processor for next function, 
return page number, and clear PCT. 


Get and initialize PCT. 
Print lines in stack buffer. 


Read Text Structures into storage for use by either 
IDCTPO! or IDCTPO4. 


Only entry point to this module. 

Formats error messages for any FSR. 

Only entry point to this module. 

Text Structure for ALTER messages. 

Text Structure for BLDINDEX message. 

Text Structure for DEFINE messages. 

Text Structure for DELETE messages. 

Text Structure for Executive routines messages. 
Text Structure for 1/O Adapter routines messages. 
Text Structure for LISTCAT listing. 

Text Structure for LISTCAT messages. 

Text Structure for LISTCRA listing. 

Text Structure for LISTCRA messages. 


Text Structure for IMPORT and IMPORTRA 
messages. 


Text Structure for PRINT listings and 
PRINT/REPRO messages. 


Text Structure for EXPORTRA messages. 
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CSECT/Load 
Module Name Label 
IDCTSRIO 


IDCTSRSO 
IDCTSTPO 


IDCTSTPI 


[DCTSTP6 

IDCTSUVO 
IDCTSXPO 
IDCVYOI 


IDCVYOI 

OPENPROC 

TERMPROC 
IDCXPOl 


IDCXPOl 
CLUSPROC 


DSCTPROC 
LOCPROC 


CTLGPROC 


OPENPROC 


ALTRPROC 


DELTPROC 


PUTPROC 
RECPROC 


MVDAPROC 


CONTRBL 
MORESP 


VSE/VSAM Access Method Services Logic 


Use 


EP 
PR 
PR 


EP 
PR 


PR 
PR 


PR 


PR 


PR 


PR 


PR 
PR 


PR 


PR 
PR 


Licensed Material — Property of IBM 


Description 


Text Structure for Reader/Interpreter routines 
messages. 

Text structure for RESETCAT messages. 

Text Structure for Text Processor routines; contains 
print chain definitions. 

Text Structure for Text Processor routines 
messages, 

Text Structure for VERROR messages. 

Text Structure for any routine (universal messages). 
Text Structure for EXPORT messages. 

VERIFY FSR; check a VSAM data set against its 
catalog entries and correct any discrepancies that 
may be found, by calling IDCIOVR (UVERIFY 
macro). 

Only entry point to this module. 

Opens the VSAM data set to be verified. 

Closes the VSAM data set that was verified. 


EXPORT FSR; create a portable copy of a VSAM 
cluster or alternate index. Copy is done by issuing a 
UCOPY macro. When the input data set is a 
catalog, no copy is performed. Instead, the catalog 
is disconnected by a call to IDCSACA. 


Only entry point to this module. 


Gets catalog information and data for a cluster 
object and calls CONTRBL to write all the 
information to a portable volume. Processes the 
disposition options, If it is a permanent option, the 
cluster will be deleted. If it is a temporary option, 
the temporary export flag is turned on by issuing a 
catalog alter. 

Disconnects a user catalog. 

Builds a CTGPL and multiple CTGFLs for use by 


catalog locate. CTGFLs used to locate catalog 
information to be exported. 


Invokes the VSAM catalog management to perform 
the operation indicated in the CTGPL. 


Performs all opens required for opening a VSAM 
cluster for input or opening the portable volume for 
output. 


Constructs the CTGPL and CTGFYV for a catalog 
alter operation so that the data set attributes catalog 
field (DSATTR) can be modified. 


Constructs a CTGPL for a catalog delete operation 
so that a cluster or alternate index can be deleted or 
a user catalog disconnected. Invokes VSAM 
catalog management to delete clusters or alternate 
indexes. 


Writes a catalog record to the portable volume. 


Copies the data from the VSAM cluster to be 
exported to the portable data set, record by record. 


Copies data from one part of virtual storage to 
another or, optionally, zeros out part of virtual 
storage. 


Writes catalog information to a portable volume. 


Obtains a larger work area for VSAM catalog 
management and reinvokes catalog. 
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Chapter 5: Data Areas 


The data areas in this chapter are described in four columns, which are 
interpreted as follows: 


Offset: The numeric address of the field relative to the beginning of the area. 
The first number is the offset in decimal, followed (in parentheses) by the 
hexadecimal equivalent. 


Bytes and Bit Pattern: The size (number of bytes) of the field and its align- 
ment relative to the fullword boundary. A v indicates variable length. 


Examples: 
4 A four-byte field beginning on a word boundary. 


iad A three-byte field beginning on a halfword boundary and 
running into the next word. 


This column also shows the bit patterns of a byte when they are significant 
(as in a flag byte). When the column is used to show the state of the bits (0 
or 1) in a flag byte, it is shown as follows: 


sedis The eight bit positions (0-7) in a byte. For ease of scanning, 
the high-order (leftmost) four bits are separated from the 
low-order four bits. 


| cree A reference to bit 0. 

ae Bit 0 is on. 

Oss. Sets Bit 0 is off. 

sites XX A reference to bits 6 and 7. 


Bit settings that are significant are shown and described. Bit settings that 
are not shown are considered to be reserved and set to zero. 


Field Name: A name that identifies the field and appears in the assembly 
listings. A sub-field or value name is indented from the field’s name. An * 
indicates the field is not named. 


Description: Content, Meaning, Use: A description of the use of the field. 
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Block List (BLKLIST) 


Licensed Material — Property of IBM 


The Block List contains addresses and offsets for each data block to be used 
by the text processor block data routine when one more than one data block 
is required. 


Created by Modified by Used by Size 
Calling routine IDCTPO1 IDCTPO1 Variable 
Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 8Xn BLKLARY The following fields are repeated n times, 


where n equals the number of data blocks 
being used. The FMTBLKNO field of a 
block data format list is used as the index 
into this array. 


2 BLKLRIO Offset to add to all offsets contained in 
block-format sub-structures. 
2 (2) oe BLKLILP Length of block whose address is in 
BLKLPTR. 
4 (4) 4 BLKLPTR Address of a block of data. 


Buffer Pool Control Block (BUFS) 


The Buffer Pool Control Block is used by EXPORTRA to control I/O 
buffers. It is passed from IDCRCO1 through field management (IDCRC04) 
to IDCRC03. 

Created by Modified by Used by Size 

IDCRCOI IDCRC03 IDCRC03 28 


Buffer Pool Control Block Description 


Command Descriptor 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 4 BUFPOOL Address of first buffer. 
4 (4) 4 BUFPL Address of chain of buffers. 
8 (8) 4 BUFIOCS Address of the IOCSTR. 
12 (C) 4 BUFGDT Address of the GDT. 
16 (10) 4 BUFCTT Address of the CTT 
20 (14) 4 BUFWKARA Address of the work area. 
24 (18) 2 BUFSIZE Size of buffer pool. 
26 (1A) 2 BUFSWS Indicator Flags. 
base BUFORMAT 1=Buffer pool formatted 
0=Buffer pool not formatted 
XXX XXXX - Reserved. 
XXXX XXXX : Reserved. 


There is a Command Descriptor for each verb supported by this processor. 
The Command Descriptor is a load module that contains directions for 
parsing the command, performing semantic checking, and building an FDT 
from the commands. The name of the load module for each verb is found in 
a directory, which is itself a load module named IDCRILT. IDCRILT is 
loaded upon the first entry to IDCRIO1. 


The name of each load module and the corresponding verb, as supplied by 
IBM, is as follows: 


IDCCDAL ALTER IDCCDRC EXPORTRA IDCCDPM PARM 
IDCCDBI BLDINDEX IDCCDMP IMPORT IDCCDPR PRINT 
IDCCDCL CANCEL IDCCDRM IMPORTRA IDCCDRP REPRO 
IDCCDDE DEFINE IDCCDLC LISTCAT IDCCDRS RESETCAT 
IDCCDDL DELETE IDCCDLR LISTCRA IDCCDVY VERIFY 


IDCCDXP EXPORT 
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Verb Data Area 


Positional Parameter Appendage 


Each Command Descriptor consists of a series of variable-length entries. The 
first entry is always the verb-data entry, which names the FSR load module 
to use. Subsequent entries define default values, syntactic and semantic 
requirements, the structure of all possible parameters, and the structure of the 
FDT to be built from this command. 


Created by 
IBM-Supplied 


Modified by 


None 


Used by 


IDCRIO1 


Size 


Variable 


A Command Descriptor always begins with the Verb Data Area. This data 
area names the FSR for this command, gives the total number of parameters, 
and provides offsets to other data areas in the Command Descriptor. 


Offset 
0(0) 


4(4) 


6(6) 


6(6) 


10(A) 


12(C) 


20(14) 


21(15) 


22(16) 


23(17) 


Bytes and 
Bit Pattern 


4 


Field Name 
DESCID 


PCLDSPLI 


VDATALEN 


PARMCNT 


MAXID 


LOAD NAME 


POSDSPL 


DGRPDSPL 


VNGRPDSP 


NTGRPDSP 


Description: Content, Meaning, Use 


Descriptor identification, contains the 
last four letters of the Command De- 
scriptor module name. For example, 
‘CDAL’ for the Alter Command Descrip- 
tor, IDCCDAL. 


Not used in VSE. 


Number of halfwords in Verb Data Area 
(used to compute the address of the first 
Parameter Data Area). 


Number of Parameter Data Areas in this 
Command Descriptor. 


Largest parameter ID number that is 
used in this Command Descriptor. 


Load module name of FSR that 
processes this command. 


Number of halfwords from the beginning 
of the Verb Data Area to Positional Par- 
ameter appendage of the Verb Data 
Area. 


Number of halfwords from the beginning 
of the Verb Data Area to Default Param- 
eter appendage of the Verb Data Area. 


Number of halfwords from the beginning 
of the Verb Data Area to Needed Param- 
eters appendage of the Verb Data Area. 


Number of halfwords from the beginning 
of the Verb Data Area to Incompatible 
Parameters appendage of the Verb Data 
Area. 


This appendage contains the parameter ID number of each positional param- 
eter that is not a subparameter of other parameters. This appendage may 
follow the Verb Data Area or any Verb Data Area appendage. 


Offset 
0(0) 
2(2) 


Bytes and 
Bit Pattern 


2 


2xn 


Field Name 
VPOSCNT 
VPOSIDn 


Description: Content, Meaning, Use 
Number, 7, of ID numbers thai follow: 


List of ID numbers for positional 
parameters. 
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Default Parameter Appendage 


Needed Parameters Appendage 
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This appendage contains the parameter ID number of each default parame- 
ter. The parameter IDs are grouped into arrays. The first parameter in each 
array is the default if none of the parameters in that array is supplied in the 
command. This appendage may follow the Verb Data area or any Verb Data 
Area appendage. 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0(0) 2 DGRPTOT Number of arrays that follow. 
Each array contains: 
2 DGRPCNT Number, n, of ID numbers that follow: 
2xn DGRPIDn List of ID numbers. 


This appendage contains the parameter ID number of any necessary parame- 
ter that is not a subparameter of another parameter. The parameter IDs are 
grouped into arrays. At least one of the parameters in each array must be 
supplied through the command. This appendage may follow the Verb Data 
Area or any Verb Data Area appendage. 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0(0) 2 VNGRPTOT Number of arrays that follow: 
Each array contains: 
2 VNGRPCNT Number, 2, of ID numbers that follow: 
2xn VNGRPIDn List of ID numbers. 


Incompatible Parameters Appendage 


This appendage contains the parameter ID numbers for each parameter in 
groups of incompatible parameters. The parameter IDs are grouped into 
arrays. Only one parameter in each array may be supplied through the 
command. 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0(0) 2 NTGRPTOT Number of arrays that follow: 
Each array contains: 
2 NTGRPCNT Number, n, of ID numbers that follow: 
2xn NTGRPIDn List of ID numbers. 
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Parameter Data Area 


No Constant Appendage 


The Parameter Data Area follows the Verb Data Area, and describes the 
syntax and subparameters of a parameter. Usually there is one Parameter 
Data Area for each parameter. However, one Parameter Data Area can 
describe several parameters if the parameters have the same syntax and data. 


Bytes and 
Offset Bit Pattern 
0(0) l 
1(1) 3 
4(4) l 
5(5) l 
6(6) l 
7(7) l 
8(8) l 
9(9) 1 
10(A) l 
11(B) l 


Field Name 
PDEFLEN 


OCCURNUM 


IDDSPL 


KWDDSPL 


NOTDSPL 


NGRPDSPL 


PDEDSPL 


KWDGRPID 


" 


FLAGS 
SCLRDATA 


LEVEL! 
REPEATED 
SCALAR 
LIST 
DEFAULT 


SUBLIST 


Description: Content, Meaning, Use 


Number of halfwords in this Parameter 
Data Area including appendages. 


Number of times this parameter can be 
repeated in the command. 


Number of halfwords from the beginning 
of this Parameter Data Area to the ID 
Appendage. 


Number of halfwords from the beginning 
of this Parameter Data area to the Key- 
word Appendage. 


Number of halfwords from the beginning 
of this Parameter Data area to the Con- 
flicting Parameters Appendage. 


Number of halfwords from the beginning 
of this Parameter Data area to the Neces- 
sary Parameters Appendage. 


Number of halfwords from the beginning 
of this Parameter Data area to the 
Prompt Appendage. 


Not used in VSE. 
Reserved. 


Flags: 

Indicates the user supplies data with this 
parameter. 

Indicates this parameter is not a 
subparameter. 

Indicates the user may repeat the 
subparameters of this parameter. 
Indicates the user supplies a single 
constant with this parameter. 

Indicates the user may supply several 
“like” constants with this parameter. 
Indicates this parameter has a default 
value. 

Indicates this parameter has subparame- 
ters. 

Reserved. 


This appendage follows the above section if the parameter has subparame- 
ters. In other words, if SUBLIST=1, this appendage immediately follows the 
FLAGS field described above. 


Bytes and 
Offset Bit Pattern 
12(C) 2 
14(E) l 
15(F) l 


Field Name 
PCLDSPL2 
SUBDSPL 


REPMAX 


Description: Content, Meaning, Use 
Not used in VSE. 


Number of halfwords from the beginning 
of this Parameter Data Area to the Sub- 
parameter Appendage. 


Maximum times this parameter’s 
subparameters may be repeated in the 
command. 
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Constant Appendage 
follows the FLAGS field described above. 
Bytes and 
Offset Bit Pattern 
12(C) 4 
16(10) 4 
20(14) 1 
21(15) | 
22(16) 1 
23(17) | 
Dees ‘sake 
shies 
sollran 
ee ee 
al; 
eae x 
Default Data Appendage 
Bytes and 
Offset Bit Pattern 
24(18) l 
25(19) y 
ID Appendage 
Parameter Data appendage. 
Bytes and 
Offset Bit Pattern 
0(0) 2 
Each set contains: 
2 
2 
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This appendage follows the basic Parameter Data area if the parameter has 
constants. In other words, if SCLRDATA= 1 this appendage immediately 


Field Name 
HIVALUE 


LOWVALUE 


MAXLNGTH 


LISTMAX 


* 


CFLAG 
NUMBER 
ANYSTRNG 


DSNAM 
GENERIC 
VOLID 


USERID 
PWORDOPT 


Description: Content, Meaning, Use 


The greatest value a number constant 
may have. 


The least value a number constant may 
have. 


The maximum length of the constant 
after any conversion. 


Maximum number of times this constant 
may be repeated in a list of subparame- 
ters. 


Reserved. 


Flags: 

Indicates the constant is a number. 
Indicates the constant is a character 
string. 

Indicates the constant is a data set name. 
Not used in VSE. 

Indicates a volume serial number may 
replace a data set name. 

Not used in VSE. 

Indicates the character string or data set 
name may be followed by a password. 
Reserved. 


This appendage follows the Constant Appendage if the parameter data has a 
default constant. In other words, if DEFAULT=1, this appendage immedi- 
ately follows the CFLAGS field described above. 


Field Name 
DEFLTLEN 
DEFLTVAL 


Description: Content, Meaning, Use 
Length of following field. 


Default constant as it would appear in 
the command. 


This appendage contains the offset from the beginning of the primary Param- 
eter Data List, PDL, to the Parameter Data Entry, PDE, for each parameter 
this Parameter Data Area describes. This appendage may follow any other 


Field Name 
IDCOUNT 


IDNUM 
PDEOFST1 


Description: Content, Meaning, Use 


Number of sets of two fields that follow. 
There is a set of fields for each parame- 
ter. 


Parameter ID number. 


Not used in VSE. 


Licensed Material — Property of IBM 


Keyword Appendage 


This appendage contains every keyword for each parameter this Parameter 
Data Area describes. This appendage may follow any other Parameter Data 
appendage. 


Bytes and 

Offset Bit Pattern Field Name Description: Content, Meaning, Use 

0(0) l KWDCOUNT Number of sets of fields that follow. 
There is a set of two fields for each key- 
word. 

Each set contains: 

0(0) l KWDLEN Length of the following keyword. 

(1) v KWDITEM Keyword. 


Conflicting Parameters Appendage 


This appendage contains the parameter ID of each parameter tha may not 
appear with the parameters this Parameter Data Area describes. This ap- 
pendage may follow any Parameter Data appendage. 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0(0) 2 NOTCOUNT Number n of parameter IDs that follow. 
2(2) 2xn NOTIDn List of IDs of conflicting parameters. 


Necessary Parameters Appendage 


Prompt Appendage 


This appendage contains the parameter IDs of parameters that must appear 
with the parameters this Parameter Data Area describes. The parameters are 
grouped into arrays. One parameter in each array must appear. This append- 
age may follow any other Parameter Data appendage. 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0(0) 2 NGRPTOT Number of arrays that follow: 
Each array contains: 
0(0) 2 NGRPCNT Number, 1, of ID numbers that follow. 
2xn NGRPIDn List of parameter ID numbers for 


necessary parameters. 


This appendage, although it can be present in VSE, is not used. It contains 
an offset from the beginning of the prompt PDL to the PDE for prompting 
information needed by parameters this Parameter Data Area describes. This 
appendage may follow any other Parameter Data appendage. 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0(0) 2 PDECNT Number of sets of fields that follow. 
Each set contains: 

2 PDEPRMID Not used. 

2 PDEPCLID Not used. 

2 PDEOFST2 Not used. 
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Subparameter Appendage 


Licensed Material — Property of IBM 


This appendage contains all the subparameter IDs. This appendage may 
follow any other Parameter Data appendage. 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0(0) 2 SUBCOUNT Number of sets of fields that follow. 
There is a set of two fields for each sub- 
parameter. 
Each set contains: 
2 PARMTYPE Identifies this subparameter as position- 
al, ‘P’, or keyword, ‘K’. 
2 SUBID Subparameter ID. 


Command Descriptor Phase Table—IDCRILT 


IDCRILT contains a table of all verbs accepted by the processor and the 
Command Descriptor phase names that are required to parse them. 


Created by Modified by Used by Size 
IBM-Supplied None IDCRI02 258 
Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0(0) 2 LNAMECNT Number of table entries. 
2(2) 16xXn n table entries. 
8 TBIVERB Verb character string. 
8 TBILNAME Corresponding Command Descriptor 
phase name. 
16xn 8 FFFF End-of-table indicator (set to C‘FF ’). 


CRA Access Parameter List 


The CRA Access Parameter List provides VSAM catalog management with 
information necessary to access the CRA as a catalog. It is pointed to by the 
ACB when the UCRA bit in the ACB is on for the OPEN of a CRA by 
EXPORTRA. The CRA Access Parameter List consists of three control 
blocks. The ACB points directly to the ACC (Access Method 
Services/Catalog Communication Table) which in turn points to the CTT 
(CRA Access Translate Table) and the VTT (CRA Volume Timestamp 
Table). 


Created by Modified by Used by Size 
IDCRCO! None VSAM Catalog Variable 
Management 


Access Method Services/Catalog Communication Table (ACC) Description 


Bytes and 

Offset Bit Pattern Field Name Description: Content, Meaning, Use 

0 (0) 4 ACCTRANT Address of the CRA Access Translate 
Table (CTT). 

4 (4) l * Reserved. 

5 (5) 3 ACCDSNCI Control Interval number used when 
LOCATESs are performed via true names. 

8 (8) 4 ACCVOLTT Address of the Volume Timestamp 
Table. 
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CRA Access Translate Table (CTT) Description 


CRA Volume Timestamp Table (VTT) Description 


Dump List 


Individual Field Entry 


Offset 
0 (0) 
4 (4) 


Offset 
0 (0) 
4 (4) 


Bytes and 
Bit Pattern 


4 
4xn 
l 

3 


Bytes and 
Bit Pattern 


Field Name 
CTTENTNO 
CTTENTRY 
CTTENTYP 
CTTCATCI 


Field Name 

VTTENTNO 
VTTENTRY 
VTTVOLSR 


VTTTMSTP 


Description: Content, Meaning, Use 
Number of entries in the table. 
Variable number (n) of 4-byte entries. 
Type of CRA record. 


Catalog control interval number of the 
CRA control interval for this entry. 


Description: Content, Meaning, Use 
Number of entries in the table. 
Variable number (n) of 14-byte entries. 


Volume serial number for the timestamp 
of this entry. 


The timestamp that is in the format 4 
label on this volume. 


The Dump List tells the UDUMP macro which areas to dump. The Dump 
List consists of entries that describe the individual fields. If one or more 
fields are to be repeated, they can be described as an array where each group 
of fields is an element in the array. In such cases, the array is preceded by a 
Dump List entry called an array header. The array header causes the fields to 
be repeated. The end of the Dump List is indicated by an entry called the 
dump list terminator. 


Individual entries are printed as name=data. Each field in an array is printed 
as name(n)=data. The array name is printed before the array elements. All 


arrays Start on a new line. 
Created by 
All routines 


Offset 
0 (0) 


8 (8) 
12(C) 


14 (E) 


15 (F) 


Modified by 
IDCDBOl1 
Bytes and 
Bit Pattern Field Name 
8 DMPIMNM 
4 DMPITMPT 
2 DMPITMLN 
a DMPITMTP 


Used by Size 
IDCDB02 


Variable 


Description: Content, Meaning, Use 


Name to be printed with the field. The 
name is aligned left and padded with 
blanks. 


Address of field to be dumped. 


Number of bytes to dump. For hexadeci- 
mal, bit, or character strings the number 
is from | to 256. For fixed binary, the 
number is from | to 4. 


Type of data in field: 


H Hexadecimal printed as two 
characters per byte. 


B Bit string printed as eight 
characters per byte. 


C Character printed as one 
character per byte. 


F Fixed binary printed as a signed 
number for halfwords or full- 
words or as an unsigned number 
for one or three bytes. Leading 
zeros are suppressed. 


Reserved. 
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Array Header Entry 


Dump List Terminator Entry 


Bytes and 
Offset Bit Pattern 
0 (0) 8 
8 (8) 2 
10 (A) cad 
12 (C) 2 
14 (E) nad 
15 (F) re | 

Bytes and 
Offset Bit Pattern 
0 (0) 1 


Dynamic Data List—-DARGLIST 


The dynamic data argument list describes variable data to be printed. It is 
always an argument for a print request (UPRINT macro). 
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Field Name 
DMPARYNM 


DMPARYSZ 


DMPARYIC 


DMPARYEX 


DMPARYTP 


Field Name 
DMPTRM 


Created by Modified by 
Calling routine None 
Bytes and 
Offset Bit Pattern Field Name 
0 (0) 4 DARGDBP 
4 (4) 4 DARGRETP 
8 (8) 4 DARGSTID 
Each DARGSTID contains: 
3 DARGSMOD 
ce | DARGSENT 
12 (C) 2 DARGILP 
14 (E) ae DARGCNT 
16 (10) 2 DARGRETL 
18 (12) re | DARGIND 
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Description: Content, Meaning, Use 


Name to be printed at the start of the 
array. The name is aligned left and pad- 
ded with blanks. 


Number of bytes in each input element 
of the array. The number can be from | 
to 32,767. 


Number of following individual items 
that are in the array. The number can be 
from | to 32,767. 


Number of times to repeat the individual 
fields. The number can be from | to 99. 


Array header type—contains A. 


Reserved. 


Description: Content, Meaning, Use 


End of dump list indicator—contains 
X‘FF’. 


Used by Size 
IDCTPO1 Variable 


Description: Content, Meaning, Use 


Contains the address of the block of data, 
the address of the BLKLIST, or zero. 


Zero if printing is to occur; nonzero if no 
printing is to occur. If nonzero, contains 
the address of the area in which the for- 
matted print lines are to be returned from 
the Text Processor (and not printed). 
Data will be returned to the specified lo- 
cation. The data is truncated to the 
length (DARGRETL) of the provided 
area if necessary. Spacing control char- 
acters are not returned. 


Zero if a format list is also passed as a 

parameter. If nonzero, contains the Text 
Structure identification (STID) for static 
text element to be used as the format list. 


Last three characters of the text-structure 
module name. 


Static text entry. 


Length of block whose address is in 
DARGDBP. 


Number of insert and replication 
elements contained in DARGARY. 


Length of the return-data area (that is, 
DARGRETP). 


Offset to add to the print column in the 
format list (FMTOCOL). 
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Offset 
19 (13) 


20 (14) 


Bytes and 
Bit Pattern 


Jl 


Error Conversion Table—ERCNVTAB 


The Error Conversion Table is passed whenever a UERROR macro is issued. 
It contains the information necessary to convert numeric error codes into 
prose messages. 


Created by 
All routines 


Offset 
0 (0) 


1 (1) 


2 (2) 


3 (3) 
4 (4) 
8 (8) 
12(C) 


16 (10) 


Field Name 


DARGFLGS 


DARGBPL 


DARGFUL 


DARGARY 


DARGINS 
DARGREP 
DARGINL 


DARGPCT 


DARGDTM 


Modified by 


| None 
Bytes and 


Bit Pattern 


Field Name 
ERTYPE 
ERCATLG 
EROSCAT 
EROPER 


ERCATLC 
ERCATDE 
ERCATDL 
ERCATAL 
EROSOPER 


ERDSNM 


ERCATRC 


Description: Content, Meaning, Use 
DARGLIST flags: 


DARGDBP contains the address of the 
BLKLIST, which contains addresses of 
multiple data blocks. 


DARGDBP contains the address of a 
single data block referred to by the for- 
mat list. 


Output recordsize is greater than 32K. 
Reserved. 


Group array. The following fields are 
repeated n times, where nn = 
DARGCNT. 


Insert reference number. 

Replication reference number. 

Input data length of the field pointed to 
by DARGDTM. 

Replication count, number of times to 
replicate a series of format substructures 
(FMTLIST). 

Dynamic data pointer, address of field to 
use for this insert. This field is not used 
for replication structures. 


Used by Size 
IDCTP06 32 


Description: Content, Meaning, Use 
Type of error code to be converted. 
VSAM Catalog management error. 
OS/VS Catalog error. Not used in VSE. 


VSAM Catalog operation being 
performed when error occurred. Only 
one operation type allowed per UER- 
ROR invocation. 


CMS Locate. 
CMS Define. 
CMS Delete. 
CMS Alter. 


OS/VS Catalog operation being 
performed. Not used in VSE. 


Reserved. 
Reserved. 
Reserved. 


Address of data set name or volume 
serial number associated with the Cata- 
log Management request. The data set 
name is contained in a 44 byte field pad- 
ded with blanks; the volume serial num- 
ber is contained in a 44 byte field padded 
with binary zeros. 


VSAM Catalog Management return 
code. 
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Offset 
20 (14) 


24 (18) 
28 (1C) 


Bytes and 
Bit Pattern 


4 


4 
4 


Field Name 
ERCPLPT 


Field Management Parameter List—FMPL 


The Field Management Parameter List is passed whenever module IDCRC04 
is called within EXPORTRA and LISTCRA. It contains information and 
pointers which enable IDCRC04 to extract data from records within the 


catalog or CRA. 
Created by Modified by 
IDCRCO1 IDCRC04 
IDCLRO! 

Field Management Parameter List Description 

Bytes and 

Offset Bit Pattern Field Name 
0 (0) I FMPLFLNO 
1 (1) 3 FMPLBCIN 
4 (4) 4 FMPLGRTN 
8 (8) 4 FMPLWKAR 
12 (C) 4 FMPLUPTR 
16 (10) l FMPLRTCD 
17 (ll) 5 ‘ 
18 (12) ae FMPLENTH 
20 (14) 4 FMPLOAR 
24 (18) 4xn FMPLFMFL 


Field Management Field List (FMFL) Description 
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Offset 
0 (0) 


1 (1) 
2(1) 
3(1) 


4 (4) 
8 (8) 

12 (C) 
16 (10) 
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Bytes and 
Bit Pattern 


I 


Al 

an 

sil 

XXXX XXX. 


8xn 


Field Name 
FMFLDLNO 


FMFLTSTC 
FMFLGRPC 
FMFLINDS 


FMFLSUCC 


FMFLWKAR 
FMFLDNAM 
FMFLTCHN 
FMFLDATA 


FMFLENTH 
FMFLADDR 
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Description: Content, Meaning, Use 


Address of Catalog Parameter List 
(CTGPL) issued that resulted in error 
condition. 


Reserved. 
Reserved. 


Used by Size 
IDCRC04 


Variable 


Description: Content, Meaning, Use 
Number of FMFL pointers. 


Control interval number of the base 
record. 


Address of the GET routine. 


Address of the field management work 
area. 


Value passed to user GET routine at 
Input/Output processing time. 


Return code from a call to IDCRC04. 
Reserved. 


Length of the output area provided by 
caller. 


Address or the output area. 


Array of variable number (n) of 4-byte 
FMFL pointers. 


Description: Content, Meaning, Use 


Number of length/data pairs passed by 
caller. 


Compare test condition code. 

Field group code supplied by caller. 
FMEL indicator flags. 

Reserved. 


Bit indicating success of test. O=test is 
successful. 1=test is unsuccessful. 


Work area for field management. 
Pointer to 8-byte field name. 
Address of next test FMFL. 


Variable number (n) of Length/Data 
pointer pairs. 


4-byte length of supplied data. 
4-byte address of supplied data. 
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Format List—FMTLIST 


The format list defines the format of printed output. This list consists of 
several substructures, each identified by its flag byte. Format lists exist in the 
Text Structures, where they are referenced by STID numbers (Static Text 
Identifiers). Optionally, they may be passed as an argument of the UPRINT 
macro, in which case the DARGLIST argument does not furnish a STID. 


Spacing 


Insert Data 


Created by 
Calling routine 


Bytes and 
Offset Bit Pattern 


0 (0) 1 


Modified by 
None 


Field Name 


FMTFLGS 
FMTEOLF 
FMTSCF 
FMTIDF 
FMTBDF 
FMTREPF 
FMTSTF 
FMTDFF 
FMTHDF 


Used by Size 
IDCTP91 


Variable 


Description: Content, Meaning, Use 


Flags: 

End of structure. 
Space control. 
Insert data. 
Block data. 
Replication. 
Static text. 
Default data. 
Header line. 


Interpretation of each substructure of the format list depends on the value of 
FMTFLGS. Each of the possible substructures is shown below. 


The spacing substructure of the format list specifies the line spacing or 
carriage control to use while printing. The default spacing is used only when 
a line is not immediately preceded by a spacing substructure. A spacing 
substructure imbedded in an entry causes printing of the previously format- 


ted data and signals the start of a new line. 


Bytes and 
Offset Bit Pattern 
0 (0) l 
1 (1) id 
2 (2) see 
4 (4) l 
5 (5) Jl 


Field Name 
FMTFLGS 


* 


FMTSPF 


FMTSPT 


Description: Content, Meaning, Use 
Flag byte: X‘40’. 
Reserved. 


Space factor: if FMTSPT is equal to “A”, 
this is the absolute line number to use for 
printing this line. If FMTSPT is equal to 
“R”, this is the number of spaces to take 
before printing. Page overflow results in 
printing on the first line of the next page. 


Spacing type: “A” signifies absolute line 
number in FMTSPF, and “R” signifies 
relative line number. “E” signifies page 
eject. 


Reserved, 


The insert-data substructure refers to data defined in the dynamic data 
argument structure, and identified by reference number. This represents 
variable data to be inserted into the printed line. 


Bytes and 
Offset Bit Pattern 
0 (0) l 
1 (1) | 
2 (2) ton 


Field Name 
FMTFLGS 


FMTBLKNO 


FMTRFNO 


Description: Content, Meaning, Use 
Flag byte: X‘20’ or X‘A0’. (X‘A0’ also 
denotes end-of-structure.) 

Block number (starting with 0). This 
value is used as the index into the 


BLKLIST array for more than one data 
block. 


Insert reference number: identification 
number for dynamic data insert that de- 
fines the input data to be used for for- 
matting. 


Chapter 5: Data Areas 5-13 


Offset 
4 (4) 
6 (6) 


8 (8) 


10 (A) 


11 (B) 


Default Text 


5- 14 


Bytes and 
Bit Pattern 


2 


Field Name 


* 


FMTOCOL 


FMTOLEN 


FMTCNVF 


FMTBH 
FMTBHA 
FMTBHD 


FMTBD 
FMTPU 


FMTCNVF 
FMTZS 


FMTAL 


FMTSS 
FMTBS 


FMTAR 
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Description: Content, Meaning, Use 
Reserved. 


Print line column for beginning of this 
field, or (if FMTBS is equal to one) the 
offset from the column indicated by field 
PCTAPC. (PCTAPC is the last non- 
blank in the previous field.) 


Output field length. If FATOLEN is 
equal to zero or 32,767, then the full, 
converted input length is used. 


Flags to define conversion and format- 
ting to be done: 


Byte to printable, hexadecimal represen- 
tation. 

Byte to hexadecimal, preceded by X‘ and 
followed by a single quote. 

Standard dump format. FMTOCOL and 
FMTOLEN are ignored. 

Binary to unpacked decimal characters. 
Packed to unpacked decimal characters. 


Conversion flags (continued). 


Suppress leading zeros by replacing with 
blanks. 

Aligned left; the high-order nonzero digit 
is put in first print column as specified by 
FMTCOL. 

Suppress signs. 

Suppress all trailing blanks but one of 
the preceding field; add the offset in 
FMTOCOL to the value in PCTAPC for 
the print column. 

Align EDCDIC character strings to the 
right. The print column is added to the 
print field length to determine the last 
printable position. 


The default-text substructure is only used when it immediately follows an 
insert-data substructure. When examining the insert structure, the value in 
DARGINS is compared to the value in FMTRFNO. If the values are not 
equivalent, the next format structure is examined to determine whether it is a 
default structure. If the flag FMTDFF is on in this next structure, the struc- 
ture is used. In all other cases, it is skipped over. 


Offset 


0 (0) 


1 (1) 
2 (2) 
4 (4) 
6 (6) 
8 (8) 


10 (A) 


VSE/VSAM Access Method Services Logic 


Bytes and 
Bit Pattern 


1 


Field Name 


FMTFLGS 


FMTILEN 


FMTIOFF 


FMTOCOL 


FMTOLEN 


FMTCNVF 


Description: Content, Meaning, Use 
Flag byte: X‘02’ or X‘82’. (X‘82’ also 
denotes end-of-structure.) 

Reserved. 

Length of the default text. 


Offset from the beginning of the format 
structures to the default text (which fol- 
lows the format structures). 


Print line column, same as for insert 
substructure. 


Output field length, same as for insert 
substructure. 


Conversion flags, same as for insert 
substructure. 
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Block Format 


Replication 


Static Text 


The block format substructure of the format list defines a block of variable 
data from which fields are extracted for printing. 


Offset 
0 (0) 


1 (1) 


2 (2) 


4 (4) 


6 (6) 
8 (8) 


10(A) 


Bytes and 
Bit Pattern 


l 


Field Name 
FMTFLGS 


FMTBLKNO 


FMTILEN 


FMTIOFF 


FMTOCOL 


FMTOLEN 


FMTCNVF 


Description: Content, Meaning, Use 


Flag byte: X‘10’ or X‘90’. (X‘90’ also 
denotes end-of-structure.) 


Block number (starting with 0). This 
value is used as the index into the 
BLKLIST array for more than one data 
block. 


Length of the input field. If FMTILEN 
is zero or if FMTILEN is greater than 
DARGILP minus FMTIOFF, then the 
input length in DARGILP is used. 


Offset from the beginning of the input 
data block at which this field begins. The 
beginning of the data block is in 
DARGDBP. 


Print line column, same as for insert 
substructure. 


Output field length, same as for insert 
substructure. 


Conversion flags, same as for insert 
substructure. 


The replication substructure defines substructures of the format list that are 
to be repeated. The replication substructure always precedes the first sub- 
structure to be repeated. 


Offset 
0 (0) 


1 (1) 
2 (2) 
4 (4) 


6 (6) 


Bytes and 
Bit Pattern 


1 


Field Name 
FMTFLGS 


* 


FMTRFNO 


FMTRBC 


FMTRIO 


Description: Content, Meaning, Use 


Flag byte: X‘08’. (May not have 
end-of-list flag on.) 


Reserved. 
Reference number to identify the 


dynamic argument that contains the rep- 
lication count, 


Number of substructures that follow that 
are to be replicated. 


Offset to add to all offsets contained in 
block-format substructures being repli- 
cated, to access the input fields. 


The static text substructure defines data from the Text Structures to be placed 
in the printed line. 


Offset 
0 (0) 


1 (1) 
2 (2) 
4 (4) 
6 (6) 


§ (8) 


10 (A) 


Bytes and 
Bit Pattern 


l 


Field Name 
FMTFLGS 


* 


FMTSTL 
FMTSTO 


FMTOCOL 


FMTOLEN 


FMTCNVF 


Description: Content, Meaning, Use 


Flag byte: X‘04’ or X‘84’. (X‘84’ also 
indicates end-of-structure.) 


Reserved. 
Length of static text field. 


Offset to static text which follows format 
structures. 


Print line column or column offset, same 
as for insert substructure. 


Output field length, same as for insert 
substructure, 


Conversion flags, same as for insert 
substructure. 
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Function Data Table—FDT 


5 - 16 


The Function Data Table is an encoded representation of a command. The 
Reader/Interpreter parses a command and constructs the FDT from inform- 
ation found in that command. All defaults are resolved; no conflicts are 
allowed among the values of an FDT. 


The FDT is not one structure, but rather several small structures that are 
pointed to by a primary vector of addresses, called the FDTTBL. Fora 
parameter that appears in a repeated subparameter list, a secondary vector 
results. Figure 5-1 shows this vector and illustrates the various small struc- 
tures to which it points. 


The FDT primary vector, FDTTBL, is variable in length. It consists of the 
command’s verb as an 8-byte EBCDIC string, followed by a variable number 
of fullword pointers. The number of pointers depends on the specific com- 
mand. There is one pointer per parameter defined in the Command Descrip- 
tor. If a pointer is reserved or is not used because the respective parameter 
has not been specified, the pointer contains zero. 


There are seven possible data formats for FDT entries. Each type is de- 
scribed below; the data format number corresponds to the number in the 
“Data Format Number” column in the descriptions of the various FDTs. 
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Data 
Format 
Number Type 
1 = pointer 
2 character 
3 numeric 
value 
4 character 
list 
5 binary 
word list 
6 name 
7  dname/ 
password 


Sub- 
field 


Level 


— 


—, 


— peepee geet 


Subfield 
Description 


length 
value 


number of 
items in list 


for each item: 
length 
value 


number of 
items in list 


for each item: 
length 
value 


password length 
password 
asterisk 

name flag 


member name 
length 
member name 
name length 
name value 


password length 
password 
dname length 
dname 


Mode 


pointer 


binary 
character 
string 


binary 


binary 


binary 
character 


binary 


binary 
binary 


binary 
characters 
binary 

bit string 


binary 


characters 
binary 
characters 


binary 
characters 
binary 
characters 


Length 
(bytes) 


4 


l 
variable 


| 
variable 


ft. — 


BE — 


OO = OO — 
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Notes 


May point to data, 
to itself (indicating 
that the parameter is 
specified), or may 
be binary zeros 
(parameter is not 
specified), 


Not used. 

Bit 0 on = unquali- 
fied name; bit 0 off 
= qualified name. 
Unused. 


Unused. 


5-17 


5~ 18 
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Figure 5-1 shows the FDT mapping for IMPORT when the following param- 
eters are specified: 


IMPORT INFILE(SOURCE - 
ENV (PDEV(2400) BLKSIZE(6000) REWIND)) - 
OUTPW(RECPW) - 
PURGE - 
OBJECTS( - 
(EXAMPLE.KSDS1 - 
USECLASS(7 P) - 
KEYRANGES( - 
(ABBOTT GESTNER) - 
(GESTRICH MERCY) - 
(MESHING ZUBRINSKI) - 
) _ 
) = 
(EXAMPLE.KSDS1.DATA - 
NEWNAME (EXAMNEW.KSDS1.DATA) - 
VOLUMES (VSERO3,VSERO4) - 
ORDERED - 
KEYRANGES( - 
(ABBOTT MERCY) - 
(MESHING ZUBRINSKI) - 
) ~~ 
FILE(D1) - 
) -_ 
(EXAMPLE.KSDS1.INDEX - 
VOLUMES (VSERO3,VSERO4,VSERO5) - 
FILE(D2) - 
} = 
) 

The first five columns in the FDT descriptions are self-explanatory. The last 

three columns have the following meanings: 

Points to data—information supplied by the specified parameter. 
itself—address of the pointer itself if the parameter has been specified. 
list—additional information is given in the “Notes” column. 

Data Format Number corresponds to Data Format 1-7, described above. 


Notes additional information and references to subparameters of the specified 
parameter. 
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Sealy eleg ‘¢ Jo}deyy 


61-S 


suiddew Ladd LUOdWI ‘I-$ 22n3ty 


Parm. 
No. 


oOmMn Ooh wWHD 


PARAMETER 
NAME 


IMPORT 
INFILE 
OUTFILE 
OBJECTS 

object name 
NEWNAME 
FILE 

VOLUMES 
KEYRANGES 
DEVICET YPE 
ORDERED 
UNORDERED 
lowkey 

highkey 
CONNECT 
dname of INFILE 
ENVIRONMENT 
PURGE 
NOPURGE 
ERASE 
NOERASE 
BLOCKSIZE 
PRIMEDATADEVICE 
RECORDSIZE 


OUTPW 
TDLABEL 
NOLABEL 
NOREWIND 
REWIND 
UNLOAD 


CATALOG 


USECLASS 
primary 
secondary 


FDT FIELD 
NAME 


FDTVERB 
(cont). 

IN 

OUTDD 
OBJTSCNT 
OBJNMPTR 
NEWNMPTR 
OBJFLPTR 
LISTVPTR 
RANGEPTR 
DEVPTR 
ORDPTR 
UNORDPTR 
LOWKYPTR 
HIKEYPTR 
CON 

INDD 

ENV 

PRG 

NPRG 
ERAS 
NERAS 
BLKSZ 
PDEV 
RECSZE 
Unused 
OUTPW 
ISLBL 
INLBL 
INREW 
{REW 
IUNLD 
Unused 
Unused 
CAT 
Unused 
Unused 
Unused 
USCLPTR 
PUSCPTR 
SUSCPTR 


OFFSET FDOT BASE 
POINTERS 


o §6[t]m[Pyo] 
4 |R{T[b] db 


\y 


| 


12 
16 
20 
24 
28 
32 
36 
40 
44 
48 
52 


60 


 / 


68 
72 
76 


\4 


84 
88 
92 


100 
104 
108 
112 
116 
120 
124 
128 
132 
136 
140 
144 
148 
152 
156 
160 








i: 
O};O};}o “te 











; 


6) S$] O]u) 













nse | x{ajmip tle}. |k/s{ojs|1] >| 
neje[xia[m[p |ujel. [K[s{o/s[ i]. | 






~@ 10 bytes OS/VS only-—* = ~® 9 bytes OS/VS only > 





[2] o] 1] b] 6] b] b |b] 

| 2/0] 2] b] b/ b] b] |b 

| 2 felvisje[Riol3|éjvisie]rjo]a| 

| 3 [el visle[Riol3jélvisfe]riol4leivisje| rjo|s| 

















|_e——+/6ala|B fol t{ Tb! of 64 Char. Total ¢ | b{ b| b| b [b |b | 
| _ o> 8iclelsi tir i ictal [b [3 64 Char. Totald b] b| b [b [b | 
[| (7[M[ETSTHTVINIGTb [b13 64 Char. Total f[ bl d lb [b 


EATBIE[O[TIT TEED 64 cher. Torai (TOL OTS BT] 
7IMeTS[H[ TIN [Git[b]} 64 Char. Tora! {br blob | 


HFSS PTINTETR[B TER 64 char. rotat_ {To OO LTE 
[ofS )MET RICHY [oT ]b 64 Char. Total {(b/b/ bb 1b Tb, 
pet of aiz tule iRirIN]s|KTiT5 64 char. Tota {rb[b |b fo} 





z|U[BIR 
HES ETR[C Io PO] 64 char. torat (6THLB|E TELE] 
|e 1 9)Z Jul BIRT IN |S | Kj 1] ]b ff 64 Char. Total?) b] b |b |b] 


[RIC TE} b |b | 


4] 2] 410] 0] 6] 6] 8] 





Note: Pointer to itself indicates that the parameter 
has been specified, but either the parameter 
has no value {keyword only) or the values 
are provided through other subparameters of 
the current parameter. A null pointer indicates 
that the parameter was not specified. 





44 Char. Total 


lb [b |b jb [d |b] d| 
ID[A[T[A] b[, 44 Char. Total {[b {| 
44 Char. Total 1{b| 


nae |xjaimiPieje}. (k]s|o]s}a]. | iN |ojelx]b I} 


oo ale | x]A[M[Nfe [wi [K{s{o]/s[1] . [DJA[T] Alb [5 44 Char. Total 


Wa] J0 Avsadoig — [8]19)8],\] posuady’] 


ALTER FDT 

Parm Offset Parm Name Sub-Parm of 

No. 

0 (0) 

I 8 (8) entryname/ 
password 

2 12 (C) CATALOG 

3 16 (10) catname/ CATALOG 
password 

4 20 (14) dname CATALOG 

5 24 (18) NEWNAME 

6 28 (1C) FILE 

7 32 (20) unused - contains zeros 

8 36 (24) MASTERPW 

9 40 (28) CONTROLPW 

10 44 (2C) UPDATEPW 

I 48 (30) READPW 

12 52 (34) CODE 

13 56 (38) ATTEMPTS 

14 60 (3C) AUTHORIZATION 

1S 64 (40) entrypoint AUTHORIZATION 

16 68 (44) string AUTHORIZATION 

17 72 (48) unused - contains zeros 

18 76 (4C) TO 

19 80 (50) FOR 

20 84 (54) OWNER 

21 88 (58) ERASE 

22 92 (5C) NOERASE 

23 96 (60) SHAREOPTIONS 

24 100 (64) unused - contains zeros 

25 104(68) NULLIFY 

26 108(6C) MASTERPW NULLIFY 

27 112(70) CONTROLPW NULLIFY 

28 116 (74) UPDATEPW NULLIFY 

29 120 (78) READPW NULLIFY 

30 124(7C) —_ unused - contains zeros 

31 128 (80) FREESPACE 

32 132 (84) cipercent FREESPACE 

33 136 (88) capercent FREESPACE 

34 140(8C) WRITECHECK 

35 144(90) NOWRITECHECK 

36 148 (94) BUFFERSPACE 

37 152(98) ADDVOLUMES 

38 156(9C) REMOVEVOLUMES 

39 160(A0) unused - contains zeros 

40 164 (A4) INHIBIT 

41 168(A8) UNINHIBIT 

42 172(AC) OWNER NULLIFY 

43 176(B0) CODE NULLIFY 

a4 180(B4) RETENTION NULLIFY 

45 184(B8) AUTHORIZATION NULLIFY 

46 188(BC) MODULE NULLIFY, 

AUTHORIZATION 
47 192(CO) STRING NULLIFY, 
AUTHORIZATION 

48 196 (C4) = crosspartition/ SHAREOPTIONS 
value 

49 200 (C8) reserved for OS SHAREOPTIONS 

50 204 (CC) unused - contains zeros 

5-20 VSE/VSAM Access Method Services Logic 


FDT 
Fieldname 


FDTVERB 
ENTRY 


CAT 
CATLG 


CATDN 
NEWNM 
INDD 


MASTR 
CNTVL 
UPDAT 
READ 
CODNM 
ATTP 
AUTH 
USVR 
USAR 


TO 

FOR 
OWNER 
ERASE 
NERAS 
SHARE 


NULLF 
NMSTR 
NCNTV 
NUPDT 
NREAD 


FSPAC 
FSPCI 
FSPCA 
WRTCK 
NWTCK 
BUFSZ 
ADDVL 


REMVL 


INHIB 
UNHIB 
NOWNR 
NCDNM 
NRETN 
NAUTH 
NMDNM 


NSTRG 


SHARI 


SHAR2 


Points 
to 


data 


itself 
data 


data 
data 
data 


data 
data 
data 
data 
data 
data 
itself 
data 
data 


data 
data 
data 
itself 
itself 
itself 


itself 


itself 
itself 
itself 


itself 
data 
data 
itself 
itself 
data 
list 


list 


itself 
itself 
itself 
itself 
itself 
itself 
itself 


itself 


data 


data 


Data Format 


Number 
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Notes 


ALTERbbb 


See parms 3 and 4, 


See parms 15 and 16. 


See parms 48 and 49. 


See parms 26-29, 42-45, 55, and 68. 


See parms 32 and 33. 


For each item in the list, there is a list of 
volume serial numbers. 


For each item in the list, there is a list of 
volume serial numbers. 


See parms 46 and 47, 


Licensed Material — Property of IBM 


Parm 
No. 
$1 
$2 
53 
34 
$5 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 


Offset 


208 (D0) 
212 (D4) 
216 (D8) 
220 (DC) 
224 (E0) 
228 (E4) 
232 (E8) 
236 (EC) 
240 (FO) 
244 (F4) 
248 (F8) 
252 (FC) 
256 (100) 
260 (104) 
264 (108) 
268 (10C) 
272 (110) 
276 (114) 


Parm Name 


unused - contains zeros 
unused - contains zeros 
unused - contains zeros 
unused - contains zeros 
EXCEPTIONEXIT 
KEYS 

length 

offset 

RECORDSIZE 
average 

maximum 
UNIQUEKEY 
NONUNIQUEKEY 
UPGRADE 
NOUPGRADE 
UPDATE 
NOUPDATE 
EXCEPTIONEXIT 


BLDINDEX FDT 


Parm Offset Parm Name 
No. 

0 (0) 
l 8 (8) INFILE 
2 12 (C) unused - contains zeros 
3 16 (10) OUTFILE 
4 20 (14) unused - contains zeros 
5 24 (18) catname/ 

password 

6 28 (1C) WORKFILES 
7 32 (20) dname! 
8 36 (24) dname2 
9 40 (28) EXTERNALSORT 
10 44 (2C) INTERNALSORT 
ll 48 (30) INDATASET 
12 52 (34) OUTDATASET 
13 56 (38) WORKVOLUMES 
CANCEL FDT 
Parm Offset Parm Name 
No. 

0 (0) 
l 8 (8) JOB 
2 12 (C) STEP 


Sub-Parm of 


KEYS 
KEYS 


RECORDSIZE 
RECORDSIZE 


NULLIFY 


Sub-Parm of 


CATALOG 


WORKFILES 
WORKFILES 


Sub-Parm of 


FDT 
Fieldname 


EEXT 
KEY 
KEYLN 
KEYPS 
RECSZ 
AREC 
MREC 
UNQK 
NUNOQK 
UPG 
NUPG 
UPD 
NUPD 
NEEXT 


FDT 
Fieldname 


FDTVERB 
IFILE 


OFILE 


CAT 


WFILE 
WFLE! 
WFLE2 
ESORT 
ISORT 

IDS 


ODS 


WVOL 


FDT 
Fieldname 


FDTVERB 
JOB 
STEP 


Points 
to Number 


data 
itself 
data 
data 
itself 
data 
data 
itself 
itself 
itself 
itself 
itself 
itself 
itself 


O° ee Ps ee os ee ee | 


Points Data Format 
to Number 


data 7 


data 4/7 


data 6 


itself 
data 
data 
itself 
itself 
data 


QO == ae ND BH 


data 4/6 


data 4 


Points Data Format 


to Number 
itself | 
itself l 


Data Format 


Notes 


See parms 57 and 58. 


See parms 60 and 61. 


Notes 


BLDINDEX 


Count of number of dnames followed by 
the list of dname/passwords in data format 
7. 


See parms 7 and 8. 


base cluster data set name with optional 
password. 


AIX data set names with 
optionalpasswords. 


list of VOLIDs for sort word volumes 
(CHAR(6)). 


Notes 


CANCEL 
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DEFINE FDT 
Parm Offset Parm Name Sub-Parm of 
No. 
0 (0) 
l 8 (8) CATALOG 
2 12 (C) catname/ CATALOG 
password 
3 16 (10) dname CATALOG 
4 20 (14) MASTERCATALOG 
5 24 (18) USERCATALOG 
6 28 (1C) CLUSTER 
32 (20) unused - contains zeros 
36 (24) DATA 
9 40 (28) INDEX 
10 44 (2C) SPACE 
11 48 (30) NONVSAM 
12 52 (34) unused - contains zeros 
13 56 (38) unused - contains zeros 
14 60 (3C) ALTERNATEINDEX 
15 64 (40) PATH 
16 68 (44) NAME MASTERCATALOG 
17 72 (48) NAME CLUSTER 
18 76 (4C) unused 
19 80 (50) NAME NONVSAM 
20 84 (54) unused 
21 88 (58) unused 
22 92 (5C) NAME DATA 
23 96 (60) NAME INDEX 
24 100 (64) INDEXED CLUSTER 
25 104 (68) NONINDEXED CLUSTER 
26 108 (6C) MODEL USERCATALOG 
27 112 (70) MODEL CLUSTER 
28 116 (74) entryname/ CLUSTER, 
password MODEL 
29 120(78)  catname/ CLUSTER, 
Password MODEL 
30 124(7C) dname CLUSTER, 
MODEL 
31 128 (80) MODEL DATA 
32 132 (84) entryname/ DATA, MODEL 
password 
33 136 (88) catname/ DATA, MODEL 
password 
34 140(8C) dname DATA, MODEL 
35 144(90) MODEL INDEX 
36 148 (94) entryname/ INDEX, MODEL 
password 
5-22 VSE/VSAM Access Method Services Logic 


FDT 
Fieldname 


FDTVERB 
CAT 
CATLG 


CATDN 
MCAT 


UCAT 


CLST 


DATA 


INDEX 


SPACE 


ALIEN 


AIX 


PATH 
METRY 
CETRY 


AETRY 


DETRY 
IETRY 
CINDX 
CNIDX 
UMODL 
CMODL 
CENAM 


CMDCT 


CMDNM 


DMODL 
DENAM 


DMDCT 


DMDNM 
IMODL 
IENAM 


Points 
to 


itself 
data 


data 
itself 


itself 


itself 


itself 


itself 


itself 


itself 


itself 


itself 
data 
data 


data 


data 
data 
itself 
itself 
itself 
itself 
data 


data 


data 


itself 
data 


data 


data 
itself 
data 


Data Format 
Number 


CN meet CON 
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Notes 


DEFINEbbb 
See parms 2 and 3. 


See parms 16, 39, 43, 47, 51, 55, 59, 63, 73, 
75,77, 108, 113, 139, 142, 145, 148, 168, 
170, 186, 276, 279, 283, 284, 408, 433, and 
469. 


See parms 26, 149, 198-215, 218-220, 277, 
280, 285, 286, 409, 434, and 470. 


See parms 17, 24, 25, 27, 40, 44, 48, 52, 56, 
60, 64, 74, 76, 78, 81, 90, 91, 94, 100, 101, 
104, 105, 109, 114, 119, 127, 128, 133, 136, 
140, 143, 146, 161, 169, 171, 176, 177, 180, 
187, 189, 192, 221, 258, 262, 265, 266, 269, 
272, 274, 431, and 473. 


See parms 22, 31, 41, 45, 49, 53, 57, 61, 67, 
79, 84, 92, 93,97, 111, 117, 122, 129, 130, 

134, 137, 150-152, 165, 172, 173, 178, 179, 
183, 188, 190, 193, 222, 259, 263, 267, 270, 
273, 275, 278, 281, 403, 404, 437, and 475. 


See parms 23, 35, 42, 46, 50, 54, 58, 62, 70, 
80, 87, 102, 103, 106, 107, 112, 118, 131, 
132, 135, 138, 155-157, 174, 175, 191, 194, 
260, 264, 268, 271, 438, and 476. 


See parms 110, 115, 141, 144, 147, 160, 162, 
196, 407, 435, and 471. 


See parms 19, 116, 125, 126 and 282. 


See parms 195, 261, 338-402, 405, 406, 432, 
and 477. 


See parms 410-430. 


See parms 253-255. 
See parms 28-30. 


See parms 32-34. 


See parms 36-38, 
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Parm 
No. 


37 


38 
39 


41 
42 
43 


45 


47 
48 
49 
50 
$1 
52 
53 
54 
55 
56 
57 
58 
59 


61 
62 
63 


65 


67 
68 


69 


70 
1 


72 


73 
74 
75 
76 
77 
78 
19 


81 
82 


83 


85 


86 


Offset 


152 (98) 


156 (9C) 
160 (A0) 
164 (A4) 
168 (A8) 
172 (AC) 
176 (BO) 
180 (B4) 
184 (BB) 
188 (BC) 
192 (CO) 
196 (C4) 
200 (C8) 
204 (CC) 
208 (D0) 
212 (D4) 
216 (D8) 
220 (DC) 
224 (E0) 
228 (E4) 
232 (E8) 
236 (EC) 
240 (FO) 
244 (F4) 
248 (F8) 
252 (FC) 
256 (100) 
260 (104) 
264 (108) 


268 (10C) 


272 (110) 
276 (114) 


280 (118) 


284 (11C) 
288 (120) 


292 (124) 


296 (128) 
300 (12C) 
304 (130) 
308 (134) 
312 (138) 
316 (13C) 
320 (140) 
324 (144) 
328 (148) 
332 (14C) 


336 (150) 


340 (154) 
344 (158) 


348 (15C) 


Parm Name 


catname/ 
password 


dname 
MASTERPW 
MASTERPW 
MASTERPW 
MASTERPW 
CONTROLPW 
CONTROLPW 
CONTROLPW 
CONTROLPW 
UPDATEPW 
UPDATEPW 
UPDATEPW 
UPDATEPW 
READPW 
READPW 
READPW 
READPW 
CODE 

CODE 

CODE 

CODE 
ATTEMPTS 
ATTEMPTS 
ATTEMPTS 
ATTEMPTS 
AUTHORIZATION 
AUTHORIZATION 
entrypoint 


string 


AUTHORIZATION 
entrypoint 


string 


AUTHORIZATION 
entrypoint 


string 


TO 

TO 

FOR 

FOR 

OWNER 
OWNER 
OWNER 
OWNER 
SHAREOPTIONS 


crosspartition/ 
value 


reserved for OS 


SHAREOPTIONS 


crosspartition/ 
value 


reserved for OS 


Sub-Parm of 


INDEX, MODEL 


INDEX, MODEL 
MASTERCATALOG 
CLUSTER 

DATA 

INDEX 
MASTERCATALOG 
CLUSTER 

DATA 

INDEX 
MASTERCATALOG 
CLUSTER 

DATA 

INDEX 
MASTERCATALOG 
CLUSTER 

DATA 

INDEX 
MASTERCATALOG 
CLUSTER 

DATA 

INDEX 
MASTERCATALOG 
CLUSTER 

DATA 

INDEX 
MASTERCATALOG 
CLUSTER 


MASTERCATALOG, 
AUTHORIZATION 


MASTERCATALOG, 
AUTHORIZATION 


DATA 


DATA, 
AUTHORIZATION 


DATA, 
AUTHORIZATION 


INDEX 


INDEX, 
AUTHORIZATION 


INDEX, 
AUTHORIZATION 


MASTERCATALOG 
CLUSTER 
MASTERCATALOG 
CLUSTER 
MASTERCATALOG 
CLUSTER 

DATA 

INDEX 

CLUSTER 


CLUSTER, 
SHAREOPTIONS 


CLUSTER, 
SHAREOPTIONS 


DATA 


DATA, 
SHAREOPTIONS 


DATA, 
SHAREOPTIONS 


FDT 


Fieldname 


IMDCT 


IMDNM 
MMSTR 
CMSTR 
DMSTR 
IMSTR 
MCINT 
CCINT 
DCINT 
ICINT 
MUPDT 
CUPDT 
DUPDT 
IUPDT 
MREAD 
CREAD 
DREAD 
IREAD 
MCODE 
CCODE 
DCODE 
ICODE 
MATTP 
CATTP 
DATTP 
IATTP 
MAUTH 
CAUTH 
MEPNM 


MSTRG 


DAUTH 
DEPNM 


DSTRG 


IAUTH 
IEPNM 


ISTRG 


MTO 
CTO 
MFOR 
CFOR 
MOWNR 
COWNR 
DOWNR 
IOWNR 
CSHAR 
CSHR1 


CSHR2 


DSHAR 
DSHR| 


DSHR2 


Points 
to 


data 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
itself 
itself 
data 


data 


itself 
data 


data 


itself 
data 


data 


data 
data 
data 
data 
data 
data 
data 
data 
itself 
data 


data 


data 


data 


Data Format 
Number 


6 
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Ne 
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we 


Notes 


See parms 65 and 66. 
See parms 256 and 257. 


See parms 68 and 69. 


See parms 71 and 72. 


See parms 82 and 83. 


See parms 85 and 86. 
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5 - 23 


Parm 
No. 


87 
88 


89 


101 


115 


116 


117 


118 


119 


120 


121 


122 


123 


124 


125 
126 


127 
128 
129 
130 
131 
132 
133 
134 


5 - 24 


Offset 


352 (160) 
356 (164) 


360 (168) 


364 (16C) 
368 (170) 
372 (174) 
376 (178) 
380 (17C) 
384 (180) 
388 (184) 
392 (188) 
396 (18C) 
400 (190) 
404 (194) 
408 (198) 
412 (19C) 
416 (1A0) 
420 (1A4) 
424 (1A8) 
428 (IAC) 
432 (1BO0) 
436 (1B4) 
440 (1B8) 
444 (LBC) 
448 (1C0) 
452 (1C4) 
456 (1C8) 
560 (1CC) 


464 (1D0) 
468 (1D4) 
472 (1D8) 
476 (1DC) 
480 (1E0) 
484 (1E4) 
488 (1E8) 
492 (LEC) 
496 (1FO) 
500 (1F4) 


504 (1F8) 
508 (IFC) 


512 (200) 
516 (204) 
520 (208) 
524 (20C) 
528 (210) 
532 (214) 
536 (218) 
540 (21C) 


Parm Name 


SHAREOPTIONS 


crosspartition/ 
value 


reserved for OS 


ERASE 
NOERASE 
ERASE 
NOERASE 
KEYS 

length 

offset 

KEYS 

length 

offset 
REPLICATE 
NOREPLICATE 
REPLICATE 
NOREPLICATE 
IMBED 
NOIMBED 
IMBED 
NOIMBED 
FILE 

FILE 

FILE 

FILE 

FILE 
VOLUMES 
VOLUMES 


VOLUMES 
VOLUMES 
VOLUMES 
VOLUMES 
KEYRANGES 
lowkey 

highkey 
KEYRANGES 
lowkey 

highkey 


DEVICETYPES 
FILESEQUENCENO 


ORDERED 
UNORDERED 
ORDERED 
UNORDERED 
ORDERED 
UNORDERED 
SUBALLOCATION 
SUBALLOCATION 


Sub-Parm of 


INDEX 


INDEX, 
SHAREOPTIONS 


INDEX, 
SHAREOPTIONS 


CLUSTER 
CLUSTER 
DATA 

DATA 

CLUSTER 
CLUSTER, KEYS 
CLUSTER, KEYS 
DATA 

DATA, KEYS 
DATA, KEYS 
CLUSTER 
CLUSTER 
INDEX 

INDEX 
CLUSTER 
CLUSTER 
INDEX 

INDEX 
MASTERCATALOG 
CLUSTER 
SPACE 

DATA 

INDEX 
MASTERCATALOG 
CLUSTER 


SPACE 
NONVSAM 
DATA 
INDEX 
CLUSTER 


CLUSTER, 
KEYRANGES 


CLUSTER, 
KEYRANGES 


DATA 


DATA, 
KEYRANGES 


DATA, 
KEYRANGES 


NONVSAM 
NONVSAM 


CLUSTER 
CLUSTER 
DATA 
DATA 
INDEX 
INDEX 
CLUSTER 
DATA 
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FDT 
Fieldname 
ISHAR 
ISHR1 


ISHR2 


CERAS 
CNERS 
DERAS 
DNERS 
CKEY 
CKYLN 
CKYPS 
DKEY 
DKYLN 
DKYPS 
CREPL 
CNREP 
IREPL 
INREP 
CIMBD 
CNIBD 
IIMBD 
INIBD 
MINDD 
CINDD 
SINDD 
DINDD 
IINDD 
MVSER 
CVSER 


SVSER 


AVSER 


DVSER 


IVSER 


CRANG 


CRGLOPTR 


CRGHIPTR 


DRANG 


DRGLOPTR 


DRGHIPTR 


ADEVT 
AFSNO 


CORDR 
CUORD 
DORDR 
DUORD 
IORDR 
IUORD 
CSUBA 
DSUBA 


Points 
to 
itself 
data 


data 


itself 
itself 
itself 
itself 
itself 
data 
data 
itself 
data 
data 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
data 
data 
data 
data 
data 
data 
data 


data 
data 
data 
data 
data 


list of 
pointers 


list of 
pointers 


data 


list of 
pointers 


list of 
pointers 


data 

data 

itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 


Data Format 
Number 


l 
3 
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BN 
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Notes 


See parms 88 and 89, 


See parms 95 and 96. 
key length 

key offset 

See parms 98 and 99. 
key length 

key offset 


dname 
dname 
dname 
dname 
dname 
A single serial number (character 6). 


A list of volume serial numbers (character 
6). 


A list of volume serial numbers (character 
6). 


A list of volume serial numbers (character 
6). 


A list of volume serial numbers (character 
6). 


A list of volume serial numbers (character 


Count of sub-parms. See parms 120 and 
121. 


Each pointer points to 
a low keyrange value. 


Each pointer points to 
a high keyrange value. 


Count of sub-parms. See parms 123 and 
124, 


Each pointer points to 
a low keyrange value. 


Each pointer points to 
a high keyrange value. 


A list of device types (character 8). 
A list of file sequence numbers. 
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Parm 
No. 


136 


143 


147 


159 
160 
161 
162 
163 


167 


168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 


182 


183 
184 


185 


186 


Offset 


544 (220) 
548 (224) 
$52 (228) 
556 (22C) 
560 (230) 
564 (234) 
568 (238) 
572 (23C) 
576 (240) 
580 (244) 
584 (248) 
588 (24C) 
592 (250) 
596 (254) 
600 (258) 
604 (25C) 
608 (260) 
612 (264) 
616 (268) 
620 (26C) 
624 (270) 
628 (274) 
632 (278) 
636 (27C) 
640 (280) 
644 (284) 
648 (288) 
652 (28C) 
656 (290) 


660 (294) 


664 (298) 
668 (29C) 


672 (2A0) 


676 (2A4) 
680 (2A8) 
684 (2AC) 
688 (2B0) 
692 (2B4) 
696 (2B8) 
700 (2BC) 
704 (2C0) 
708 (2C4) 
712 (2C8) 
716 (2CC) 
720 (2D0) 
724 (2D4) 
728 (2D8) 


732 (2DC) 


736 (2E0) 
740 (2E4) 


744 (2E8) 


748 (2EC) 


Parm Name 


SUBALLOCATION 
UNIQUE 
UNIQUE 
UNIQUE 
TRACKS 
TRACKS 
TRACKS 
CYLINDERS 
CYLINDERS 
CYLINDERS 
RECORDS 
RECORDS 
RECORDS 
ORIGIN 
ORIGIN 
TRACKS 
CYLINDERS 
RECORDS 
primary 
secondary 
TRACKS 
CYLINDERS 
RECORDS 
primary 
secondary 
CANDIDATE 
RECORDSIZE 
RECORDSIZE 
average 


maximum 


RECORDSIZE 


average 
maximum 


WRITECHECK 
WRITECHECK 
NOWRITECHECK 
NOWRITECHECK 
WRITECHECK 
NOWRITECHECK 
WRITECHECK 
NOWRITECHECK 
SPEED 
RECOVERY 
SPEED 
RECOVERY 
FREESPACE 
cipercent 


capercent 


FREESPACE 
cipercent 


capercent 


BUFFERSPACE 


Sub-Parm of 


INDEX 

CLUSTER 

DATA 

INDEX 
MASTERCATALOG 
CLUSTER 

SPACE 
MASTERCATALOG 
CLUSTER 

SPACE 
MASTERCATALOG 
CLUSTER 

SPACE 
MASTERCATALOG 
USERCATALOG 
DATA 

DATA 

DATA 

DATA, TRACKS 
DATA, TRACKS 
INDEX 

INDEX 

INDEX 

INDEX, TRACKS 
INDEX, TRACKS 
SPACE 

CLUSTER 

SPACE 


CLUSTER, 
RECORDSIZE 


CLUSTER, 
RECORDSIZE 


DATA 


DATA, 
RECORDSIZE 


DATA, 
RECORDSIZE 


MASTERCATALOG 
CLUSTER 
MASTERCATALOG 
CLUSTER 

DATA 

DATA 

INDEX 

INDEX 

CLUSTER 
CLUSTER 

DATA 

DATA 

CLUSTER 


CLUSTER, 
FREESPACE 


CLUSTER, 
FREESPACE 


DATA 


DATA, 
FREESPACE 


DATA, 
FREESPACE 


MASTERCATALOG 


FDT 
Fieldname 
ISUBA 
CUNIQ 
DUNIQ 
IUNIQ 
MTRKS 
CTRKS 
STRKS 
MCYLD 
CCYLD 
SCYLD 
MRCDS 
CRCDS 
SRCDS 
MORIG 
UORIG 
DTRKS 
DCYLD 
DRCDS 
DTKPR 
DTKSC 
ITRKS 
ICYLD 
IRCDS 
ITKPR 
ITKSC 
SCAND 
CRSIZ 
SRSIZ 
CARSZ 


CMRSZ 


DRSIZ 
DARSZ 


DMRSZ 


MWCK 
CWCK 
MNWCK 
CNWCK 
DWCK 
DNWCK 
IWCK 
INWCK 
CSPED 
CRECV 
DSPED 
DRECV 
CFSPC 
CCIFS 


CCAFS 


DFSPC 
DCIFS 


DCAFS 


MBFSZ 


Points 
to 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
data 
data 
itself 
itself 
itself 
data 
data 
itself 
itself 
itself 
data 
data 
itself 
itself 
itself 
data 


data 


itself 
data 


data 


itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
data 


data 


itself 
data 


data 


data 


Data Format 
Number 


cr. OS SO ee een ee ee 


ee 


ee eee ee een eee Eo ee 


Notes 


See parms 300 and 301. 
See parms 302 and 303. 
See parms 304 and 305. 
See parms 310 and 311. 
See parms 312 and 313. 
See parms 318 and 319. 
See parms 320 and 321. 
See parms 322 and 323. 
See parms 324 and 325. 


See parms 153 and 154. 
See parms 330 and 331. 
See parms 332 and 333. 


See parms 158 and 159. 
See parms 334 and 335. 
See parms 336 and 337. 


See parms 163 and 164. 
See parms 251 and 252. 


See parms 166 and 167. 


See parms 181 and 182. 


See parms 184 and 185. 
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Parm 
No. 
187 
188 
189 


190 
191 


192 
193 


197 
198 
199 


201 
202 
203 
204 
205 
206 


207 


208 
209 
210 
ail 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
250 
251 


252 


253 


5 - 26 


Offset 


752 (2F0) 
756 (2F4) 
760 (2F8) 


764 (2FC) 
768 (300) 


772 (304) 
776 (308) 
780 (30C) 
784 (310) 
788 (314) 
792 (318) 
796 (31C) 
800 (320) 
804 (324) 
808 (328) 
812 (32C) 
816 (330) 
820 (334) 
824 (338) 
828 (33C) 


832 (340) 


836 (344) 
840 (348) 
844 (34C) 
848 (350) 
852 (354) 
856 (358) 
860 (35C) 
864 (360) 
868 (364) 
872 (368) 
876 (36C) 
880 (370) 
884 (374) 
888 (378) 
892 (37C) 
896 (380) 
900 (384) 
904 (388) 
908 (38C) 
912 (390) 
916 (394) 
920 (398) 
924 (39C) 
928 (30) 
932 (34) 
936 (3A8) 
940 (3AC) 
944 (3B0) 
1007 (3EF) 
1008 (3F0) 


1012 (3F4) 


1016 (3F8) 


Parm Name 


BUFFERSPACE 
BUFFERSPACE 


CONTROL- 
INTERVALSIZE 


CONTROL- 
INTERVALSIZE 


CONTROL- 
INTERVALSIZE 


DEFAULTVOLUMES 
DEFAULTVOLUMES 
DEFAULTVOLUMES 
DEFAULTVOLUMES 
ORIGIN 

unused - contains zeros 
NAME 

MASTERPW 
CONTROLPW 
UPDATEPW 
READPW 

CODE 

ATTEMPTS 
AUTHORIZATION 
entrypoint 


String 


TO 

FOR 

OWNER 

FILE 

VOLUMES 

TRACKS 
CYLINDERS 
RECORDS 

unused - contains zeros 
unused - contains zeros 
WRITECHECK 
NOWRITECHECK 
BUFFERSPACE 
RECORDFORMAT 
RECORDFORMAT 
UNDEF 

FIXUNB 

FIXBLK 

VARUNB 

VARBLK 
NOCIFORMAT 
UNDEF 

FIXUNB 

FIXBLK 

VARUNB 

VARBLK 
NOCIFORMAT 
through 

unused - contains zeros 
average 


maximum 


entryname/ 


Sub-Parm of 


CLUSTER 
DATA 
CLUSTER 


DATA 
INDEX 


CLUSTER 

DATA 

INDEX 
ALTERNATEINDEX 
SPACE 


USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 


USERCATALOG, 
AUTHORIZATION 


USERCATALOG, 
AUTHORIZATION 


USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 
USERCATALOG 


USERCATALOG 
USERCATALOG 
USERCATALOG 
CLUSTER 

DATA 
RECORDFORMAT 
RECORDFORMAT 
RECORDFORMAT 
RECORDFORMAT 
RECORDFORMAT 
RECORDFORMAT 
RECORFORMAT 
RECORDFORMAT 
RECORDFORMAT 
RECORDFORMAT 
RECORDFORMAT 
RECORDFORMAT 


SPACE, 
RECORDSIZE 


SPACE, 
RECORDSIZE 


USERCATALOG, 


VSE/VSAM Access Method Services Logic 


FDT 


Fieldname 


CBFSZ 
DBFSZ 
CCINV 


DCINV 


ICINV 


CDVCL 
DDVOL 
IDVOL 
GDVOL 
SORIG 


UETRY 
UMSTR 
UCINT 

UUPDT 
UREAD 
UCODE 
UATTP 

UAUTH 
UEPNM 


USTRG 


UTO 
UFOR 
UOWNR 
UINDD 
UVSER 
UTRKS 
UCYLD 
URCDS 


UWCK 
UNWCK 
UBFSZ 
CRFMT 
DRFMT 
CUNDF 
CFUNB 
CFBLK 
CVUNB 
CVBLK 
CNCIF 
DUNDF 
DFUNB 
DFBLK 
DVUNB 
DVBLK 
DNCIF 


SARSZ 
SMRSZ 


UENAM 


Points 
to 
data 
data 
data 


data 


data 


itself 
itself 
itself 
itself 
data 


data 
data 
data 
data 
data 
data 
data 
itself 
data 


data 


data 
data 
data 
data 
data 
itself 
itself 
itself 


itself 
itself 
data 

itself 
itself 
itself 
itself 
data 

itself 
itself 
itself 
itself 
itself 
data 

itself 
itself 
itself 


data 


data 


data 


Data Format 
Number 


3 
3 
3 
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Notes 


See parms 206 and 207. 


dname 


A single serial number (character 6). 


See parms 306 and 307. 
See parms 314 and 315. 
See parms 326 and 327. 


See Parms 223-228 
See Parms 229-234 
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Parm 
No. 


254 
255 
256 
257 


258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 


299 
300 
301 
302 
303 


304 
305 
306 


307 


308 
309 
310 


311 


312 


Offset 


1020 (3FC) 
1024 (400) 
1028 (404) 
1032 (408) 


1036 (40C) 
1040 (410) 
1044 (414) 
1048 (418) 
1052 (41C) 
1056 (420) 
1060 (424) 
1064 (428) 
1068 (42C) 
1072 (430) 
1076 (434) 
1080 (438) 
1084 (43C) 
1088 (440) 
1092 (444) 
1096 (448) 
1100 (44C) 
1104 (450) 
1108 (454) 
1112 (458) 
1116 (45C) 
1120 (460) 
1124 (464) 
1128 (468) 
1132 (46C) 
1136 (470) 
1140 (474) 
1144 (478) 
1148 (47C) 
1152 (480) 


1203 (4B3) 
1204 (4B4) 
1208 (4B8) 
1212 (4BC) 
1216 (4C0) 


1220 (4C4) 
1224 (4C8) 


Parm Name 


password 


catname/ 
password 


dname 
entrypoint 
string 


NOALLOCATION 
NOALLOCATION 
NOALLOCATION 
NOALLOCATION 
EXCEPTIONEXIT 
EXCEPTIONEXIT 
EXCEPTIONEXIT 
NUMBERED 

REUSE 

REUSE 

REUSE 

NOREUSE 
NOREUSE 
NOREUSE 
SPANNED 
SPANNED 
NONSPANNED 
NONSPANNED 
RECOVERABLE 
RECOVERABLE 
RECOVERABLE 
NOTRECOVERABLE 
NOTRECOVERABLE 
NOTRECOVERABLE 
FILE 

IMBED 

NOIMBED 

IMBED 

NOIMBED 

through 


unused - contains zeros 
primary 

secondary 

primary 


secondary 


primary 
secondary 


1228 (4CC) primary 


1232 (4D0) 


1236 (4D4) 
1240 (4D8) 


secondary 


unused - contains zeros 
unused - contains zeros 


1244 (4DC) primary 


1248 (4E0) 


1252 (4E4) 


secondary 


primary 


Sub-Parm of 


MODEL 


USERCATALOG, 
MODEL 


USERCATALOG, 
MODEL 


CLUSTER, 
AUTHORIZATION 


CLUSTER, 
AUTHORIZATION 


CLUSTER 

DATA 

INDEX 
ALTERNATEINDEX 
CLUSTER 

DATA 

INDEX 

CLUSTER 
CLUSTER 

DATA 

INDEX 

CLUSTER 

DATA 

INDEX 

CLUSTER 

DATA 

CLUSTER 

DATA 
MASTERCATALOG 
USERCATALOG 
DATA 
MASTERCATALOG 
USERCATALOG 
DATA 

NONVSAM 
MASTERCATALOG 
MASTERCATALOG 
USERCATALOG 
USERCATALOG 


MASTERCATALOG, 
TRACKS 


MASTERCATALOG, 
TRACKS 


CLUSTER, 
TRACKS 


CLUSTER, 
TRACKS 


SPACE, TRACKS 
SPACE, TRACKS 


USERCATALOG, 
TRACKS 


USERCATALOG, 
TRACKS 


MASTERCATALOG, 
CYLINDERS 


MASTERCATALOG, 
CYLINDERS 


CLUSTER, 
CYLINDERS 


FDT 
Fieldname 


UMDCT 


UMDNM 


CEPNM 


CSTRG 


CNOAL 
DNOAL 
INOAL 
GNOAL 
CEEXT 
DEEXT 
IEEXT 
CNUMD 
CRUS 
DRUS 
IRUS 
CNRUS 
DNRUS 
INRUS 
CSPND 
DSPND 
CNSPD 
DNSPD 
MRVBL 
URVBL 
DRVBL 
MNRVL 
UNRVL 
DNRVL 
AINDD 
MIMBD 
MNIBD 
UIMBD 
UNIBD 


MTKPR 


MTKSC 


CTKPR 


CTKSC 


STKPR 
STKSC 
UTKPR 


UTKSC 


MCLPR 


MCLSC 


CCLPR 


Points 
to 


data 


data 


data 


data 


itself 
itself 
itself 
itself 
data 

data 

data 

itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
data 

itself 
itself 
itself 
itself 


data 


data 


data 


data 


data 
data 
data 


data 


data 


data 


data 


Data Format 
Number 


Notes 


dname 
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Parm 
No. 


313 
314 
315 


316 
317 
318 


319 
320 
321 
322 
323 


324 
325 
326 


327 


328 
329 
330 


331 


332 
333 
334 


335 


336 
337 
338 
339 
340 


341 
342 


343 


345 


347 
348 
349 
350 


351 


352 
333 
334 
335 
356 


5-28 


Offset 


1256 (4E8) 


Parm Name 


secondary 


1260 (4EC) primary 


1264 (4F0) 


1268 (4F4) 
1272 (4F8) 


secondary 


unused - contains zeros 
unused - contains zeros 


1276 (4FC) primary 


1280 (500) 
1284 (504) 
1288 (508) 
1292 (50C) 
1296 (510) 


1300 (514) 
1304 (518) 
1308 (S1C) 


1312 (520) 


1316 (524) 
1320 (528) 
1324 (52C) 


1328 (530) 


1332 (534) 
1336 (538) 
1340 (S3C) 


1344 (540) 


1348 (544) 
1352 (548) 
1356 (54C) 
1360 (550) 
1364 (554) 


1368 (558) 
1372 (S5C) 


1376 (560) 
1380 (564) 
1384 (568) 
1388 (56C) 
1392 (570) 
1396 (574) 
1400 (578) 
1404 (57C) 


1408 (580) 


1412 (584) 
1416 (588) 
1420 (58C) 
1424 (590) 
1428 (594) 


secondary 
primary 
secondary 
primary 
secondary 


primary 
secondary 
primary 


secondary 


unused - contains zeros 
unused - contains zeros 
primary 


secondary 


primary 
secondary 
primary 


secondary 


primary 
secondary 
NAME 
MODEL 


entryname/ 
password 


catname/ 
password 


dname 


MASTERPW 
CONTROLPW 
UPDATEPW 
READPW 

CODE 

ATTEMPTS 
AUTHORIZATION 
entrypoint 


string 


TO 

FOR 

OWNER 
SHAREOPTIONS 
crosspartition 


Sub-Parm of 


CLUSTER, 
CYLINDERS 


USERCATALOG, 
CYLINDERS 


USERCATALOG, 
CYLINDERS 


SPACE, 
CYLINDERS 


SPACE, 
CYLINDERS 


MASTERCATALOG, 
RECORDS 


MASTERCATALOG, 
RECORDS 


CLUSTER, 
RECORDS 


CLUSTER, 
RECORDS 


SPACE, RECORDS 
SPACE, RECORDS 


USERCATALOG, 
RECORDS 


USERCATALOG, 
RECORDS 


DATA, 
CYLINDERS 


DATA, 
CYLINDERS 


DATA, RECORDS 
DATA, RECORDS 


INDEX, 
CYLINDERS 


INDEX, 
CYLINDERS 


INDEX, RECORDS 
INDEX, RECORDS 
ALTERNATEINDEX 
ALTERNATEINDEX 


ALTERNATEINDEX, 
MODEL 


ALTERNATEINDEX, 
MODEL 


ALTERNATEINDEX, 
MODEL 


ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 


ALTERNATEINDEX, 
AUTHORIZATION 


ALTERNATEINDEX, 
AUTHORIZATION 


ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 


VSE/VSAM Access Method Services Logic 


FDT 
Fieldname 


CCLSC 


UCLPR 


UCLSC 


SCLPR 


SCLSC 


MRCPR 


MRCSC 


CRCPR 


CRCSC 


SRCPR 
SRCSC 
URCPR 


URCSC 


DCLPR 


DCLSC 


DRCPR 
DRCSC 
ICLPR 


ICLSC 


IRCPR 
IRCSC 
GETRY 
GMODL 
GENAM 


GMDCT 


GMDNM 


GMSTR 
GCINT 

GUPDT 
GREAD 
GCODE 
GATTP 

GAUTH 
GEPNM 


GSTRG 


GTO 
GFOR 
GOWNR 
GSHAR 
GSHRI 


Points 
to 


data 
data 


data 


data 
data 
data 
data 
data 
data 


data 
data 
data 


data 


data 
data 


data 
data 
data 


data 


data 
data 
data 
itself 
data 


data 
data 


data 
data 
data 
data 
data 
data 
itself 
data 


data 


data 
data 
data 
itself 
data 


Data Format 
Number 


3 


3 
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Notes 


See parms 340-342. 


See parms 350 and 351. 
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Parm 
No. 
357 
358 
359 
360 
361 


362 


363 
364 
365 
366 
367 
368 


369 


370 


371 


372 
373 
374 
375 
376 
377 


378 


379 
380 


381 


382 
383 


384 


385 
386 


387 


388 
389 
390 
391 
392 
393 


394 


395 
396 


397 
398 
399 


401 
402 


Offset 


1432 (598) 
1436 (59C) 
1440 (5A0) 
1444 (5A4) 
1448 (5A8) 


1452 (SAC) 


1456 (5B0) 
1460 (5B4) 
1464 (5B8) 
1468 (SBC) 
1472 (SCO) 
1476 (5C4) 


1480 (5C8) 
1484 (SCC) 
1488 (5D0) 


1492 (5D4) 
1496 (5D8) 
1500 (SDC) 
1504 (5E0) 
1508 (SEA) 
1512 (SE8) 


1516 (SEC) 


1520 (SFO) 
1524 (SF4) 


1528 (SF8) 


1532 (SFC) 
1536 (600) 


1540 (604) 


1544 (608) 
1548 (60C) 


1552 (610) 


1556 (614) 
1560 (618) 
1564 (61C) 
1568 (620) 
1572 (624) 
1576 (628) 


1580 (62C) 


1584 (630) 
1588 (634) 


1592 (638) 
1596 (63C) 
1600 (640) 
1604 (644) 
1608 (648) 
1612 (64C) 


Parm Name 


crosssystem 
ERASE 
NOERASE 
KEYS 
length 


offset 


REPLICATE 
NOREPLICATE 
IMBED 
NOIMBED 
FILE 
VOLUMES 


KEYRANGES 
lowkey 
highkey 


ORDERED 
UNORDERED 
SUBALLOCATION 
UNIQUE 

TRACKS 

primary 


secondary 


CYLINDERS 
primary 


secondary 


RECORDS 
primary 


secondary 


RECORDSIZE 
average 


maximum 


WRITECHECK 
NOWRITECHECK 
SPEED 
RECOVERY 
FREESPACE 
cipercent 


capercent 


BUFFERSPACE 


CONTROL- 
INTERVALSIZE 


RELATE 
EXCEPTIONEXIT 
REUSE 

NOREUSE 
UNIQUEKEY 
NONUNIQUEKEY 


Sub-Parm of 


ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 


ALTERNATEINDEX, 
KEYS 


ALTERNATEINDEX, 
KEYS 


ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 


ALTERNATEINDEX 


ALTERNATEINDEX, 
KEYRANGES 


ALTERNATEINDEX, 
KEYRANGES 


ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 


ALTERNATEINDEX, 
TRACKS 


ALTERNATEINDEX, 
TRACKS 


ALTERNATEINDEX 


ALTERNATEINDEX, 
CYLINDERS 


ALTERNATEINDEX, 
CYLINDERS 


ALTERNATEINDEX 


ALTERNATEINDEX, 
RECORDS 


ALTERNATEINDEX, 
RECORDS 


ALTERNATEINDEX 


ALTERNATEINDEX, 
RECORDSIZE 


ALTERNATEINDEX, 
RECORDSIZE 


ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 


ALTERNATEINDEX, 
FREESPACE 


ALTERNATEINDEX, 
FREESPACE 


ALTERNATEINDEX 
ALTERNATEINDEX 


ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 
ALTERNATEINDEX 


FDT 
Fieldname 
GSHR2 
GERAS 
GNERS 
GKEY 
GKYLN 


GKYPS 


GREPL 
GNREP 
GIMBD 
GNIBD 
GINDD 
GVSER 


GRANG 


GRGLOPTR 


GRGHIPTR 


GORDR 
GUORD 
GSUBA 
GUNIQ 
GTRKS 
GTKPR 


GTKSC 


GCYLD 
GCLPR 


GCLSC 


GRCDS 
GRCPR 


GRCSC 


GRSIZ 
GARSZ 


GMRSZ 


GWCK 
GNWCK 
GSPED 
GRECV 
GFSPC 
GCIFS 


GCAFS 


GBFSZ 
GCINV 


GREL 
GEEXT 
GRUS 
GNRUS 
GUNQK 
GNUQK 


Points 
to 
data 
itself 
itself 
itself 
data 


data 


itself 
itself 
itself 
itself 
data 
data 


data 


list of 
pointers 


list of 
pointers 


itself 
itself 
itself 
itself 
itself 
data 


data 


itself 
data 


data 


itself 
data 


data 


itself 
data 


data 


itself 
itself 
itself 
itself 
itself 
data 


data 


data 
data 


data 
data 
itself 
itself 
itself 
itself 


Data Format 
Number 


3 
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Notes 


See parms 361 and 362. 
key length 


key offset 


dname 


A list of volume serial numbers (character 


6). 


Count of sub-parms. See parms 370 and 
371. 


Each item points to 
a low keyrange value. 


Each item points to 
a high keyrange value. 


See parms 377 and 378. 


See parms 380 and 381. 


See parms 383 and 384. 


See parms 386 and 387. 


See parms 393 and 394. 
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Parm 
No. 


403 


405 


407 
408 
409 
410 
411 
412 


413 


414 
415 
416 
417 
418 
419 
420 
421 
422 


523 


424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 


440 


41 


442 


443 
444 
445 
446 
447 


448 


449 


450 


431 


5-30 


Offset 


1616 (650) 
1620 (654) 
1624 (658) 
1628 (65C) 
1632 (660) 
1636 (664) 
1640 (668) 
1644 (66C) 
1648 (670) 
1652 (674) 


1656 (678) 


1660 (67C) 
1664 (680) 
1668 (684) 
1672 (688) 
1676 (68C) 
1680 (690) 
1684 (694) 
1688 (698) 
1692 (69C) 


1696 (6A0) 


1700 (6A4) 
1704 (6A8) 
1708 (6AC) 
1712 (6B0) 
1716 (6B4) 
1720 (6B8) 
1724 (6BC) 
1728 (6C0) 
1732 (6C4) 
1736 (6C8) 
1740 (6CC) 
1744 (6D0) 
1748 (6D4) 
1752 (608) 


Parm Name 


UNIQUEKEY 
NONUNIQUEKEY 
UPGRADE 
NOUPGRADE 
DEDICATE 
DEDICATE 
DEDICATE 
NAME 

MODEL 


entryname/ 
password 


catname/ 
password 


dname 

MASTERPW 
CONTROLPW 
UPDATEPW 
READPW 

CODE 

ATTEMPTS 
AUTHORIZATION 
entrypoint 


string 


TO 

FOR 

OWNER 
FILE 
UPDATE 
NOUPDATE 
PATHENTRY 
BLOCKS 
BLOCKS 
BLOCKS 
BLOCKS 
BLOCKS 
unused - contains zeros 
BLOCKS 


1756 (6DC) BLOCKS ~ 


1760 (6E0) 
1764 (6E4) 
1768 (6E8) 
1772 (6EC) 


1776 (6F0) 
1780 (6F4) 
1784 (6F8) 
1788 (6FC) 
1792 (700) 


1796 (704) 
1800 (708) 
1804 (70C) 


1808 (710) 


primary 
primary 
primary 
primary 


primary 

unused - contains zeros 
primary 

primary 

secondary 


secondary 
secondary 
secondary 


secondary 


Sub-Parm of 


DATA 

DATA 
ALTERNATEINDEX 
ALTERNATEINDEX 
SPACE 
MASTERCATALOG 
USERCATALOG 
PATH 

PATH 

PATH, MODEL 


PATH, MODEL 


PATH, MODEL 
PATH 
PATH 
PATH 
PATH 
PATH 
PATH 
PATH 


PATH, 
AUTHORIZATION 


PATH, 
AUTHORIZATION 


PATH 

PATH 

PATH 

PATH 

PATH 

PATH 

PATH 

CLUSTER 
ALTERNATEINDEX 
MASTERCATALOG 
USERCATALOG 
SPACE 


DATA 
INDEX 


CLUSTER, 
BLOCKS 


ALTERNATEINDEX, 
BLOCKS 


MASTERCATALOG, 
BLOCKS 


USERCATALOG, 
BLOCKS 


SPACE, BLOCKS 


DATA, BLOCKS 
INDEX, BLOCKS 


CLUSTER, 
BLOCKS 


ALTERNATEINDEX, 
BLOCKS 


MASTERCATALOG, 
BLOCKS 


USERCATALOG, 
BLOCKS 


SPACE, BLOCKS 


VSE/VSAM Access Method Services Logic 


FDT 
Fieldname 
DUNQK 
DNUQK 
GUPG 
GNUPG 
SPED 
MDED 
UDED 
RETRY 
RMODL 
RENAM 


RMDCT 


RMDNM 
RMSTR 
RCINT 
RUPDT 
RREAD 
RCODE 
RATTP 
RAUTH 
REPNM 


RSTRG 


RTO 
RFOR 
ROWNR 
RINDD 
RUPD 
RNUPD 
RPENT 
CBLKS 
GBLKS 
MBLKS 
UBLKS 
SBLKS 


DBLKS 
IBLKS 
CBLKR 


GBLKR 
MBLKR 
UBLKR 


SBLKR 


DBLKR 
IBLKR 
CBLKC 


GBLKC 
MBLKC 
UBLKC 


SBLKC 


Points 
to 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
data 
itself 
data 


data 


data 
data 
data 
data 
data 
data 
data 
itself 
data 


data 


data 
data 
data 
data 
iiself 
itself 
data 
itself 
itself 
itself 
itself 
itself 


itself 
itself 
data 


data 


data 


data 


data 


data 
data 
data 


data 


data 


data 


data 


Data Format 
Number 


ee eo ee ee ee ee 
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Notes 


See parms 412-414. 


See parms 422 and 423. 


dname 


See parms 439 and 447, 
See parms 440 and 448. 
See parms 441 and 449. 
See parms 442 and 450. 
See parms 443 and 451. 


See parms 445 and 453. 
See parms 446 and 454. 


Licensed Material — Property of IBM 


Parm Offset Parm Name 
No. 
452 1812 (714) unused - contains zeros 
453 1816 (718) secondary 
454 1820 (71C) secondary 
455 1824 (720) through 
468 1879 (757) unused - contains zeros 
469 1880 (758) CLASS 
470 1884 (75C) CLASS 
471 1888 (760) CLASS 
472 1892 (764) unused - contains zeros 
473 1896 (768) USECLASS 
474 1900 (76C) unused - contains zeros 
475 1904 (770) USECLASS 
476 1908 (774) USECLASS 
477 1912 (778) USECLASS 
478 1916 (77C) unused - contains zeros 
479 1920 (780) unused - contains zeros 
480 1924 (784) unused - contains zeros 
481 1928 (788) unused - contains zeros 
482 1932 (78C) primary 
483 1936 (790) secondary 
484 1940 (794) unused - contains zeros 
485 1944 (798) primary 
486 1948 (79C) secondary 
487 1952 (7A0) primary 
488 1956 (7A4) secondary 
489 1960 (7A8) primary 
490 1964 (7AC) secondary 
DELETE FDT 
Parm Offset Parm Name 
No. 
0 (0) 
l 8 (8) entryname/ 
password 
2 12 (C) CATALOG 
3 16 (10) catname/ 
password 
4 20 (14) dname 
5 24 (18) FILE 
6 28 (1C) PURGE 
7 32 (20) NOPURGE 
8 36 (24) ERASE 
9 40 (28) NOERASE 
10 44 (2C) unused - contains zeros 
ll 48 (30) CLUSTER 
12 52 (34) SPACE 
13 56 (38) USERCATALOG 
14 60 (3C) MASTERCATALOG 
15 64 (40) NONVSAM 
16 68 (44) SCRATCH 
17 72 (48) NOSCRATCH 


Sub-Parm of 


DATA, BLOCKS 
INDEX, BLOCKS 


MASTERCATALOG 
USERCATALOG 
SPACE 


CLUSTER 


DATA 
INDEX 
ALTERNATEINDEX 


CLUSTER, 
USECLASS 


CLUSTER, 
USECLASS 


DATA, 
USECLASS 


DATA, 
USECLASS 


INDEX, 
USECLASS 


INDEX, 
USECLASS 


ALTERNATEINDEX, 
USECLASS 


ALTERNATEINDEX, 
USECLASS 


Sub-Parm of 


CATALOG 


CATALOG 


FDT 
Fieldname 


DBLKC 
IBLKC 


MCLAS 
UCLAS 
SCLAS 


CUSCL 


DUSCL 
IUSCL 
GUSCL 


CPUSC 


CSUSC 


DPUSC 


DSUSC 


IPUSC 


ISUSC 


GPUSC 


GSUSC 


FDT 
Fieldname 


FDTVERB 
NTRY 


CATLG 
CAT 


CATDD 
INDD 
PURGE 
NOPUR 
ERASE 
NOERA 


CLUST 
SPACE 
UCAT 
MCAT 
ALIEN 
SCR 
NSCR 


Points 
to 


data 
data 


data 
data 
data 


data 


data 


data 


data 


data 


data 


data 


Points 
to 


data 


itself 
data 


data 
data 
itself 
itself 
itself 
itself 


itself 
itself 
itself 
itself 
itself 
itself 
itself 


Data Format 
Number 


Data Format 
Number 


4/6 


—_—_ ws = = FR NO 


—_—_— —_ = steele 


Notes 


See parms 482 and 483. 


See parms 485 and 486. 
See parms 487 and 488. 


Notes 


DELETEbt 
Count of repetitions 


followed by data format 6 data. 


See parms 3 and 4. 
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Parm Offset Parm Name 
No. 
18 76 (4C) unused - contains zeros 
19 80 (50) unused - contains zeros 
20 84 (54) unused - contains zeros 
21 88 (58) ALTERNATEINDEX 
22 92 (SC) PATH 
23 96 (60) FORCE 
24 100 (64) NOFORCE 
EXPORT FDT 
Parm Offset Parm Name 
No. 
0 (0) 
l 8 (8) entryname/ 
password 
2 12 (C) INFILE 
3 16 (10) OUTFILE 
4 20 (14) dname 
b) 24 (18) ENVIRONMENT 
6 28 (1C) TEMPORARY 
7 32 (20) PERMANENT 
8 36 (24) INHIBITSOURCE 
9 40 (28) INHIBITARGET 
10 44 (2C) ERASE 
11 48 (30) NOERASE 
12 52 (34) PURGE 
13 56 (38) NOPURGE 
14 60 (3C) DISCONNECT 
1S 64 (40) NOINHIBITSOURCE 
16 68 (44) NOINHIBITTARGET 
17 72 (48) CIMODE 
18 76 (4C) RECORDMODE 
19 80 (50) unused - contains zeros 
20 84 (54) PRIMEDATADEVICE 
21 88 (58) BLOCKSIZE 
22 92 (5C) STDLABEL 
23 96 (60) NOLABEL 
24 100 (64) NOREWIND 
25 104 (68) REWIND 
26 108 (6C) UNLOAD 
5-32 


Sub-Parm of 


Sub-Parm of 


OUTFILE 
OUTFILE 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 
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FDT 
Fieldname 


AIX 
PATH 
FRC 
NFRC 


FDT 
Fieldname 


FDTVERB 
ENT 


INDD 
OUT 
OUTDD 
ENVIR 
TEMP 
PERM 
INHBS 
INHBT 
ERASE 
NOERS 
PURGE 
NPRG 
DISCT 
NINHS 
NINHT 
CIM 
RECM 


PDEV 


BLKSZ 


OSLBL 


ONLBL 


ONREW 


OREW 


OUNLD 


Points 
to 


itself 
itself 
itself 
itself 


Points 
to 


data 


data 

itself 
data 

itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 


data 


data 


itself 


itself 


itself 


itself 


itself 


Data Format 
Number 


—_— = poe 


Data Format 
Number 
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Notes 


Notes 


EXPORT66 


See parms 4 and 5. 


See parms 20-26. 
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EXPORTRA FDT 


Parm 
No. 


fh WwW KN — 


20 
21 


22 
23 
24 


25 
26 
27 


28 


29 


Offset 


0 (0) 
8 (8) 
12 (C) 
16 (10) 
20 (14) 


24 (18) 


28 (1C) 
32 (20) 


36 (24) 


40 (28) 


44 (2C) 
48 (30) 
52 (34) 


56 (38) 
60 (3C) 


64 (40) 


68 (44) 
72 (48) 
76 (4C) 
80 (50) 
84 (54) 
88 (58) 


92 (5C) 
96 (60) 
100 (64) 


104 (68) 


108 (6C) 
112 (70) 


116 (74) 


120 (78) 


Parm Name 


FORCE 
NOFORCE 
OUTFILE 
CRA 


dnamel 


ALL 


NONE 


ENTRIES 


INFILE 


MASTERPW 
ENVIRONMENT 
PRIMEDATADEVICE 


dname 
entryname 


dname3 


BLOCKSIZE 


STDLABEL 


NOLABEL 


NOREWIND 


REWIND 


UNLOAD 


CIMODE 
RECORDMODE 
CRAVOLUMES 


volser 


ALL 


NONE 


ENTRIES 


entryname 


* One pointer per object. 


Sub-Parm of 


CRA 


CRA 
CRA 


CRA 


CRA 


OUTFILE 


OUTFILE, 
ENVIRONMENT 


OUTFILE 
CRA ENTRIES 


CRA ENTRIES 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


CRAVOLUMES 


CRAVOLUMES 
CRAVOLUMES 


CRAVOLUMES 


ENTRIES, 
CRAVOLUMES 


FDT 
Fieldname 


FDTVERB 
FRC 
NFRC 
OUT 
CRACNT 


CRADDPTR 


ALLNTPTR 


NONEPTR 


ENTREPTR 


IFILEPTR 


MRPW 
ENVIR 
PDEV 


OUTDD 
ENTNMPTR 


ENTDNPTR 


BLKSZ 


OSLBL 


ONLBL 


ONREW 


OREW 


OUNLD 


CIM 
RECM 
CRAVLCNT 


VOLIDPTR 


ALLVLPRT 


NONEVPTR 


ENTVLPTR 


ENTNVPTR 


Points 
to 


itself 
itself 
itself 
data 


list of 
pointers” 


list of 
pointers* 


list of 
pointers* 


list of 
counts 


list of 
pointers* 


data 
itself 
data 


data 


list of 
pointers* 


list of 
pointers* 
data 
itself 
itself 
itself 
itself 
itself 
itselt 
itself 
data 


list of 
pointers* 


list of 
pointers* 
list of 
pointers* 
list of 
counts 


list of 
pointers * 


Data Format 
Number 


we ot 


Notes 


EXPORTRA 


See parms I1 and 13. 


Count of the number of CRAs (dname!) 
provided. See parms 5-9, 14, and 15. 
Each points to the CRA dnamel it 
relates to in the order that they appear in 
the EXPORTRA command. 


Each points to itself. 
Each points to itself. 


Each count indicates the 
number of entries specified for the related 
CRA. See parms 14 and 15, 


Each pointer points to the dname2 to 
be used for a CRA. 


See parms 12 and 16-21. 


Each pointer points to an entryname 

in the associated CRA. 

Each pointer points to the dname used 
to export the associated entryname in the 
ENTNMPTR. 


Count of the number of CRAVOLUMES 
(volser) provided. See Parms 25-29 


Each points to the CRAVOLUMES 
volser it relates to in the order that they 
appear in the EXPORTRA command. 


Each points to itself. 
Each points to itself. 


Each count indicates the number 
of entries specified for the related 
CRAVOLUMES volser. See Parm 29. 


Each pointer points to an entryname 
in the CRA identified by the volser 
parameter. 
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IMPORT FDT 
Parm Offset Parm Name Sub-Parm of FDT Points DataFormat Notes 
No. Fieldname to Number 
0 (0) FDTVERB IMPORTO6b 
l 8 (8) INFILE IN itself l See parms 15 and 16. 
2 12 (C) OUTFILE OUTDD data 7 dname/password 
3 16 (10) OBJECTS OBJTSCNT data 3 Count of the number of names specified. 
See parms 4-11, 37-39. 
4 20 (14) objectname OBJECTS OBJNMPTR seiist of 6 44-character entryname for 
pointers* each object. 
5 24 (18) NEWNAME OBJECTS NEWNMPTR _iist of 6 44-character entryname for 
pointers* each object. 
6 28 (1C) FILE OBJECTS OBJFLPTR list of 2 Dname for each object. 
pointers* 
7 32 (20) VOLUMES OBJECTS LISTVPTR list of 4 List of volume serial numbers for 
pointers* each object. 
8 36 (24) KEYRANGES OBJECTS RANGEPTR siist of 3 Each count indicates the number of 
counts low/high keyrange pairs for the related 
object name. See parms 12 and 13. 
9 40 (28) DEVICETYPE OBJECTS DEVPTR list of 5 Device type of each object. 
pointers* 
10 44 (2C) ORDERED OBJECTS ORDPTR list of l Pointer to itself. 
pointers* 
ll 48 (30) UNORDERED OBJECTS UNORDPTR list of l Pointer to itself. 
pointers* 
12 52 (34) lowkey OBJECTS, LOWKYPTR _iist of 1/2 Each pointer points to another list 
KEYRANGES pointers* of pointers (one per low keyrange value). 
13 56 (38) highkey OBJECTS, HIKEYPTR siist of 1/2 Each pointer points to another list 
KEYRANGES pointers* of pointers (one per high keyrange value). 
14 60 (3C) CONNECT CON itself 1 
1$ 64 (40) dname INFILE INDD data 2 dname 
16 68 (44) ENVIRONMENT INFILE ENV itself 1 See parms 21-23 and 26-30. 
17 72 (48) PURGE PRG itself l 
18 76 (4C) NOPURGE NPRG itself 1 
19 80 (50) ERASE ERAS itself l 
20 84 (54) NOERASE NERAS itself | 
ai 88 (58) BLOCKSIZE INFILE, BLKSZ data 3 
ENVIRONMENT 
22 92 (SC) PRIMEDATADEVICE INFILE, PDEV data 2 Device type. 
ENVIRONMENT 
23 96 (60) RECORDSIZE INFILE, RECSZE data 3 
ENVIRONMENT 
24 100 (64) unused - contains zeros 
25 104 (68) OUTPW OUTPW data 2 password 
26 108 (6C) STDLABEL INFILE, ISLBL itself | 
ENVIRONMENT 
27 112 (70) NOLABEL INFILE, INLBL itself | 
ENVIRONMENT 
28 116 (74) NOREWIND INFILE, INREW itself 1 
ENVIRONMENT 
29 120 (78) REWIND INFILE, IREW itself 1 
ENVIRONMENT 
30 124(7C) UNLOAD INFILE, IUNLD itself 1 
ENVIRONMENT 
31 128 (80) unused - contains zeros 
32 132 (84) unused - contains zeros 
33 136 (88) CATALOG CAT data 6 catname /password 
34 140(8C) unused - contains zeros 
35 144 (90) unused - contains zeros 
36 148 (94) unused - contains zeros 
37 152 (98) USECLASS OBJECTS USCLPTR list of 1 Points to itself. 
pointers* See parms 38 and 39. 
* One pointer per object. 
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Parm Offset Parm Name 
No. 

38 156(9C) primary 

39 160(A0) secondary 


IMPORTRA FDT 


Parm Offset Parm Name 
No. 
0 (0) 
| 8 (8) INFILE 
2 12 (C) OUTFILE 
3 16 (10) OBJECTS 
4 20 (14) objectname 
5 24 (18) DEFAULTVOLUMES 
6 28 (1C) FILE 
7 32 (20) VOLUMES 
36 (24) unused - contains zeros 
40 (28) DEVICETYPE 
10 44 (2C) unused - contains zeros 
lh 48 (30) unused - contains zeros 
12 §2 (34) unused - contains zeros 
13 56 (38) unused - contains zeros 
14 60 (3C) unused - contains zeros 
15 64 (40) dname 
16 68 (44) ENVIRONMENT 
17 72 (48) unused - contains zeros 
18 76 (4C) unused - contains zeros 
19 80 (50) unused - contains zeros 
20 84 (54) unused - contains zeros 
21 88 (58) BLOCKSIZE 
22 92 (SC) PRIMEDATADEVICE 
23 96 (60) unused - contains zeros 
24 100 (64) unused - contains zeros 
25 104 (68) unused - contains zeros 
26 108 (6C) STDLABEL 
27 112 (70) NOLABEL 
28 116 (74) NOREWIND 
29 120 (78) REWIND 
30 124(7C) UNLOAD 
31 128 (80) unused - contains zeros 
32 132 (84) unused - contains zeros 
33 136 (88) CATALOG 
34 140(8C) — unused - contains zeros 
35 144 (90) unused - contains zeros 
36 148 (94) unused - contains zeros 
37 152 (98) USECLASS 
* One pointer per object. 


Sub-Parm of 


OBJECTS, 
OBJECTS, 


Sub-Parm of 


OBJECTS 


OBJECTS 
OBJECTS 


OBJECTS 


OBJECTS 


INFILE 
INFILE 


INFILE, 


ENVIRONMENT 


INFILE, 


ENVIRONMENT 


INFILE, 


ENVIRONMENT 


INFILE, 


ENVIRONMENT 


INFILE, 


ENVIRONMENT 


INFILE, 


ENVIRONMENT 


INFILE, 


ENVIRONMENT 


OBJECTS 


FDT 
Fieldname 


PUSCPTR 
SUSCPTR 


FDT 
Fieldname 


FDTVERB 
IN 
OUTDD 
OBJTS 


OBJNMPTR 


DVOLPTR 
OBJFLPTR 


LISTVPTR 


DEVTPTR 


INDD 
ENV 


BLKSZ 


PDEV 


ISLBL 
INLBL 
INREW 
IREW 


IUNLD 


CAT 


USCLPTR 


Points 
to 


data 
data 


Points 
to 


itself 
data 
data 


list of 
pointers* 
list of 
pointers* 


list of 
pointers* 


list of 
pointers* 


list of 
pointers* 


data 
itself 


data 


data 


itself 
itself 
itself 
itself 


itself 


data 


list of 


Data Format Notes 
Number 
3 USECLASS 
2 USECLASS 
Data Format Notes 
Number 
IMPORTRA 
1 See parms 15 and 16. 
2 dname 
3 Count of the number of object names 
specified. See parms 4-9, 37-39. 
6 Each points to the 
44-character entryname for an object. 
l Each points to itself. 
2 Each points to the 
dname for an object. 
4 Each points to a 
list of volume serial numbers for each 
object. 
5 Each points to the 
device type of each object. 
2 
l See parms 21-22, 26-30. 
3 
2 Device type. 
1 
l 
l 
| 
1 
6 catname/ password (dname) 


Points to itself. 
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Parm Offset Parm Name Sub-Parm of FDT Points DataFormat Notes 
No. Fieldname to Number 
pointers* See parms 38 and 39. 
38 156(9C) primary OBJECTS, PUSCPTR data 3 
USECLASS 
39 160(A0) secondary OBJECTS, SUSCPTR data 2 
USECLASS 
LISTCAT FDT 
Parm Offset Parm Name Sub-Parm of FDT Points DataFormat Notes 
No. Fieldname to Number 
0 (0) FDTVERB LISTCATb 
! 8 (8) CATALOG CAT itself 1 See parms |! and 12. 
2 12 (C) OUTFILE OUTDD data 2 
3 16 (10) ENTRIES ENT data 6 
4 20 (14) unused - contains zeros 
5 24 (18) CLUSTER CLUST itself 1 
6 28 (1C) DATA DATUM itself l 
7 32 (20) INDEX INDEX itself 1 
8 36 (24) SPACE SPACE itself l 
9 40 (28) NONVSAM ALIEN itself l 
10 44 (2C) USERCATALOG UCAT itself 1 
tl 48 (30) catname/ CATALOG CATNM data 6 
password 
12 52 (34) dname CATALOG CATDD data 2 
13 56 (38) unused - contains zeros 
14 60 (3C) NAME NAME itself 1 
1S 64 (40) ALL FALL itself l 
16 68 (44) VOLUME VOL itself I 
17 72 (48) ALLOCATION ALLOC itself l 
18 76 (4C) unused - contains zeros 
19 80 (50) unused - contains zeros 
20 84 (54) unused - contains zeros 
21 88 (58) unused - contains zeros 
22 92 (5C) ALTERNATEINDEX AIX itself | 
23 96 (60) PATH PATH itself l 
24 100 (64) NOTUSABLE NUSE itself 1 
LISTCRA FDT 
Parm Offset Parm Name Sub-Parm of FDT Points DataFormat Notes 
No. Fieldname to Number 
0 (0) FDTVERB LISTCRA6 
l 8 (8) INFILE IFILE list 4 Listof CRA dnames. 
2 12 (C) COMPARE CMPR itself l 
3 16 (10) NOCOMPARE NCMPR itself l 
4 20 (14) DUMP DUMP itself 1 
5 24 (18) NAME NAME itself l 
6 28 (1C) CATALOG CAT itself l See parms 7 and 8. 
7 32 (20) catname/ CATALOG CATNM data 6 
password 
8 36 (24) dname CATALOG CATDN data 2 
9 40 (28) MASTERPW MRPW data 2 password 
10 44 (2C) SEQUENTIALDUMP SDUMP itself ! 
11 48 (30) INVOLUMES INVOL list 4 List of CRA volsers. 
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PARM FDT 
Parm Offset Parm Name 
No. 
0 (0) 
l 8 (8) TEST 
2 12 (C) OFF 
3 16 (10) TRACE 
4 20 (14) AREAS 
5 24 (18) FULL 
6 28 (1C) dumpid 
7 32 (20) count! 
8 36 (24) count2 
9 40 (28) GRAPHICS 
10 44 (2C) CHAIN 
Il 48 (30) TABLE 
12 52 (34) MARGINS 
13 56 (38) leftmargin 
14 60 (3C) rightmargin 
15 64 (40) AN 
16 68 (44) HN 
17 72 (48) PN 
18 76 (4C) QN 
19 80 (50) RN 
20 84 (54) SN 
21 88 (58) TN 
PRINT FDT 
Parm Offset Parm Name 
No. 
0 (0) 
l 8 (8) INFILE 
2 12 (C) unused - contains zeros 
3 16 (10) FROMKEY 
4 20 (14) FROMADDRESS 
5 24 (18) SKIP 
6 28 (1C) TOKEY 
7 32 (20) TOADDRESS 
8 36 (24) COUNT 
9 40 (28) dname/ 
password 
10 44 (2C) unused - contains zeros 
ll 48 (30) unused - contains zeros 
12 52 (34) HEX 
13 56 (38) CHARACTER 
14 60 (3C) DUMP 
15 64 (40) unused - contains zeros 
16 68 (44) ENVIRONMENT 
17 72 (48) RECORDFORMAT 
18 76 (4C) BLOCKSIZE 
19 80 (50) RECORDSIZE 
20 84 (54) unused - contains zeros 
21 88 (58) HINDEXDEVICE 
22 92 (SC) PRIMEDATADEVICE 


Sub-Parm of 


TEST 
TEST 
TEST 
TEST 
FULL,TEST 
FULL,TEST 
FULL,TEST 


GRAPHICS 
GRAPHICS 


MARGINS 

MARGINS 

CHAIN,GRAPHICS 
CHAIN,GRAPHICS 
CHAIN,GRAPHICS 
CHAIN,GRAPHICS 
CHAIN,GRAPHICS 
CHAIN,GRAPHICS 
CHAIN,GRAPHICS 


Sub-Parm of 


INFILE 


INFILE 


INFILE, 
ENVIRONMENT 


INFILE, 
ENVIRONMENT 


INFILE, 
ENVIRONMENT 


INFILE, 
ENVIRONMENT 


INFILE, 
ENVIRONMENT 


FDT 
Fieldname 


FDTVERB 
TEST 
TOFF 
TRACE 
AREA 
FULL 
FIDPTR 
BEGINPTR 


COUNTPTR 


GRAPH 
CHAIN 
TABLE 
MARG 
LMARG 
RMARG 
CHNAN 
CHNHN 
CHNPN 
CHNQN 
CHNRN 
CHNSN 
CHNTN 


FDT 
Fieldname 


FDTVERB 
INDN 


FMKYC 
FMRBA 
SKIP 
TOKYC 
TORBA 
COUNT 
INPDD 


FHEX 
FCHAR 
FDUMP 


IENV 
IRFMT 


IBKSZ 


IRCSZ 


IHDEV 


IPDEV 


Points 
to 


itself 
itself 
itself 
list 
itself 
data 
data 
data 
itself 
itself 
data 
itself 
data 
data 
itself 
itself 
itself 
itself 
itself 
itself 
itself 


Points 
to 


itself 


data 
data 
data 
data 
data 
data 
data 


itself 
itself 
itself 
itself 
itself 


data 


data 


data 


data 


Data Format 
Number 


ee O°) es oe ee ee ee ee ee ee ee ee ee) 


Data Format 
Number 


ol 


“a Ww WwW NO WwW Ww 


Notes 


PARMbbb6b 


See parms 2-5. 


See parms 6-8. 


Starting count for full dump. 
Number of full dumps desired. 
See parms 10 and 11. 

See parms 15-21. 


See parms 13 and 14. 


Notes 


PRINTO6bb 


See parms 9 and 16. 


Number of records to skip. 


Number of records to print. 


See parms 17-29 and 32-36, 
See parms 23-29, 
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Parm Offset Parm Name Sub-Parm of FDT Points DataFormat Notes 

No. Fieldname to Number 

23 96 (60) FIXUNB INFILE, IFUNB itself l 
ENVIRONMENT, 
RECORDFORMAT 

24 100 (64) FIXBLK INFILE, IFBLK itself 1 
ENVIRONMENT, 
RECORDFORMAT 

25 104 (68) VARUNB INFILE, IVUNB itself l 
ENVIRONMENT, 
RECORDFORMAT 

26 108 (6C) VARBLK INFILE, IVBLK itself 1 
ENVIRONMENT, 
RECORDFORMAT 

27 112 (70) SPNUNB INFILE, ISUNB itself l 
ENVIRONMENT, 
RECORDFORMAT 

28 116 (74) SPNBLK INFILE, ISBLK itself 1 
ENVIRONMENT, 
RECORDFORMAT 

29 120 (78) UNDEF INFILE, IUNDF itself l 
ENVIRONMENT, 
RECORDFORMAT 

30 124(7C) FROMNUMBER FMNUM data 3 

31 128 (80) TONUMBER TONUM data 3 

32 132 (84) STDLABEL | INFILE, ISLBL itself l 
ENVIRONMENT 

33 136 (88) NOLABEL INFILE, INLBL itself 1 
ENVIRONMENT 

34 140(8C) NOREWIND INFILE, INREW itself l 
ENVIRONMENT 

35 144 (90) REWIND INFILE, IREW itself 1 
ENVIRONMENT 

36 148 (94) UNLOAD INFILE, IUNLD itself 1 
ENVIRONMENT 

REPRO FDT 

Parm Offset Parm Name Sub-Parm of FDT Points DataFormat Notes 

No. Fieldname to Number 

0 (0) FDTVERB REPRObbb 

l 8 (8) INFILE INDN itself l See parms 9, 16-29, and 53-57. 

2 12 (C) OUTFILE OUTDN itself 1 See parms 10, 32-45, and 58-62. 

3 16 (10) FROMKEY FMKYC data 2 

4 20 (14) FROMADDRESS FMRBA data 3 

bh) 24 (18) SKIP SKIP data 3 Number of records to skip. 

6 28 (1C) TOKEY TOKYC data 2 

7 32 (20) TOADDRESS TORBA data 3 

8 36 (24) COUNT COUNT data 3 

9 40 (28) dname/ INFILE INPDD data 7 

password 
10 44 (2C) dname/ OUTFILE OUTDD data 7 
password 

Il 48 (30) unused - contains zeros 

12 52 (34) unused - contains zeros 

13 56 (38) FROMNUMBER FMNUM data 3 

14 60 (3C) TONUMBER TONUM data 3 

15 64 (40) unused - contains zeros 

16 68 (44) ENVIRONMENT INFILE IENV itself | See parms 17-29, 

17 72 (48) RECORDFORMAT INFILE, IRFMT itself 1 See parms 23-29 and 40-45, 
ENVIRONMENT 

18 76 (4C) BLOCKSIZE INFILE, IBKSZ data 3 
ENVIRONMENT 

19 80 (50) RECORDSIZE INFILE, — IRCSZ data 3 
ENVIRONMENT 

20 84 (54) unused - contains zeros 

21 88 (58) HINDEXDEVICE INFILE, IHDEV data 2 
ENVIRONMENT 
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Parm 
No. 


22 


23 


24 


25 


26 


27 


28 


29 


30 
31 
32 
33 


34 


35 


36 
37 


38 


39 


41 


42 


43 


45 


4) 
48 
49 
50 
$1 
52 
53 
54 
55 
56 
57 


Offset 


92 (SC) 


96 (60) 
100 (64) 
104 (68) 
108 (6C) 
112 (70) 
116 (74) 
120 (78) 


124 (7C) 
128 (80) 
132 (84) 
136 (88) 


140 (8C) 
144 (90) 


148 (94) 
152 (98) 


156 (9C) 


160 (A0) 
164 (A4) 
168 (A8) 
172 (AC) 
176 (BO) 
180 (B4) 
184 (B8) 


188 (BC) 
192 (C0) 
196 (C4) 
200 (C8) 
204 (CC) 
208 (D0) 
212 (D4) 
216 (D8) 
220 (DC) 
224 (E0) 
228 (E4) 
232 (E8) 


Parm Name 


PRIMEDATADEVICE 


FIXUNB 


FIXBLK 


VARUNB 


VARBLK 


SPNUNB 


SPNBLK 


UNDEF 


unused - contains zeros 
unused - contains zeros 
ENVIRONMENT 
RECORDFORMAT 


BLOCKSIZE 
RECORDSIZE 


unused - contains zeros 
HINDEXDEVICE 


PRIMEDATADEVICE 


FIXUNB 


FIXBLK 


VARUNB 


VARBLK 


SPNUNB 


SPNBLK 


UNDEF 


unused - contains zeros 
unused - contains zeros 
unused - contains zeros 
REPLACE 
NOREPLACE 
REUSE 

NOREUSE 
STDLABEL 
NOLABEL 
NOREWIND 
REWIND 

UNLOAD 


Sub-Parm of 


INFILE, 
ENVIRONMENT 


INFILE, 
ENVIRONMENT, 
RECORDFORMAT 


INFILE, 
ENVIRONMENT, 
RECORDFORMAT 


INFILE, 
ENVIRONMENT, 
RECORDFORMAT 


INFILE, 
ENVIRONMENT, 
RECORDFORMAT 


INFILE, 
ENVIRONMENT, 
RECORDFORMAT 


INFILE, 
ENVIRONMENT, 
RECORDFORMAT 


INFILE, 
ENVIRONMENT, 
RECORDFORMAT 


OUTFILE 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT 


OUTFILE, 
ENVIRONMENT, 
RECORDFORMAT 
OUTFILE, 
ENVIRONMENT, 
RECORDFORMAT 
OUTFILE, 
ENVIRONMENT, 
RECORDFORMAT 


OUTFILE, 
ENVIRONMENT, 
RECORDFORMAT 


OUTFILE, 
ENVIRONMENT, 
RECORDFORMAT 


OUTFILE, 
ENVIRONMENT, 
RECORDFORMAT 


OUTFILE, 
ENVIRONMENT, 
RECORDFORMAT 


INFILE 
INFILE 
INFILE 
INFILE 
INFILE 


FDT 


Fieldname 


IPDEV 


IFUNB 


IFBLK 


IVUNB 


IVBLK 


ISUNB 


ISBLK 


IUNDF 


OENV 
ORFMT 


OBKSZ 


ORCSZ 


OHDEV 


OPDEV 


OFUNB 


OFBLK 


OVUNB 


OVBLK 


OSUNB 


OSBLK 


OUNDF 


REP 
NREP 
RUS 
NRUS 
ISLBL 
INLBL 
INREW 
IREW 
IUNLD 


Points 
to 


data 


itself 


itself 


itself 


itself 


itself 


itself 


data 


itself 


itself 


itself 


itself 


itself 


itself 


itself 


itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 
itself 


Data Format 
Number 


2 


1 


=e = es eter lc ee Et 


Notes 


See parms 33-45, 


Chapter 5: Data Areas 


5-39 


Parm Offset Parm Name 

No. 

58 236(EC) STDLABEL 

59 240 (FO) NOLABEL 

60 244(F4) NOREWIND 

61 248(F8) REWIND 

62 252(FC) UNLOAD 

RESETCAT FDT 

Parm Offset Parm Name 

No. 

0 (0) 

l 8 (8) CATALOG 

2 12 (C) catname/ 
password 

3 16 (10) dname 

4 20 (14) password 

5 24 (18) WORKFILE 

6 28 (1C) WORKCAT 

7 32 (20) IGNORE 

8 36 (24) NOIGNORE 

9 40 (28) CRAFILES 

10 44 (2C) dname 

11 48 (30) ALL 

12 52 (34) NONE 

13 56 (38) unused - contains zeros 

14 60 (3C) unused - contains zeros 

15 64 (40) unused - contains zeros 

16 68 (44) dname/ 
password 

17 72 (48) weatname/ 
password 

18 76 (4C) wdname 

19 80 (50) CRAVOLUMES 

20 84 (58) volser 

21 88 (58) ALL 

22 92 (SC) none 

23 96 (60) WORKVOLUMES 

VERIFY FDT 

Parm Offset Parm Name 

No. 

0 (0) 
l 8 (8) FILE 
2 12 (C) DATASET 


* One pointer per object. 


5 - 40 


Sub-Parm of 


OUTFILE 
OUTFILE 
OUTFILE 
OUTFILE 
OUTFILE 


Sub-Parm of 


CATALOG 


CATALOG 
MASTERPW 


CRAFILES 


CRAFILES 


CRAFILES 


WORKFILE 


WORKCAT 


WORKCAT 


CRAVOLUMES 


CRAVOLUMES 


CRAVOLUMES 


Sub-Parm of 
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FDT 
Fieldname 


OSLBL 
ONLBL 
ONREW 
OREW 
OUNLD 


FDT 
Fieldname 


FDTVERB 
CAT 
CATNM 


CATDN 
MRPW 
WFDN 
WCATP 
IGN 
NIGN 
CFILE 


CRADN 


ALLP 


NONE 


WFILE 


WCAT 


WCATD 
CRVOLCNT 


CRVSR 


ALLV 


NONEV 


WVOL 


FDT 
Fieldname 


FDTVERB 
IN 
DSET 
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Points DataFormat Notes 


to Number 

itself 1 

itself 1 

itself 1 

itself l 

itself l 

Points DataFormat Notes 

to Number 
RESETCAT 

itself l See parms 2 and 3. 

data 6 

data 2 

data 2 

itself l See parm 16, 

itself H See parms 17 and 18. 

itself I 

itself l 

data 3 Count of the number of CRAs provided. 
See parms 10-12. 

list of 2 Each pointer points to a dname for 

pointers* the CRA it relates to, in the order they 
appear in CRAFILES. 

list of 1 Each pointer points to itself. 

pointers* 

list of 1 Each pointer points to itself. 

pointers* 

data 7 

data 6 

data 2 

data 3 Count to the number of CRAs provided. 
See parms 20, 21, 22. 

list of 4 Each pointer points to a volser for the 

pointers* CRA it relates to. The volsers are pointed 
to in the order that they appear in 
CRAVOLUMES. 

list of | Each pointer points to itself. 

pointers* 

list of l Each pointer points to itself. 

pointers* 

data 4 List of workfile volume serial numbers, 
optional password specified with the first 
volume. 

Points DataFormat Notes 

to Number 
VERIFYbb 

data 7 dname/password 

data 6 entryname/password 
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Global Data Table—GDT 


The GDT is the directory for the services and data areas of the processor. It 
contains a branch vector for the services provided by the System Adapter, the 
I/O Adapter, and the Text Processor. It also points to the invoker’s parame- 
ter list, trace tables, and historical tables. The GDT is always the first param- 
eter passed to any routine. The GDT is contained in the storage associated 


Global Data Table Description 


with module IDCSAO0O1. 

Created by Modified by 

IDCSAO! All service 

routines 

Bytes and 

Offset Bit Pattern 

0 (0) 4 

4 (4) 4 

8 (8) 

12(C) 

16 (10) 

20 (14) 4 

24 (18) 4 

28 (1C) 4 

32 (20) 4 

36 (24) 

40 (28) 4 

44 (2C) 4 

48 (30) 4 

52 (34) 4 

56 (38) 4 

60 (3C) 4 

64 (40) 4 

68 (44) 4 

72 (48) 4 

16 (4C) 4 

80 (50) 4 

84 (54) 4 

88 (58) 4 


Used by 


All routines 


Field Name 
GDTHDR 


GDTPRM 


GDTTRI 
GDTTR2 
GDTDBH 


GDTSTH 


GDTRIH 


GDTTPH 


GDTSAH 


GDTIOH 
GDTDBG 


GDTSTC 
GDTPRT 


GDTESS 


GDTESA 


GDTRST 


GDTRES 


GDTCAL 


GDTGSP 
GDTFSP 


GDTGPL 


GDTFPL 


GDTLOD 


Size 
188 


Description: Content, Meaning, Use 


Global Data Table header; contains 
‘GDTb’. 


Address of parameter list from invoker of 
the processor. (See “Processor 
Invocation” in “Program Organization” 
for details.) 


Address of Inter-Module Trace Table. 
Address of Intra-Module Trace Table. 


Address of Debugging-Aids historical 
area. (See also “TEST Option data 
area.’’) 


Reserved. 


Address of Reader/Interpreter historical 
area. 


Address of Text Processor historical area, 
the primary Print Control Table (PCT). 


Address of System Adapter historical 
area. 


Address of I/O Adapter historical area. 


Address of entry point for dump routine, 
IDCDB01, (UDUMP macro). 


Reserved. 


Address of entry point to print, ID- 
CIOPR, (UPRINT macro). 


Address of entry point to establish PCT 
from Text Structure, IDCTPES, (UESTS 
macro). 


Address of entry point to establish PCT 
from storage, IDCTPEA, (UESTA ma- 
cro). 


Address of entry point to modify PCT, 
IDCTPRS, (UREST macro). 


Address of entry point to reset PCT, 
IDCTPRE, (URESET macro). 


Address of entry point to call, 
IDCSACL, (UCALL macro). 


Address of entry point 


Address of entry point to free storage, 
IDCSAFS, (UFSPACE macro). 


Address of entry point to get storage, 
IDCSAGP, (UGPOOL macro). 


Address of entry point to free storage, 
IDCSAFP, (UFPOOL macro). 


Address of entry point to load module, 
IDCSALD, (ULOAD macro). 
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Offset 
92 (SC) 


96 (60) 

100 (64) 
104 (68) 
108 (6C) 
112 (70) 


116 (74) 
120 (78) 
124 (7C) 


128 (80) 
130 (84) 
134 (88) 


140 (8C) 


144 (90) 


148 (94) 


152 (98) 


156 (9C) 
160 (A0) 
164 (A4) 


168 (A8) 
172 (AC) 


176 (BO) 
180 (B4) 
184 (B8) 


188 (BC) 
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Bytes and 
Bit Pattern 


4 


4 


Field Name 
GDTDEL 


GDTPRL 
GDTEPL 
GDTTIM 
GDTIIO 

GDTTIO 


GDTRIP 
GDTTOH 
GDTOPN 


GDTCLS 
GDTGET 
GDTPUT 


GDTPOS 


GDTCPY 


GDTCAT 


GDTABT 


GDTABH 


* 


GDTSNP 


GDTSPR 
GDTVFY 


GDTENQ 
GDTDEQ 
GDTIFO 


GDTERR 
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Description: Content, Meaning, Use 
Address of entry point to delete module, 
IDCSADE, (UDELETE macro). 


Address of entry point for prologue, 
IDCSAPR. 


Address of entry point for epilogue, 
IDCSAEP, (UEPIL macro). 


Address of entry point for time, IDCSA- 
TI, (UTIME macro). 


Address of entry point for I/O initializa- 
tion, IDCIOIT, (UIOINIT macro). 


Address of entry point for I/O termina- 
tion, IDCIOTM, (UIOTERM macro). 


Reader/Interpreter name pointer. 
I/O Adapter data pointer. 


Address of entry point to open data sets, 
IDCIOOP, (UOPEN macro). 


Address of entry point to close data sets, 
IDCIOCL, (UCLOSE macro). 


Address of entry point to get a logical 
record, IDCIOGT, (UGET macro). 


Address of entry point to put a logical 
record, IDCIOPT, (UPUT macro). 


Address of entry point to position to a 
logical record, IDCIOPO, (UPOSIT ma- 


cro). 


Address of entry point to copy logical 
records, IDCIOCO, (UCOPY macro). 


Address of entry point for manipulating 
VSAM catalog, IDCSACA, (UCATLG 
macro). 


Address to abort, SAABT in IDCSA02, 
(UABORT macro). 


Address of UABORT register save area. 
Reserved. 


Address of entry point to snap dump, 
IDCSASN, (USNAP macro). 


Address of IDCSA03’s storage. 


Address of entry point to VERIFY data 
set, IDCIOVY (UVERIFY macro). 


Address of entry point to UENQ macro. 
Address of entry point to DEQ macro. 


Address of entry point to UIOINFO 
macro. 


Address of entry point to UERROR 
macro. 
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Input Parameter Table—IPT 
The Input Parameter Table is a parameter list passed by IDCRCO01 to 
IDCRC02 within EXPORTRA. It is an array of five pointers. Each object 
pointed to is described after the IPT pointers. 


Input Parameter Table Description 


Created by Modified by Used by Size 
IDCRCO1 IDCRC02 IDCRC02 20 
Bytes and 

Offset Bit Pattern Field Name Description: Content, Meaning Use 

0 (0) 4 Address of control block describing the 
object to be exported. 

4 (4) 4 Address of control block describing the 
output (portable) data set. 

8 (8) 4 Address of the input dname. 

12 (C) 4 Address of the output dname. 

16 (10) 4 Address of the prime data device (PDEV 


subparameter). 


Description of control block describing object to be exported. 


0 (0) l OBJTYP Type of object. 

1 (1) 3 OBJVAL The catalog control interval number of 
the entrys. 

4 (4) 4 RESINP Reserved 

8 (8) l OBJPLN Password length. 

9 (9) 8 OBJPAS Password 


Description of control block describing output (portable) data set. 


0 (0) 4 OUTLEN RECORDMODE: Maximum record 
length of data components. 
CIMODE: Maximum control interval 
size of data components. 
4 (4) 4 SAVOIOCS Pointer to output IOCS. 
8 (8) 4 USBKSZ User supplied output blocksize. 
12(C) 4 RESOUTP Reserved. 
16 (10) l OUTFLGS Status of output data set. 
Leeacens OPNFLG This flag is on if output data set is open. 
& oe ENDFLG This flag is on if this is the last request. 
im ee EMPTYDS This flag is on if the object contains no 
data records. 
Fikes CIMODE This flag is on if output is to be in export 
control interval mode. 
XXXX . Reserved. 
17 1) 1 PARMOPTS Flags for parameter options. 
ere STDLABEL Standard label option. 
aes NOLABEL No label option. 
ca aes NOREWIND No rewind option. 
oo ere UNLOAD Unload option. 
mre re NOINDNAME No INPUT dname. 
ve XXX Reserved. 


The third pointer in the IPT points to an 8-byte input dname (INDDNM). 
The fourth pointer in the IPT points to an 8-byte output dname (OUTDDNM). 


The fifth pointer in the IPT points to an 8-byte field describing the prime data device (PDEV 
subparameter) (PDEVNM). 
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The I/O Adapter historical area is pointed to by GDTIOH. It is built on the 
first call to the I/O Adapter (UIOINIT macro), and contains information 
that is common to all modules of the I/O Adapter. 


Created by 
IDCIOO! 


I/O Adapter Historical Area Description 


Offset 
0 (0) 
4 (4) 
8 (8) 
12 (C) 
16 (10) 


20 (14) 
32 (20) 


36 (24) 
40 (28) 
44 (2C) 
48 (30) 


52 (34) 
56 (38) 
60 (3C) 
64 (40) 


Input/Output Communications Structure—IOCSTR 


Modified by 
IDCIOOl! 
Bytes and 
Bit Pattern Field Name 
4 IODIOC 
4 IODMSG 
4 IODADD 
4 IODXTN 
4 IODSID 
Desi IODMID 
see IODINC 
12 * 
4 IODEOD 
4 IODOSS 
4 IODOSO 
4 IODICS 
4 IODOCS 
4 me 
4 * 
4 IODAEI 
4 * 


Used by Size 
IDCIOO! 68 
IDCIO02 


Description: Content, Meaning, Use 
First IOCSTR in chain. 
Reserved—contains zeros. 

Address of the alternate DD list. 
Address of the external I/O routine list. 
Identifier: 

Module identifier. 

Pool identifier. 

Reserved. 


Address of end-of-data routine for 
nonVSAM data sets. 


NonVSAM input SYNAD routine 
address. 


NonVSAM output SYNAD routine 
address. 


Address of Access Method Services 
system-input IOCSTR. 


Address of the Access Method Services 
system-output IOCSTR. 


Reserved. 
Reserved. 
Address of VSAM EODAD routine. 
Reserved. 


An IOCSTR exists for each open data set, or for any on which an open has 
been attempted. It contains all information about the data set that may be 
required by the processor. An IOCSTR is built at open time, and a pointer to 
the IOCSTR is returned to the requester of the open, in the OPNIOC field of 
the OPNAGL. A UGPOOL area immediately precedes the IOCSTR. The 
UGPOOL area contains the identifier assigned to the data set by the I/O 
Adapter. All other requests for I/O service include this IOCSTR as one of 
the parameters for the request. 


Modified by 
All routines 


Created by 
IDCIO02 


Input/Output Communications Structure Description 


Offset 
-4 (-4) 
0 (0) 
4 (4) 
8 (8) 


12 (C) 
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Bytes and 


Bit Pattern 


4 


4 
4 
4 


Field Name 


* 


IOCDAD 
IOCDLN 
IOCTRN 


IOCKYL 


Used by Size 
All routines 68 


Description: Content, Meaning, Use 
Always contains ‘IOCS’. 

Address of data area. 

Length of data record. 


Transmission length: LRECL for logical 
processing or control interval for block 
processing. 


Key length in bytes. 
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Offset 
13 (D) 


16 (10) 


17(11) 


18 (12) 


19 (13) 


20 (14) 


21 (15) 


22 (16) 


28 (1C) 
32 (20) 


Bytes and 
Bit Pattern 


oaes Leese 


Field Name 
IOCRKP 


IOCDSO 


IOCDSOAM 
IOCDSOPS 
IOCDSOIS 
IOCDSOPO 


IOCRFM 


IOCRFMFX 
IOCRFMVR 
IOCRFMUN 
IOCRFMSF 
IOCRFMBK 
* 


IOCMAC 


IOCMACIN 

IOCMACOT 
IOCMACUP 
IOCMACCR 


IOCMACBK 


IOCMACDR 


* 


IOCMACCI 


IOCMAC2 
IOCMACSK 
IOCMACAS 
IOCMACRR 
IOCMACCP 
IOCMACEN 
IOCMACPA 
IOCMACER 
* 


IOCCHP 
IOCCHPSQ 
IOCCHPDR 
IOCCHPSK 
IOCCHPKS 
IOCCHPCR 
IOCCHPBK 
IOCCHPUP 
IOCCHPNU 


IOCMSG 
IOCHPKE 
IOCHPKG 
IOCMSGOP 
IOCMSGOE 
IOCMSGCE 
IOCMSGAE 
IOCMSGSM 
* 


IOCVOLSR 


IOCHURBA 
IOCDSN 


Description: Content, Meaning, Use 


Relative key position, value assumes 
VSAM or ISAM meaning. 


Data set organization: 


VSAM data set. 

NonVSAM sequential data set. 
Indexed sequential (ISAM) data set. 
Partitioned data set. 


NonVSAM record format: 


Fixed-length records. 
Variable-length records, not spanned. 
Undefined-length records. 

Spanned records. 

Blocked records. 

Reserved. 


Macro form used: 


Input processing. 

Output processing. 

Update processing. 

Keyed sequence. 

Entry sequence. 

Logical records. 

Blocks or control intervals. 
Sequential processing. 

Direct processing. 

Reserved. 

Export RECORDMODE processing. 
Export CIMODE processing. 


Skip sequential processing. 
Asynchronous processing (OS/VS only). 
Relative record processing. 

Change processing. 

PUT—-ENDREQ processing. 
Reprocessing flag. 

PUT—ERASE processing 

Reserved. 


Change processing modes. 
Change to sequential. 
Change to direct. 

Change to skip sequential. 
Change to keyed. 

Change to addressed. 
Change to control interval. 
Change to update. 

Change to no update. 


Message flags: 

Change to key equal. 

Change to greater than or equal. 
Data set is open. 

VSAM OPEN error. 

VSAM CLOSE error. 

VSAM action error. 

Suppress logical error messages. 
Reserved. 


Volume serial number of opened data 
set. 


High-used RBA. 


Address of data set name. 


The data set name usually follows the IOCSTR extension. 


36 (24) 
40 (28) 
44 (2C) 


4 
4 
4 


IOCCBP 
IOCRBA 
IOCKYA 


Control block address. 
Record RBA (VSAM). 
Address of key. 
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Bytes and 

Offset Bit Pattern Field Name Description: Content, Meaning, Use 

48 (30) 2 IOCPTL Length of key supplied for position 
request. 

50 (32) wee IOCPNM Number of stacked puts. 

52 (34) 4 IOCRRN Relative record number. 

IOCSYSNO For CRAs this field is passback from 

UOPEN and contains the two-byte field 
(in CCB format) that was passed back to 
UOPEN from IKQASNMT (ASSIGN 
macro), On UCLOSE, if this field is 
nonzero, IKQASNMT is called to unas- 
sign this logical unit. 

56 (38) IOCWORK Address of input work area. 

60 (3C) 4 IOCREL Relative record number. 

64 (40) 4 IOCEXT IOCSTR extension address. 


IOCSTR Extension—IOCSEX 


IOCSTR Extension Description 


5 - 46 


The IOCSTR Extension is built immediately after the IOCSTR. However, 
for flexibility and to make the IOCSTR easily extensible, field IOCEXT 
points to the IOCSEX. 


Created by Modified by Used by Size 
IDCiO02 IDCIOO! IDCIOO1 45 
Bytes and 


Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 4 IOCCBA Address of ACB or DTF. 

4 (4) 4 IOCRPL Address of VSAM RPL. 

8 (8) 2 IOCCBL Length of ACB or DTF. 

10 (A) ae IOCLRP Length of RPL. 

12 (C) 4 IOCWKA Address of input work area. 


At decimal displacements 16 and 20, one of the two following sets of fields appears: 


16 (10) 4 IOCXAD External routine address. 
16 (10) 4 IOCEXA VSAM exit list address. 
20 (14) 4 IOCXPM External routine parameter address. 
20 (14) 2 IOCEXL VSAM exit list length. 
22 (16) ae: Reserved. 
The data area then continues as follows. 
24 (18) 4 IOCNIO Address of next IOCSTR in chain. 
28 (1C) 4 IOCSID Storage pool identifier. 
32 (20) l IOCFLG Extension flags: 
Lacs IOCFLGEX Externally controlled data set. 
A rere IOCFLGDF Data set is defined. 
a Decrees IOCFLGEF End-of-file on external data set. 
pol sats IOCFLGIO SYSLST or SYSIPT. 
jan Lae IOCFLGOP Data set is open. 
Perey ee IOCFLGOE Reserved. 
eh IOCFLGSP Access Method Services system-print 
data set. 
33 (21) ad IOCDEV Device type flags: 
reer IOCDEVDA Direct access. 
hiswes IOCDEVMT Magnetic tape. 
eee IOCDEVUR Reserved. 
34 (22) veil IOCINF Information flags: 
ery IOCINFPT Reserved. 
A saetes IOCINFAE Reserved. 
sade Aes IOCINFND Reserved. 
ere IOCINFQX Reserved. 


VSE/VSAM Access Method Services Logic 


Licensed Material — Property of IBM 


Offset 


35 (23) 


36 (24) 
40 (28) 
42 (2A) 


44 (2C) 


Inter-Module Trace Table 


Bytes and 
Bit Pattern 


Field Name 


IOCINFAC 
IOCINFDO 
IOCINFCT 
IOCINFRI 


IOCMOD 


IOCMODPD 
IOCMODRR 
IOCMODUB 
IOCMODXM 
IOCMODRP 
IOCMODEX 


IOCDLM 
IOCDNM 
IOCVLN 


IOCRCV 


IOCRCVXM 
IOCRCVRA 


IOCRCVCL 


Description: Content, Meaning, Use 


ANSI control character. 
VSE data set. 

Opened as a catalog. 
Reserved. 


Additional information flags: 


Reserved—contains zero. 
Return RPL address. 
User buffering. 
Export/import. 

Replace processing. 
Exclusive control. 


Address of VSE load module. 
Module length. 


Length of VSE variable blocked 
remainder. 


Flags for recovery. 


Recovery bit for VSAM. 
Open CRA. 


Skip close. 


Reserved—contains zero. 


The Inter-Module Trace Table contains information on the flow of control 
between modules. The table is pointed to by GDTTRI. The oldest identifier 
is at the beginning of the table. The latest identifier is at the end of the table. 
Each time a UPROL or UEPIL macro is issued the oldest identifier is re- 
moved and the new identifier is added at the end. A UPROL adds the 
identifier of the current module. A UEPIL adds the identifier of the module 
to which control is being returned. The UDUMP macro prints the table on 


SYSLST. 
Created by Modified by Used by Size 
IDCSAOl1 UEPIL IDCDBO0!1 100 
UPROL macros 
Inter-Module Trace Table Description 
Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
-6 (-6) 6 . Table identification ‘INTERb’. 
0 (0) 100 . Inter-Module Trace Table with 20 


entries. 
Each entry contains the following: 


4 . Identifier provided by module issuing 
UEPIL or UPROL macros. The identifi- 
er is the last four characters of the mo- 


dule name. 
Blank ‘b’. 


Intra-Module Trace Table 


The Intra-Module Trace Table contains information on the flow of control 
within modules. The table is pointed to by GDTTR2. The oldest identifier is 
at the beginning of the table. The latest identifier is at the end of the table. 
Created by Modified by Used by Size 

IDCSA01 UTRACE macro IDCDBO01 100 
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Intra-Module Trace Table Description 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
~6 (-6) 6 . Table identification ‘INTRAb’. 
0 (0) 100 . Intra-Module Trace Table with 20 
entries. 
Each entry contains the following: 
4 . Identifier provided by module issuing 


UTRACE. The first two characters are 

the mnemonic identifier which are char- 
acters 4 and 5 of the module name. For 
example, EX refers to the Executive. 


l sg Blank ‘b’. 


Modal Verb and Keyword Symbol Table—IDCRIKT 


Load module IDCRIKT contains the Modal Verb and Keyword Symbol 
Table, which acts as the “Command Descriptor’ for the modal commands. 


Created by Modified by Used by Size 
IBM-Supplied None IDCRIO! 90 


Modal Verb and Keyword Symbol Table Description 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) l PARMSMLN Length of PARM character string. 
L(t) 9 PARMSYM PARM character string. 
10 (A) od SETSMLN Length of SET character string. 
11 (13) SETSYM SET character string. 
20 (14) l IFSMLN Length of IF character string. 
21 (15) .@9 IFSYM If character string. 
30 (1E) il THENSMLN Length of THEN character string. 
31 (LF) THENSYM THEN character string. 
40 (28) I ELSESMLN Length of ELSE character string. 
41 (29) “o ELSESYM ELSE character string. 
50 (32) | DOSMLN Length of DO character string. 
51 (33) DOSYM DO character string. 
60 (3C) 1 ENDSMLN Length of END character string. 
61 (30) 29 ENDSYM END character string. 
70 (46) | LSTCCLN Length of LASTCC character string. 
71 (47) LSTCCSYM LASTCC character string. 
80 (50) l MAXCCLN Length of MAXCC character string. 
81 (51) .9 MAXCCSYM MAXCC character string. 


Open Argument List—OPNAGL 


5 - 48 


The OPNAGL defines a request to open a data set. The address of the 
OPNAGL is passed as a parameter to the I/O Adapter from any routine that 
requires the open function. 


Created by Modified by Used by Size 


Routine that IDCIO02 IDCIO02 80 
requests an open 
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Open Argument List Description 


Offset 
0 (0) 


I (1) 


2 (2) 


3 (3) 


4 (4) 


8 (8) 


12 (C) 


16 (10) 
20 (14) 
24 (18) 


28 (iC) 


32 (20) 
36 (24) 
40 (28) 
41 (29) 


Bytes and 
Bit Pattern 


Field Name 
OPNOPT 


OPNOPTIN 

OPNOPTOT 
OPNOPTUP 
OPNOPTBK 
OPNOPTKS 
OPNOPTCR 
OPNOPTDR 
OPNOPTSK 


OPNRFM 


OPNRFMFX 
OPNRFMVR 
OPNRFMUN 
OPNRFMSF 
OPNRFMBK 
OPNTYP 
OPNTYPSI 


OPNTYPSO 


OPNTYPCI 
OPNTYPXM 
OPNTYPRA 
OPNTYPEX 
OPNTYPRV 
OPNTYPSY 


OPNMOD 


OPNMODPD 
OPNMODAC 
OPNMODRC 
OPNMODRR 
OPNMODAX 
OPNMODRS 
OPNMODUB 
OPNMODRP 


OPNIOC 


OPNDDN 


OPNPWA 


OPNDSN 
OPNCBP 
OPNDEVDT 


OPNDEVIX 


OPNREC 
OPNBLK 
OPNKYL 


OPNDSO 
OPNDSOAM 


Description: Content, Meaning, Use 
Open options (determine data set usage). 


Input data set. 

Output data set. 

Update mode of processing. 
Block processing. 

Keyed processing. 
Addressed processing. 
Direct processing. 

Skip sequential processing. 


NonVSAM output record format 
Required. 


Fixed. 
Variable. 
Undefined. 
Spanned. 
Blocked. 
Data set type: 


System input (SYSIPT) is to be opened. 
OPNIOC is the only other required field. 
System output (SYSLST) is to be 
opened. OPNIOC is the only other re- 
quired field. 

Catalog to be opened. 

Export/import. 

Catalog recovery area. 

Exclusive control. 

VSAM recovery processing. 

Reserved. Not used in VSE 

Open modifiers. 

Reserved—contains zero. 
Reserved—contains zero. 

Return control block address. 

Return RPL address. 

Open alternate index. 

Open with reset. 

User buffering. 

Replace processing. 

Address of pointer of IOCSTR. This 
field is always present. After a successful 
open, the pointer contains the address of 
the IOCSTR built by the I/O Adapter. 


Address of eight-byte D name (not 
present when SYSIPT or SYSLST is be- 
ing opened but required at all other 
times). The D name is the TLBL/DLBL 
name with one blank on the right. 


Address of an optional eight-byte 
password, used only with VSAM data 
sets. 


Pointer to 44-byte data-set name. 
Reserved—contains zeros. 


Address of device that nonVSAM data 
set resides on. 


Address of device that ISAM index data 
set resides on. 


Logical record length, optional. 
Block size, optional. 
Reserved. 


Data set organization. 
VSAM data set. 
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Open Close Address Ar 


Bytes and 
Offset Bit Pattern 
re 
ee 
vue XXXX 
42 (2A) ae | 
| eee 
Slik 
4 O., 
we O., 
pala 
a0) 
ed 
ore X 
43 (2B) a 
44 (2C) 4 
48 (3C) l 
ee 
XXX 
49 (31) l 
| Fe 
XXX XXXX 
50 (32) 2 
$2 (34) 4 
56 (38) 24 
ray—OCARRAY 


Field Name 


OPNDSOPS 
OPNDSOIS 
OPNDSOPO 


OPNOPT2 
OPNOPTAS 
OPNOPTUM 
OPNOPTRW 
OPNOPTUL 
OPNOPTSL 


OPNOPTCI 


* 


OPNSTRNO 
OPNVOL 


OPNFRM2 
OPNFRMNB 


OPNOPT3 
OPNOPTSN 


OPNCAT 


Licensed Material — Property of IBM 


Description: Content, Meaning, Use 


NonVSAM data set. 
ISAM data set. 
Partitioned data set. 
Reserved. 


Second option byte. 
Asynchronous processing (OS/VS only). 
PSNAME is in OPNAGL. 
Reserved. 

REWIND option. 

NOREWIND option. 

No unload option. 

UNLOAD option. 

NOLABEL option. 

STDLABEL option. 

Export RECORDMODE option. 
Export CIMODE option. 
Reserved. 


Number of strings. 
Pointer to volume serial number, 


Format related flags. 

Process records without SAM blocking. 
Set ‘u’ mode processing in AMDSB if 
data set is SAM ESDS. 

Reserved. 


OPTION related flags. 

Points to a 2-byte logical unit number 
and not to a data-set name. 

Reserved. 


Reserved. 


Pointer to a 44-byte catalog name to be 
used to open the given data set. 


Reserved. 


The Open Close Address Array is used to pass the address of the OPNAGL 
or IOCS for up to four data sets at once from IDCIOO! to IDCIO02. It is 
used within the I/O Adapter. 


Created by 
IDCI001 


Open Close Address Array Description 


Offset 
0 (0) 
1 (1) 


2 (2) 
4 (4) 


8 (8) 


12) 


5-50 


16 (10) 
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Modified by 


None 


: Bytes and 


Bit Pattern 


Used by 
IDCI002 


Field Name 
OCATYP 
OCAOPT 


OCAOPTCA 
OCANUM 
* 
OCADDR(1) 
OCADDR(2) 


OCADDR(3) 


OCADDR(4) 


Size 
20 


Description: Content, Meaning, Use 
Type of operation: 1 - open, 2 - close. 
Options: | 

Close all open data sets. 


Number of data sets to open. 
Reserved. 


Address of OPNAGL for open or 
address of IOCSTR for close. 


Address of OPNAGL for open or 
address of IOCSTR for close. 


Address of OPNAGL for open or 
address of IOCSTR for close. 


Address of OPNAGL for open or 
address of IOCSTR for close. 
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Phase Table 


The Phase Table is a phase (IDCSA04) loaded by IDCSAO1 at initialization 
time. This phase contains an entry for each of the other phases within the 
Access Method Services system, excluding phase IDCAMS, IDCSA04, and 
the DTFs. Each entry contains phase status information that is needed for 
loading the particular phase during Access Method Services execution; only if 
the CDLOAD anchor table is full. One such entry is described below; the 
total size of all entries is 768. 


Created by Modified by Used by Size 
IBM-Supplied IDCSA02 IDCSA02 768 
IDCSA03 IDCSA03 
Phase Table Description 
Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 8 PLANAME Name of phase this entry describes. 
8 (8) 4 PLAADDR Address of phase or 0 if not loaded via 
phase table. 
12 (C) l PLAUSE Number of requests to load this phase. 
13 (E) 3 PLALN Phase size in hex. 


Positioning Argument List—OPRARG 


OPRARG contains the address of the IOCSTR defining the data set to be 
positioned. It is used within the I/O Adapter. 


Created by Modified by Used by Size 
IDCIOO! None IDCIO03 12 


Positioning Argument List Description 


Bytes and 

Offset Bit Pattern Field Name Description: Content, Meaning, Use 

0 (0) | OPRTYP Type of operation: | indicates POINT or 
SETL and 3 indicates UIOINFO. 

1 (A) l OPRPNO Total number of parameters passed to 
UIOINFO. 

2 (2) ie : Reserved. 

4 (4) 4 OPRICS Address of input IOCSTR (the data set 
to be positioned). 

8 (8) 4 OPROCS Address of output IOCSTR. 


Print Control Argument List—PCARG 


The Print Control Argument List is used to build a PCT (Print Control 
Table). This list is an argument of the UESTS macro or the UESTA macro, 
used to establish a PCT. The list is in a static text module or in storage. 


Created by Modified by Used by Size 
Calling Routine None IDCTP04 33 


Print Control Argument List Description 


Bytes and 

Offset Bit Pattern Field Name Description: Content, Meaning, Use 

0 (0) 4 PCMTLP If PCARG is in a static text module, this 
is an offset from the beginning of the 
PCARG to a main title line, fully- 
formatted. If PCARG is in storage, this 
is the address of a main title line, fully- 
formatted. 

4 (4) 4 PCSTLP If PCARG is in a static text module, this 


is an offset from the beginning of the 
PCARG to one, two, or three contiguous, 
fully-formatted lines for the subtitle. If 
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Offset 


8 (8) 


12 (C) 


16 (10) 


18 (12) 
20 (14) 
22 (16) 
24 (18) 
26 (1A) 
28 (1C) 
30 (1E) 
32 (20) 


Print Control Table—PCT 


Bytes and 


Bit Pattern 


l 


Field Name 


PCFLP 


PCPCP 


PCPNL 


PCPTL 
PCPDL 
PCMTLC 
PCSTLC 
PCFLC 
PCLW 
PCPD 
PCDSC 
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Description: Content, Meaning, Use 


PCARG is in storage, this is the address 
of subtitle lines. The first byte of each 
line contains the spacing character (0, I, 
2, or 3), and the number of lines is found 
in PCSTLC. 


If PCARG is in a static text module, this 
is an offset from the beginning of the 
PCARG to one, two, or three contiguous, 
fully-formatted footing lines. If PCARG 
is in storage, this is the address of footing 
lines. The first byte of each line contains 
the spacing character (0, 1, 2, or 3), and 
the number of lines is found in PCFLC. 


If PCARG is in a static text module, this 
is an offset from the beginning of the 
PCARG to a 256-byte print chain trans- 
late table. If PCARG is in storage, this is 
the address of a 256-byte print chain 
translate table. 


Print column number where the page 
number field begins. 


Time field location. 

Date field location. 

Number of lines at PCMTLP. 
Number of lines at PCSTLP. 
Number of lines at PCFLP. 
Print line width. 

Page depth. 


Default space character, used when space 
character is not given; invalid, or on 
overflow. Valid values are 1, 2, or 3. 


The Print Control Table contains the current page specifications for printing: 
page width and depth, pointers to heading and footing lines, etc. One PCT, 
called the primary PCT, contains the default values established at processor 
initialization time. An optional PCT, called the secondary PCT, contains 
page specifications that are unique to a particular FSR, and is cleared be- 
tween commands. Both PCTs have the same format. 


Created by 
IDCTP04 


Print Control Table Description 


Offset 
0 (0) 


4 (4) 
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Modified by 
IDCTP0S5 
' IDCTPO! 
| Bytes and 
Bit Pattern Field Name 
4 PCTIDN 
4 PCTFLG 
bere PCTHIF 
m ae PCTH2F 
fy oe PCTHAF 


Used by Size 
IDCTPO! 108 


Description: Content, Meaning, Use 


Identification field: the primary PCT 
contains “PCT 1” in this field; the sec- 
ondary PCT contains “PCT2”. 


Action flags: 

A new header is being entered. This bit 
is set by IDCTPOS and reset by IDCTPO! 
as soon as the first header line is printed. 
More than one header line is to be saved. 
This bit is set when the first line is print- 
ed by IDCTPO! and reset when the last 
line has been printed. The count in 
PCTHLC controls this bit. 

A header has been set up. This bit is set 
by IDCTP03. 
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Offset 


8 (8) 
12 (C) 


16 (10) 
18 (12) 


20 (14) 
24 (18) 


26 (1A) 
28 (IC) 
32 (20) 
34 (22) 
36 (24) 
44 (2C) 


48 (30) 


52 (34) 
56 (38) 
60 (3C) 


64 (40) 
68 (44) 
72 (48) 
14 (4A) 
76 (4C) 


80 (50) 
82 (52) 
83 (53) 


84 (54) 


86 (56) 


88 (58) 
90 (5A) 


92 (SC) 


Bytes and 
Bit Pattern 


Field Name 


PCTLLM 
PCTAPF 
PCTSPP 
PCTIOC 


PCTCPN 
PCTNLI 


PCTIOS 
PCTSPN 


PCTSNL 
PCTIOP 

PCTAPN 
PCTANL 
PCTSTM 
PCTSME 


PCTSQP 


PCTAHP 
PCTMLP 
PCTSLP 


PCTTRP 
PCTPLW 
PCTMLC 
PCTSLC 
PCTFLP 


PCTFLC 
PCTHLC 
PCTHSC 


PCTPNL 


PCTPMN 


PCTAPC 
PCTPPD 


PCTDSC 


Description: Content, Meaning, Use 
Last line was a message. 
Alternate print file flag. 


Address of secondary PCT. This field is 
ignored in the secondary PCT. 


Address of IOCSTR to be used with 
UPUT macro. 


Current page number on active data set. 


Next absolute line number on the current 
page of active data set. 


Address of IOCSTR for SYSLST. 


Current page number on standard data 
set. 


Next absolute line number on the current 
page of standard data set. 


Address of IOCSTR for alternate print 
data set. 


Current page number on alternate data 
set. 


Next absolute line number on the current 
page of alternate data set. 


Name of the Static Text module 
presently in virtual storage. 


Entry point for Static Text module 
presently in virtual storage. 


Address of queue of format structures 
that are retained until the completion of 
the function or the issuance of a URE- 
SET. 


Address of the last header line that was 
used, needed on an overflow. 


Address of main title lines, already fully 
formatted. 


Address of subtitle lines, already fully 
formatted. 


Address of translate table. 

Print line width for the output device. 
Number of main title lines. 

Number of subtitle lines. 


Address of footing lines, already fully 
formatted. 


Number of footing lines. 
Number of heading lines. 


Total number of lines consumed by the 
currently active header and the first data 
line. 

Page number location in the main title 
line. 


Signals that this is a message. Before 
writing a message it contains -1. During 
writing a message it contains the message 
number. 


“Floating” print column number, used 
with blank suppression. 


Total number of lines and spaces that 
may be printed on one page. 


Default space count, used for overflow or 
in place of an invalid spacing request. 
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Offset 
94 (5E) 


96 (60) 
98 (62) 
100 (64) 


102 (66) 
104 (68) 
108 (6C) 


Bytes and 
Bit Pattern 


2 


Field Name 
PCTPNI 


PCTFDL 


PCTLDL 


PCTFLN 


PCTLNM 
PCTBUF 
PCTBNL 
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Description: Content, Meaning, Use 
Page number increment, added to 
PCTCPN at each page eject. 


Absolute line number for the first data 
line on each page. 


Absolute line number of the last data 
line. 


Absolute line number for the first footing 
line. 


Lines in print stack. 
Buffer address. 
Address in buffer for next line. 


Reader/Interpreter Communication Area—COMMAREA 


The COMMAREA is only used within the Reader/Interpreter to pass in- 
formation between the phases of the Reader/Interpreter. 


Reader/Interpreter Communication Area Descr 


5 - 54 


Created by 
IDCRIOI 


Offset 
0 (0) 


4 (4) 
8 (8) 
12(C) 
16 (10) 
18 (12) 
20 (14) 


22 (16) 
24 (18) 
26 (1A) 


34 (22) 


38 (26) 
46 (2E) 


54 (36) 
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Modified by 
IDCRIO1 
IDCRIO02 
IDCRIO3 
iption 
Bytes and 
Bit Pattern Field Name 
4 RECRDPTR 
4 FDTADDR 
4 DESCPTR 
4 WORKPTR 
2 RISTATUS 
2 SCANINDX 
Z SCNLIMIT 
2 LASTCC 
2 MAXCC 
8 FSRLNAME 
4 POOLID 
8 VERBNAME 
8 DESCNAME 
1 # 
lias seve GOODCMD 
oy ieee EOFOK 
las OPTSFLAG 
sigh att SCANONLY 
ey SKIPPAST 


Used by Size 
IDCRIO! 55 
IDCRI02 

IDCRIO3 


Description: Content, Meaning, Use 


Address of the beginning of the record 
currently being scanned. 


Address of the primary pointer vector for 
the FDT. 


Address of the Command Descriptor 
currently being used. 


Address of local work area. 


Internal error code for the 
Reader/Interpreter; set to nonzero if an 
error is discovered. 


Offset into the current record of the last 
character that was extracted. 


Location of the final character in the 
current record that may be scanned. 


Last processor condition code. 
Maximum processor condition code. 


FSR phase name to be invoked if this 
command is executed. 


Storage area identification code for all 
space used for the FDT. 


Verb from the current input command. 


Module name for the current Command 
Descriptor. 


Miscellaneous flags: 

Current command is valid; have 
Executive invoke the FSR. 

End of input stream may legitimately 
occur. 

Current command came from parameter 
options specified by the invoker of Ac- 
cess Method Services. 

Current command is being scanned only 
for syntax errors. 

Current command has just been 
bypassed. 


Licensed Material — Property of IBM 


Reader/Interpreter Historical Area—HDAREA 


The Reader/Interpreter Historical Area is created and initialized on the first 
call to the Reader/Interpreter. It contains information that must be saved 
across commands, such as input source margins and table locations. 


Created by 
IDCRIO1 


Reader/Interpreter Historical Area Description 


Offset 
0 (0) 


2 (2) 
4 (4) 
8 (8) 


12 (C) 
16 (10) 


17 (11) 


Each set contains the following: 


| Scope Structure for UENQ—ENQSCOPE 


Modified by 

IDCRIO\ 

IDCRIO2 

IDCPMOl1 
Bytes and 
Bit Pattern Field Name 
2 LEFTMGN 
ere | RIGHTMGN 
4 LOADTPTR 
4 KWTBLPTR 
4 ADDRIOCS 
1 NESTLVL 
.2Xn MODLFLGS® 


| 


NULLDO 


DOFLAG 
THENFLAG 
ELSEFLAG 
SKIPFLAG 


Used by Size 
IDCRIO1 46 
IDCRIO2 


Description: Content, Meaning, Use 


Leftmost column to use in the input 
statement. Default to column 2. 


Rightmost column to use in the input 
statement. Default to column 72. 


Address of the Command Descriptor 
module table, IDCRILT. 


Address of modal command verb table, 
IDCRIKT. 


Address of IOCSTR for input data set. 


IF-THEN nesting level where current 
command appears. 


Modal flags. A set of modal flags is used 
for each level of IF-THEN nesting. n is 
the number in NESTLVL. 


Number of unneeded “DO” commands 
for which no matching “END” com- 
mands have been encountered at the cur- 
rent NESTLVL. 


Flags: 


Current command is part of a “DO” 
group. 

Current commands are associated with a 
true “IF” condition. 

Current commands are associated with a 
false “IF” condition. 

Current commands are to be only 
checked for proper syntax. 


The scope parameter to ENQ is used for cross system sharing of DASD. The 
structure is created by the caller of UENQ and passed as the sixth parameter. 


Created by 
Caller of UENQ 


Scope Structure for UENQ Description 


Offset 
0 (0) 


Modified by 

N/A 
Bytes and 
Bit Pattern Field Name 
1 ENQSFLAG 
10.. .... ENQSEXT 
oy eee ENQSVOL 
00...... 
6 ENQSVID 


Used by 
IDCSANQ 7 


Size 


Description: Content, Meaning, Use 


Scope is external, that is, cross system. 
Scope is to be determined by supervisor 
using a volume serial number 
(ENQSVID). 

Int lock is required, that is, internal or 
intra-system. 


VOLID that is used by the supervisor to 
find the correct DASD device. If the de- 
vice is shareable, an EXT lock is set. If 
the device is not shareable, an INT lock 
(intra-system) is set. 


Chapter 5: Data Areas 5-55 


Licensed Material — Property of IBM 


System Adapter Historical Area—SAHIST 


The System Adapter’s historical area is pointed to by the field GDTSAH. It 
contains information that is shared between System Adapter modules. 


Created by Modified by Used by Size 
IDCSAO1 IDCSA02 IDCSA02 16 
IDCSA03 IDCSA03 
System Adapter Historical Area Description 
Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 4 GPFIRST First UGPOOL storage area pointer. 
4 (4) 4 GPLAST Last UGPOOL storage area pointer. 
8 (8) 4 AUTOPTR Address of AUTOTBL. 
12 (C) 4 PLAPTR Address of phase table. 
TEST Option Data Area 


The TEST Option Data Area is used to gather debugging information re- 
quested by a PARM command with TRACE, AREAS, or FULL options. 
The TEST Options Data Area is three tables. The first table, TESTDATA, is 
present if any PARM command with TRACE, AREAS, or FULL has been 
executed. The address of TESTDATA is in GDTDBH. 


The second table, AREADATA, exists if a PARM command with an 
AREAS option has been executed. If AREADATA exists, it immediately 
follows TESTDATA. 


The third table, FULLDATA, exists if a PARM command with a FULL 
option has been executed. If FULLDATA exists, it immediately follows 
AREADATA, or if AREADATA does not exist, FULLDATA immediately 


follows TESTDATA. 

Created by Modified by Used by Size 

IDCPM0O1 IDCPMOl1 IDCPMOl1 Variable 
IDCDBOl! IDCDBO1 


TEST Option Data Area Description 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
TESTAREA: 
0 (0) 4 AREAPTR Address of areas identifier table, 


AREADATA. Zero indicates the table 
does not exist. 

4 (4) 4 FULLPTR Address of full dump table FULLDA- 
TA. Zero indicates the table does not ex- 
ist. 


8 (8) Des SNAPID Number of last full region dump. 


10 (A) 2 TESTRACE A nonzero value means print the trace 
tables each time a UDUMP macro is is- 
sued. A zero value means print the trace 
tables only for modules specified in 


AREAS and FULL options. 

AREADATA: 

0 (0) 4 AREAINDX Number of entries in areas identification 
table. One entry exists for each area 
identifier specified in the PARM com- 
mand. 

4 (4) 2xj AREADUMP Areas identifier table containing j entries. 

Each entry contains the following: 

2 AREANAME Two character module identifier where 


information is gathered. If there is an 
odd number of area names, two bytes are 
added to the end of the table. 
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Text Structure 


Offset Bytes and 
Bit Pattern Field Name Description: Content, Meaning, Use 

FULLDATA: 

0 (0) 4 FULLINDX Number of entries in Full Region Dump 
Table. One entry exists for each full 
dump. 

4 (4) 12xk FULLDUMP Full Region Dump Table containing k 
entries. 

Each entry contains the following: 

4 FDUMPID Four character module identifier where 
dump ts taken. 
Dad FDUMPBEG Number of the pass through the dump 


point when dumping is to 
begin—between | and 32,767. 


ee FDUMPCNT Number of dumps to take— between | 
and 32,767. 

225 REALBEG Current number of passes through this 
dump point. 

oe REALCNT Number of dumps already taken at this 
dump point. 


Text Structures are load modules that contain text (messages and static text 
items) and format information to use while preparing printed output. This 
information can be default page dimensions or layout, message text, headings 
for listings, and similar directions that are used by the Text Processor. There 
are 18 Text Structure modules, as named in the following table along with the 
function associated with each. Some FSRs use Text Structures from other 
FSRs. 


IDCTSALO ALTER IDCTSMP0 IMPORT/IMPORTRA 
IDCTSBIO BLDINDEX IDCTSPRO PRINT/REPRO 
IDCTSDEO DEFINE IDCTSRCO EXPORTRA 
IDCTSDLO DELETE IDCTSRIO Reader/Interpreter 
IDCTSEXO Executive IDCTSRSO RESETCAT 
IDCTSIOO I/O Adapter IDCTSTPO Text Processor (print chains) 
IDCTSLCO LISTCAT IDCTSTP! Text Processor (messages) 
IDCTSTP6 UERROR 
IDCTSLC\ LISTCAT IDCTSUVO Universal (any module) 
(messages) IDCTSXP0O EXPORT 
IDCTSLRO LISTCRA 
IDCTSLRI LISTCRA 
(messages) 


A Text Structure consists of an index and text entries. The index is simply a 
list of halfword displacements from the beginning of the Text Structure to the 
beginning of the text entry being indexed. The Text Structure identification 
number is used as the index number. A halfword count of the number of 
entries precedes the index. 


Note: An index entry of -1 indicates that the corresponding text entry is 
nonexistent. 


All text entries contain heading fields and one of the following: 


¢ A format list as described under FMTLIST immediately followed by any 
static text such as messages referenced by the format list. 


e A print control argument list as described under PCARG immediately 
followed by any static text such as title lines and translate tables refer- 
enced by the print control argument list. 


e Character code tables which support the GRAPHICS parameter of the 
PARM command. 
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Text Entry Description 


UGPOOL Area 


UGPOOL Area Description 
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Created by Modified by Used by Size 
IBM-Supplied None IDCTPO1! Variable 
IDCTP05 
Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 2 INDEX Number (n) of entries in this index. 
2 (2) 2xXn INDEXn Offset to the appropriate text entry. 


The following description shows only the header fields of each text entry. For 
the remainder of the description, see FMTLIST or PCARG. The text entry 
begins at offset 2 x n + 2 from the beginning of the Text Structure module. 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 2 TXT. Length in bytes of the text entry that 
follows (not including these header 
fields). 
2 (2) 2 FLG°A Flag byte: 
ee Message entry. 
5 eee Header entry. 
ee eee Secondary message entry. 


The following two fields only exist if this is a text entry for a header line: 
4 (4) 2 HDLI® The number of printable header lines. 


6 (6) 2 HDSP*® The number of page lines occupied by 
header lines, intervening blank lines, and 
the first line of printed data. 


When the UGPOOL Umacro is used, an area of storage is allocated to the 
user and this area is linked into a chain with other areas allocated by UG- 
POOL. Each such area is preceded by 16 bytes, as shown here. 


Created by Modified by Used by Size 
IDCSA02 None IDCSA02 16 
Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 4 GPFORWRD Address of next UGPOOL area. 
4 (4) 4 GPBACK Address of last UGPOOL area. 
8 (8) 4 GPLEN Number of bytes requested plus 16. 
12(C) 4 GPID Area identification code. 


The storage area in the UGPOOL chain for an ‘xxPG’ storage identification has 
the following format: 


0 (0) 4 GPFORWRD Address of next UGPOOL area. 

4 (4) 4 GPBACK Address of last UGPOOL area. 

8 (8) 4 GPLEN Length of this area = 24 (X‘00000018’) 
12 (C) 4 GPID Area identification code. 

16 (10) 4 GPADRPG Address of ‘xxPG’ storage area. 

20 (14) 4 GPLENPG Length of ‘xxPG’ storage area. 
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UGSPACE Area 


UGSPACE Area Description 


When the UGSPACE Umacro is used, an area of storage is allocated for the 
user of the Umacro. Each such area is preceded by eight bytes of control 
information, as shown here. 


Created by Modified by Used by Size 
IDCSA02 None IDCSA02 8 
Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 4 GSLEN Number of bytes requested plus 8. 
4 (4) 4 GSID bbbb for UGSPACE area. 


UIOINFO—Option Byte and Return Area 


The UIOINFO option byte is used by an FSR to indicate the type of data to 
be retrieved by the UIOINFO macro. The data retrieved is passed back by 
UIOINFO in the return area. 


UIOINFO Option Byte Description 


UIOINFO Return Area Description 


Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0(0) l IOINFOPT 
lace IOINFDVT Retrieve 8-byte device type. 
Fs Veer IOINFVOL Retrieve up to five volume serial 
numbers. 
elas JOINFDSN Retrieve 44-byte data set name. 
alk ote JOINFSUP Suppress error message. 
sau flags IOINFTMS Retrieve format-4 time stamp. 
pancalae IOINFOPT Retrieve up to five Logical Unit Blocks. 
ne IOINFVID Parameter 4 passed to UIOINFO isa 
6-byte volid, not a dname. 
Bytes and 
Offset Bit Pattern Field Name Description: Content, Meaning, Use 
0 (0) 4 Header. 
Bytes: 
0-1 Length of entire area (including 
header). 
2-3 Length of all data returned 
(including header). 


Data returned for each type of information requested is placed consecutively 
in the work area. The format for the different types of information follows: 
Bytes and 
Bit Pattern Field Name 
48 Data set name. 
Bytes: 
0-1 
2-3 
4-47 
n Volume serial number list (variable). 
Bytes: 
0-1 
2-3 
4-9 


Description: Content, Meaning, Use 


Identifier—X‘0001’, 
Length of data returned. 
Data set name. 


Identifier—X‘0002’. 
Length of data returned. 
First volume serial number. 


(n+ 1)-(n+6) Last volume serial 
number. 
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UREST Arguments 


Bytes and 
Bit Pattern 


12 


20 


Field Name 
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Description: Content, Meaning, Use 
Device type. 

Bytes: 

0-1 Identifier—xX‘0003’. 

2-3 Length of data returned. 


4-7 Device type code. 
8-11 Maximum block size for device. 


Timestamp. 

Bytes: 

0-1 Identifier—X‘0004’. 
2-3 Length of data returned. 
4-11 New timestamp. 

12-19 Old timestamp. 


Logical Unit (LUB) List (variable). 
Bytes: 

0-1 Identifier—xX‘0005’ 

2-3 Length of data returned. 


4-5 First LUB in same 
format as in a CCB. 


(n+1)-(n+2) Last LUB 


Any combination of the following structures can be passed to UREST as 
arguments. The UREST macro changes default items in the Print Control 
Table. The structures determine which items UREST will change. 


PCRST—Change Subtitle Lines 
Created by 


All routines 


Offset 
0 (0) 
2 (2) 


4 (4) 


PCRLWS—Change Line Width 


Offset 
0 (0) 
2 (2) 


PCRPDS—Change Page Depth 


Offset 
0 (0) 
2 (2) 
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Modified by 


None 


Bytes and 
Bit Pattern 


2 


Bytes and 
Bit Pattern 


2 


Bytes and 
Bit Pattern 


2 


Used by 
IDCTPO1 


Field Name 
PCRSST 
PCRSTLC 


PCRSTLP 


Field Name 
PCRLWT 
PCRLW 


Field Name 
PCRPDT 
PCRPD 


Size 


Variable 


Description: Content, Meaning, Use 
Structure identifier, contains ‘ST’. 


Number of subtitle lines provided. The 
maximum is three. 


Address of from one to three contiguous, 
fully formatted subtitle lines. The num- 
ber of bytes in each line is the line width 
plus one for the spacing character. The 
spacing character is first in each line and 
must be 1, 2, or 3. 


Description: Content, Meaning, Use 
Structure identifier, contains ‘LW’. 


New line width in decimal. 


Description: Content, Meaning, Use 
Structure identifier, contains ‘PD’. 


New page depth in decimal. 
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PCRFTS—Change Footing Lines 
Offset 
0 (0) 
2 (2) 


4 (4) 


Bytes and 
Bit Pattern 
2 


PCRDSCS—Change Default Spacing Character 


Offset 
0 (0) 
2 (2) 


PCRPCS—Change Translate Table 


Offset 
0 (0) 
2 (2) 


4 (4) 


PCRINP—Change Initial Page Number 


Offset 
0 (0) 
2 (2) 
4 (4) 


Bytes and 
Bit Pattern 


2 


Bytes and 
Bit Pattern 


2 


Bytes and 
Bit Pattern 


2 


Field Name 
PCRFT 


PCRFLC 


PCRFLP 


Field Name 
PCRDSCT 
PCRDSC 


Field Name 
PCRPCT 
PCRPCC 


PCRPCP 


Field Name 
PCRPNT 


* 


PCRPNP 


Description: Content, Meaning, Use 
Structure identifier; contains ‘FT’. 


Number of footing lines provided. The 
maximum is three. 


Address of from one to three contiguous, 
fully formatted footing lines. The num- 
ber of bytes in each line is the line width 
plus one for the spacing character. The 
spacing character is first in each line and 
must be 0, I, 2, or 3. 


Description: Content, Meaning, Use 
Structure identifier; contains ‘SC’. 


New default space character. Must be 
the character 1, 2, or 3. 


Description: Content, Meaning, Use 
Structure identifier, contains ‘PC’. 


If the request is for a print chain 
provided by Access Method Services, this 
field contains the characters for the print 
chain identification as in the GRAPH- 
ICS parameter of the PARM command. 
Otherwise, it contains zero. 


Address of a load module name. The 
load module consists solely of a 256-byte 
translate table. If the request is for a 
standard print chain, this field contains 
zero. 


Description: Content, Meaning, Use 
Structure identifier; contains ‘PN’. 
Reserved. 


Address of page number field. The first 
two bytes of the page number field con- 
tain the number (from | to 4 in binary) of 
following bytes that contain the page 
number, The page number is one to four 
bytes in EBCDIC. 
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Trace Tables 


Inter-Module Trace Table 


Intra-Module Trace Table 


Chapter 6: Diagnostic Aids 


This chapter explains the diagnostic aids provided for Access Method 
Services, explains how to find key areas in a dump, and offers suggestions 
for isolating different types of problems. Before attempting to diagnose a 
problem with the aids in this chapter, you should be familiar with 
DOS/VSE Serviceability Aids and Debugging Guide. This manual and other 
publications that may be helpful are listed in the preface to this book. 


Four major diagnostic aids are provided by the processor: 


e Trace tables, which provide a trace of the flow of control between 
phases and CSECTs and within phases and CSECTs. 


¢ Dump points, which provide the facility to dump selected areas of 
virtual storage and take a full region dump. 


e The Test option, which you can set to print out the trace tables or to 
obtain dumps at selected points. 


¢ ABORT codes and full partition dumps, which are produced when the 
processor detects an unrecoverable condition. 


The processor maintains two trace tables during each execution: the Inter- 
Module Trace Table, which records the flow of control between phases and 
CSECTs, and the Intra-Module Trace Table, which records the flow of 
control within phases and CSECTs. 


You can find the trace tables in any full partition dump, or you can print 
them using the Test option. The section “Reading a Dump” in this chapter 
explains how to find the tables in a dump; the section “‘ Test Option” in this 
chapter explains how to print them. 


The Inter-Module Trace Table begins with the characters INTER and 
contains the IDs of the last twenty phases and CSECTs that had control. 
The IDs are the last four characters of the phase or CSECT name. For 
example, if the trace looks like this: 


INTER ... SAQ1 EXO1 RIO1 RIO2 
then you know that IDCRIO2 had control at the time of the dump. 


The Inter-Module Trace Table is updated by the System Adapter not only as 
each phase or CSECT is entered, but also upon return from a phase or 
CSECT. Thus, if RIO! calls TPO1 which calls 1001 and then returns back to 
RIOI, the trace table looks like this: 


INTER ... RIO1 TPO1 1001 TPO1 RIO1 


The Intra-Module Trace Table begins with the characters INTRA and 
contains the last twenty trace points encountered within phases and 
CSECTs. Each phase and CSECT has trace points placed at key locations, 
for example, at the start of procedures. 


The IDs of the trace points consist of four characters: the first two charac- 
ters are the mnemonic identifier of the phase or CSECT being traced, and 
the last two characters identify a specific point within the phase or CSECT. 
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(The mnemonic identifiers are listed in the section “Naming Conventions”’ 
in the chapter “Introduction”’.) 


The section “Trace and Dump Points to Module Cross Reference” in this 
chapter contains a list of all the trace points, identifies the phase or CSECT 
and procedure in which the trace point occurs, and explains the situation at 
the trace point. For example, if the Intra-Module Trace Table looks like 
this: 


INTRA... SAGS IOOP SACL SAGP 


by referring to this list, you would know that the last trace point encoun- 
tered was at the start of the routine in CSECT IDCSA0O2 that processes a 
UGPOOL macro request. 


For the period of time the Test option is set, the dumping routine 
(IDCDBO1) places dump points in the Intra-Module Trace Table; thus, the 
trace table contains all the dump points encountered as well as the trace 
points. All the dump points you may find in the Intra-Module Trace Table, 
in addition to the trace points are explained in the section “Trace and Dump 
Points to Module Cross Reference” in this chapter. 


Trace points within a phase or CSECT can be found by examing the micro- 
fiche listings for occurrences of the UTRACE macro; the UTRACE macro 
sets the trace IDs into the trace table. The expansion of the UTRACE 
macro for trace ID DLLC looks like this: 


OLDERID2 =NEWERID2; 
NEWID2 = 'DLLC! 


Each module has built-in dump points that invoke diagnostic dumping 
routines if the Test option is in effect. The dump points, set up by the 
UDUMP macro, have been placed at key locations in each module (for 
example, around calls to other processor and non-processor modules). Each 
dump point specifies the information that can be dumped at that point. 
Some dump points allow symbolic dumping of selected areas of virtual 
storage (for example, parameter lists or return codes); all dump points allow 
dumping of the full region and printing of the trace tables. 


Dump points can be found by examining microfiche listings for occurrences 
of the UDUMP macro. The expansion of the UDUMP macro for the dump 
point DLVL looks like this: 


IF GDTDBG = NULLPTR 
THEN; 
ELSE 
CALL IDCBO10(GDTTBL, 'DLVL'); 


Only the trace tables and the full region can be dumped at this point because 
only two parameters, the GDTTBL and the dump ID, are passed to the 
dumping routine. 


The section “Module to Dump Points Cross Reference” in this chapter 
contains a list of all the dump points within each module, indicates what 
information can be dumped and explains the situation at the dump point. 
The section “Test Option” in this chapter explains how to take a full region 
dump. 
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Dumping Selected Areas of Virtual Storage 


Test Option 


TEST Keyword 


Certain Access Method Services modules have the dumping of selected 
areas of virtual storage built in. Dumping of these selected areas occurs at a 
dump point as described above. The areas dumped vary with each dump 
point and are identified with descriptive codes. The list in the section 
“Module to Dump Points Cross Reference” in this chapter indicates which 
modules contain dumps of selected areas and the footnotes to that list 
describe the areas dumped. 


Dump points at which selected areas are printed can be found by examining 
the microfiche listings for occurrences of the UDUMP macro. The expan- 
sion is as described above for a full region dump except that the address of a 
parameter list describing the areas to be dumped is passed to the dumping 
routing as a third parameter. 


Dumping of selected areas can occur with or without a full region dump in 
addition, as described in the section “Test Option” in this chapter. 


You can use the Test option to activate the printing of diagnostic output at 
selected points within Access Method Services. The Test option is con- 
trolled by the TEST keyword as explained in the following section “TEST 
Keyword”. 


The Test option provides you with the ability to print: 


e The Inter-Module and Intra-Module Trace Tables. The format and 
interpretation of these tables are described in the section “‘Trace Tables” 
in this chapter. 


e Selected areas of virtual storage. The facility for dumping selected areas 
of virtual storage is described in the section ‘“‘Dump Points” in this 
chapter. 


e Full region dump. The facility for taking a full region dump is de- 
scribed in the section “Dump Points” in this chapter. 


Each variation of the Text option provides an additional level of informa- 
tion. The possible variations are: (1) print the trace tables only; (2) print the 
trace tables and selected areas of virtual storage; (3) print the trace tables 
and selected areas of virtual storage and take a full region dump. 


You can enter the TEST keyword either in the PARM field of the EXEC 
card that invokes the processor, or on a PARM command. By using the 
PARM command, you can turn the Test option on and off or change the 
Test option for different function commands. 


The format of the TEST keyword and its subparameters is: 


PARM TEST({[TRACE| 
[AREAS( JD-list )...)] 
[FULL(( dumpiist )...)|| 
[OFF]} ) 


where the subparameters are defined as follows: 


TRACE specifies that the inter-module and intra-module trace tables are to 
be printed at every dump point encountered. 


AREAS names the modules for which selected areas are to be printed, in 
addition to the trace tables. The trace tables are printed at each dump point 


Chapter 6: Diagnostic Aids 6-3 


How to Use the Test Option 


6-4 


Licensed Material — Property of IBM 


encountered within the named modules; if a dump point specifies selected 
areas to be dumped, these areas are printed also. /D-list is a string of two- 
character mnemonic identifiers separated by commands and/or blanks. The 
mnemonic identifiers are listed in the section ‘““Naming Conventions” in the 
chapter “Introduction”. The mnemonic identifier, however, for the dump 
points within System Adapter dump points is ZZ. The maximum number of 
identifiers is 10. For example, AREAS(EX,PR) specifies that selective 
dumping ts to occur in the Executive modules and the PRINT FSR. 


FULL names the dump points at which full region dumps are to be pro- 
duced, in addition to the selected areas and the trace tables. The trace tables 
and selected areas are produced each time the dump point is encountered; a 
full region dump is produced as specified in dumplist. dumplistconsists of a 
string of triplets enclosed in parentheses. The maximum number of triplets 
is 10. Each triplet is of the form: 


( ident | begin | count |]) 
where the arguments of the triplet are defined as follows: 


ident is a four-character dump point. The dump points are identified in 
UDUMP macros and are listed in the module to Dump Points Cross 
Reference list. 


begin specifies the iteration through the named dump point at which you 
wish the full region dump to be produced. For example, a begin value of 
2 specifies that a full region dump is not to be produced until the second 
encounter of the dump point. The default value is 1, and the maximum is 
32,767. 


count specifies the number of times the full region dump is to be pro- 
duced, once the value of begin has been satisfied. The default value is 1, 
and the maximum is 32,767. 


For example, FULL((EXIF,4,2),(ALO1)) specifies that one full region dump 
is to be produced the fourth time that point EX1F 1s encountered, another 
full region dump is to be produced the fifth time the point is encountered, 
and one full region dump is to be produced the first time that point ALO! is 
encountered. Trace tables and any selected areas are to be printed each time 
dump points EXIF and ALO! is encountered. 


OFF turns off the Test option. No further dumping of trace tables, selected 
areas, or region will occur until another PARM command specifies one of 
the other subparameters. This subparameter must occur alone; it may not be 
coded with any other subparameter of the TEST keyword. 


Each time a PARM command is specified, the TEST parameters override 
the TEST parameters in effect from the previous PARM command. 


Figure 6-1 shows a section of the output from the command: 
PARM TEST ( FULL (LCTP,2,1) ) 


The trace tables and the selected area, DARGLIST, are printed each time the 
dump point LCTP is encountered. A full region dump is produced the 
second time that dump point LCTP is encountered. 


If a problem occurs and you have no idea which modules are involved, run 
the job again with the TRACE keyword. From the Inter-Module Trace 
Table you should be able to tell the modules involved. The TRACE key- 
word, however, produces a large amount of output. 
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igure 6-1. Example of Test Option Output 





If you suspect which modules are involved, you can rerun the job with the 
AREAS keyword and specify the identifiers of several suspected modules. 
You will obtain trace output for only the specified modules. 


Once you know the procedure within a module that has caused the problem, 
select the dump points at which uou would like a full dump (using the 
Module to Dump Points Cross Reference list or by examining the micro- 
fiche for dump points), and rerun the job with the FULL keyword. The 
AREAS and FULL keywords can be used in combination to obtain trace 
tables and selected areas throughout several modules, but a full region 
dump only at selected points. 


Trace and Dump Points to Module Cross Reference 
The following list contains all trace and dump points, identifies the contain- 
ing module and procedure and explains the situation at the trace or dump 
point. When the test option is set, both the trace and dump points are placed 
in the Intra-Module Trace Table. The trace tables are printed with all 
variations of the Test option as explained in the section “TEST Keyword”. 


Chapter 6: Diagnostic Aids 6-5 


6-6 


Licensed Material — Property of IBM 


Trace and Dump Points to Phase or CSECT Cross Reference 


Trace or Dump Phase or 


Point 
ALO! 


ALO2 
ALO3 


AL04 
AL3| 
AL4I 


ALS I 


AL52 


AL53 
AL54 


ALS55 


ALS56 


AL61 
AL8! 


BIBI 


BIC I 


BIC2 


BIDL 


BIDI 
BID2 


BIF 1 


Bil 


BII2 


VSE/VSAM Access Method Services Logic 


CSECT 
IDCALOI 


IDCALOI 
IDCALOI 


IDCALOI 


IDCALOL 


IDCALOL 


IDCALOL 


IDCALOI 


IDCALOI 


IDCALOI 


IDCALOI 


IDCALOI 


IDCALOL 
IDCALOL 


IDCBIOI 


IDCBIO! 


IDCBIOL 


IDCBIOI 


IDCBI0! 


IDCBIOI 


IDCBIO! 


IDCBIO! 


IDCBIO! 


Procedure 
IDCALO! 


IDCALOI 
LOCATPRC 


IDCALOI 


LOCATPRC 


ALTERPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 


INDEXPRC 
PARAMCHK 


BLDPROC 


CNTLPROC 


CNTLPROC 


DELTPROC 


DEFPROC 


DEFPROC 


FINPROC 


INITPROC 


INITPROC 


Type 
dump 


trace 
dump 
dump 


dump 
trace 
trace 
trace 
dump 


dump 


dump 
dump 


dump 


dump 


dump 


trace 


trace 


trace 


dump 


trace 


dump 


trace 


dump 


trace 


trace 


dump 


Situation at Dump or Trace Point 


Before calling the catalog to alter 
an object. 


Start of ALTER FSR. 
End of ALTER FSR. 


After calling the catalog to locate 
an object. 


Before issuing ALTER request for 
index object if KEYS specified. 


Start of procedure that locates the 
entry to be altered. 


Start of procedure that builds the 
catalog parameter list. 


Entry to CHECKPRC. 


After locating data component of 
the alternate index for which UP- 
GRADE has been specified. 


After locating associated cluster or 
alternate index of the data object 
specified on ALTER command. 


After locating associated index 
component. 


After locating the data component 
of the path’s base cluster. 


After locating the cluster compo- 
nent of the alternate index’s base 
cluster. 


After locating the data component 
of the alternate index’s base cluster. 


On entry to INDEXPRC. 


On entry to PARAMCHK proce- 
dure. 


First entry to procedure that builds 
and writes the alternate index re- 
cords. 


Start of procedure that controls 
reading base cluster, sorting and 
writing alternate index. 


After completion of sort if an 
internal sort; after completion of 
sort phase and before merge passes 
if an external sort. 


Start of procedure that deletes sort 
work files. 


After return from UCATLG to 
delete each sort work file. 


Start of procedure that defines sort 
work files. 


After return from UCATLG to 
define each sort work file. 


Start of procedure that closes 
alternate index and prints status 
message. 


Start of procedure that obtains 
resources for building alternate in- 
dex. 


After obtaining or failing to obtain 
sort core. 


Licensed Material — Property of IBM 


Trace and Dump Points to Phase or CSECT Cross Reference 


Trace or Dump Phase or 


Point 


BIJI 


Bij2 


BILI 


BIL2 


BIM| 


BIM2 


BIM3 


BIM4 


BIP| 


BIP2 


BISP 


BISR 


BIO! 
B102 


BI03 


B104 


CLOI 
CLO2 


CLO03 


CP14 


DB2A 


DB2B 


DB2C 


DB2F 


DB2H 


CSECT 


IDCBIOL 


IDCBIOI 


IDCBIOI 


IDCBIO! 


IDCBIOL 


IDCBIOI 


IDCBIOI 


IDCBIOL 


IDCBIOL 


IDCBIOL 


IDCBIOI 


IDCBIOL 


IDCBIOI 
IDCBIOI 


IDCBIOI 


IDCBIOL 


IDCCLOI 
IDCCLOI 


IDCCLOI 


IDCRPOI 


IDCDBO02 


IDCDBO2 


IDCDB02 


IDCDB02 


IDCDB02 


Procedure 


JCPROC 


JCPROC 


LOCPROC 


CATPROC 


MERGPROC 


MERGPROC 


MERGPROC 


MERGPROC 


OPENPROC 


OPENPROC 


SPILPROC 


SORTPROC 


IDCBIOI 
MAINPROC 


MAINPROC 


MAINPROC 


IDCCLOI 
IDCCLO! 


IDCCLOI 


VERIFYC 


ARRAYHDR 


BCONVERT 


CCONVERT 


FCONVERT 


HCONVERT 


Type 
trace 
dump 


trace 


dump 
trace 
trace 


dump 


dump 


trace 
dump 


trace 


dump 


trace 


trace 


dump 


dump 


trace 


trace 
trace 


trace 


trace 


trace 


trace 


trace 


trace 


Situation at Dump or Trace Point 


Start of procedure that issues 
UIOINFO to obtain sort work file 
job control data. 


After return from each call to 
UIOINFO. 


Start of procedure that controls 
catalog locates to obtain informa- 
tion about the base cluster and al- 
ternate index. 


After return from UCATLG for 
each locate request. 


Start of procedure that performs 
the merge passes of an external sort. 


Start of each merge pass of an 
external sort. 


After the tree of nodes has been 
initialized for each merge pass of an 
external sort. 


After processing one set of strings 
during the merge pass of an exter- 
nal sort. 


Start of procedure that opens data 
sets. 


After return from UOPEN to open 
a data set. 


Start of procedure that writes out a 
sorted string in the sort phase of an 
external sort. 


Before sorting the records in the 
record sort area. 


Start of BLDINDEX FSR. 


Start of procedure that controls 
building of one alternate index. 


After return from procedure which 
locates information about the base 
cluster and alternate index. 


After the alternate index has been 
built; before close. 


Start of CANCEL command. 


After printing of command - 
complete message. 


If CANCEL STEP. Just before 
return to executive. 


When either the source or target 
catalog cannot be verified during a 
reload. 


Start of procedure that processes an 
array header dump element. 


Start of procedure the converts a 
dump item to binary representa- 
tion. 


Start of procedure that converts a 
dump item to character representa- 
tion. 


Start of procedure that converts a 
dump item to fixed representation. 


Start of procedure that converts a 
dump item to hex representation. 
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Licensed Material — Property of IBM 


Trace and Dump Points to Phase or CSECT Cross Reference 


Trace or Dump Phase or 


Point 


DB2I 
DB2N 
DEO! 
DEOQ2 
DEO3 
DE04 


DEI1 
DE20 
DE2I 


DE22 
DE23 
DE24 
DE25 
DE26 
DE30 
DE31 
DE32 
DE33 


DE34 


DE35 
DE36 


DE37 
DLBC 


DLBG 
DLCL 


DLCT 
DLLC 


DLMS 
DLND 


VSE/VSAM Access Method Services Logic 


CSECT 
IDCDBO2 


IDCDBO2 


IDCDEOI 


IDCDEOI 


IDCDE02 


IDCDE02 


IDCDEO! 
IDCDE03 
IDCDE03 


[IDCDEO3 


IDCDEQ3 


IDCDE03 


IDCDEO3 


IDCDEO3 


IDCDE02 


IDCDE02 


IDCDE02 


IDCDEO02 


IDCDE0Q2 


IDCDE02 


IDCDE02 


IDCDE02 
IDCDLOI 


IDCDLOI 
IDCDLOI 


IDCDLO! 


IDCDLO! 


IDCDLO! 
IDCDLOI 


Procedure 


ITEMDUMP 


NAMEFLD 


IDCDEO! 


IDCDEO! 


MODELPRC 


MODELPRC 


IDCDEOl! 
IDCDEO03 
CTLGPROC 


DSETPROC 


DSPACPRC 


NVSAMPRC 


AIXPROC 


PATHPROC 


IDCDE02 


NAMEPROC 


ALLCPROC 


KEYPROC 


PROTPROC 


IXOPPROC 


MODELPRC 


FREESTG 
BUILDCPL 


IDCDLOI 
CLEANUP 


CATCALL 


FINDTYPE 


MORESP 
IDCDLOI 


Type 


trace 
trace 
dump 
dump 
dump 
dump 


trace 
trace 


trace 


trace 


trace 


trace 


trace 


trace 


trace 


trace 


trace 


trace 


trace 


trace 
trace 


dump 


trace 


dump 


trace 
trace 
trace 


trace 


dump 


Situation at Dump or Trace Point 


Start of procedure that processes an 
individual dump list element. 


Start of procedure that processes 
the dump element symbolic name. 


Before calling the catalog to define 
an object. 

End of DEFINE FSR, before 
completion message is issued. 
After calling the catalog to locate a 
model object. 


End of procedure that built the 
model table. 


Start of DEFINE FSR. 
On entry to IDCDE02 module. 


Start of procedure that defines a 
master or user catalog. 


Start of procedure that defines a 
VSAM data set. 


Start of procedure that defines a 
data space. 

Start of procedure that defines a 
nonVSAM data set. 


Start of procedure that defines an 
alternate index. 


Start of procedure that defines a 
path. 

Entry to IDCDE02. 

Start of procedure that builds 


CTGFLs with name and date in- 
formation. 


Start of procedure that builds 
CTGELs for allocation informa- 
tion. 


Start of procedure that builds 
CTGELs for key range and 
AMDSBCAT information. 


Start of procedure that builds 
CTGEFLs for protection informa- 
tion. 


Start of procedure that initializes 
index fields in the AMDSBCAT. 


Start of procedure that locates the 
model object entry. 


End of DEFINE FSR. 


Start of procedure that builds the 
CTGPL for the delete request. 


Start of DELETE FSR. 


Start of procedure that closes the 
user catalog. 


Start of procedure that calls the 
catalog with a delete request. 


Start of procedure that locates the 
type of the entry to be deleted. 


Entry to MORESP. 


End of DELETE FSR, before data 
sets are closed and the completion 
message is issued. 
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Trace or Dump Phase or 


Point 


DLOP 


DLPC 


DLVL 


DLVS 


DLVT 


EXFS 


EXIF 


EXIM 


EXIR 


EXMN 


EXRI 


EX2X 


EX3S 


IOAC 


IOCL 
lOCP 


IODC 


IODS 


IOEG 


IOEP 


IOE2 


IOGR 
1OGT 


OIF 
1O1T 
1Ol! 
1OOP 
1OOT 
IOPL 


CSECT 
IDCDLOI 


IDCDLO! 


IDCDLOI 


IDCDLOI 


IDCDLOI 


IDCEXO! 


IDCEXO! 


IDCEXO! 


IDCEXOI 


IDCEXOl 


IDCEXOI 


IDCEX02 


IDCEX03 


IDCIOO2 


IDCIOO! 
IDCIOO! 


IDC1O02 


IDCIO02 


IDC1O0I 


IDCIOOl 


IDC1O01 


IDCIOO1 
IDCIOO! 


IDC1003 
IDCIOO! 
1DC1003 
IDCIOO! 
IDC1O03 
IDCIOO! 


Procedure 


CATOPEN 


PARAMCHK 


FINDTYPE 


CATCALL 


MORESP 


CALLFSR 


CALLFSR 


MAIN 


CALLRI 


IDCEX0OI 


CALLRI 


SCANPARM 


SCANPARM 


BUILDACB 


IDCIOCL 
IDCIOCO 


BUILDDBK 


DSDATA 


GETEXT 


PUTEXT 


GETNONVS 


PUTREP 
IDCIOGT 


DSINFO 
IDCIOIT 
DSINFO 
IDCIOOP 
PTISDS 
PUTREP 


Type 


trace 
trace 
dump 
dump 
dump 
dump 
trace 
trace 
trace 
dump 
dump 
trace 
trace 
dump 
trace 


trace 


trace 
trace 
dump 
dump 
trace 
dump 
trace 
trace 


dump 


trace 


trace 
trace 
dump 
trace 
trace 


trace 


Situation at Dump or Trace Point 
Start of procedure that opens the 
user catalog. 


Start of procedure that checks for 
invalid parameters. 


Before and after calling the catalog 
to locate the entry type. 


Before and after calling the catalog 
to delete an entry. 


Either side of UCATLG macro in 
MORESP. 


Before each call to an FSR. 
Before each call to an FSR. 


Before calling the 
Reader/Interpreter for the first 
time. 


Before each call to the 
Reader/Interpreter. 


All Reader/Interpreter and FSR 
processing is complete. 


Before each call to the 
Reader/Interpreter. 


Before processing the caller’s 
parameter list. 


Before processing the caller’s 
parameter list. 


After ACB and EXLST have been 
built, at end of procedure. 


Start of procedure that builds the 
ACB and EXLST. 


Start of routine that closes data set. 


Start of routine that copies a data 
set. 


Start of procedure that builds a 
DTF. 


After obtaining file information 
from the label cylinder. 


End of procedure that gets a record 
from the user routine. 


Start of procedure that gets a record 
from the user routine. 


After control returns from an 
external user routine. 


Before record is passed to an 
external user routine. 


Start of end-of-file routine for a 
nonVSAM data set. 


After the GET for update. 


Beginning of routine that gets a 
data record from a data set. 


Entry to UIOINFO processing. 
Start of initialization routine. 

After return from IKQVDTPE. 
Start of routine that opens data sets. 
Before SETL macro is issued. 


Entry to PUT (Replace) routine. 
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Trace and Dump Points to Phase or CSECT Cross Reference 


Trace or Dump Phase or 


Point 


IOPO 


IOPR 
1OPT 


IORP 
1OS2 
IOS4 
lIOTM 
{OUO 
IOVE 


lOVG 


lOVP 


IOVR 
1OVT 


lIOVY 


1002 

lOICc 
1O10 
1O2C 


102P 


1020 
1021 


LCAL 


LCAU 


LCBL 


LCCL 


VSE/VSAM Access Method Services Logic 


CSECT 


IDCIOO! 


IDCIO03 


IDCIOOl 


IDCIOOl 


IDCIO02 


IDCIOO! 


IDCIOO! 


IDCIOOI 


IDCIOO! 


IDCIOOI 


IDC1OO1 


IDCIOOI 


IDCIOO! 


IDCIO03 


IDCIOO! 


IDCIO03 
IDCIO02 
IDCIO02 
IDCIO02 


IDCIOO! 


IDCIO02 
IDC1O02 


IDCLC02 


IDCLC02 


IDCLC0Q2 


IDCLC02 


Procedure 


IDCIOPO 
IDC1O03 
PUTREP 
IDCIOPT 
BUILDRPL 
GETNONVS 
PUTNONVS 
IDCIOTM 
IDCIOSI 
GETVSAM 


GETVSAM 


PUTVSAM 


VSAMERR 
PTAMDS 


IDCIOVY 


DSINFO 
CLOSERTN 
OPENRTN 
CLOSERTN 


PUTNONVS 


OPENRTN 
OPENRTN 


LOCPROC 


AUPROC 


LOCPROC 


CDIPROC 


Type 


trace 


dump 


dump 


trace 


dump 


trace 


trace 


trace 


trace 


trace 


dump 


trace 
dump 
trace 
dump 
trace 


dump 
trace 

dump 
dump 
dump 
dump 


dump 
trace 

dump 
dump 


dump 


trace 


dump 


trace 


Situation at Dump or Trace Point 


Start of routine that positions to a 
data record in an opened VSAM or 
ISAM data set. 


After positioning is complete, 
before returning control to IDCIO- 
PO. 


After the PUT for update. 


Start of routine that writes data 
records to an opened data set. 


After RPL ts built, at end of 
procedure. 


Start of SYNAD routine for 
nonVSAM read error. 


Start of SYNAD routine for 
nonVSAM put error. 


Start of termination routine that 
closes all data sets and frees space. 


Entry to UIOINFO entry process- 
ing. 

Start of end-of-file exit routine for 
a VSAM file. 


End of procedure that gets a record 
or control interval from a VSAM 
data set. 


Before the GET macro is issued for 
a VSAM data set. 


End of procedure that writes a 
VSAM record. 


Before the PUT macro is issued for 
a VSAM data set. 


After detection of a VSAM I/O 
error. 


Start of procedure that positions to 
a VSAM record or control interval. 


After VERIFY macro is issued. 
After VERIFY macro is issued. 
After formatting work area. 
Before CLOSE macro Is issued. 
Before OPEN macro Is issued. 


At completion of all UCLOSE 
processing. 


After writing a spanned record. 
After writing a spanned record. 
After OPEN macro is issued. 


At completion of all UOPEN 
processing. 


After calling the catalog to locate 
an entry. 


Start of procedure that formats 
catalog fields for a nonVSAM or 
user catalog entry. 


Before calling the catalog to locate 
an entry. 


Start of procedure that formats 
catalog fields for a cluster, data, or 
index entry. 
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Point 
LCDC 


LCEN 


LCER 


LCFP 


LCIN 


LCLT 


LCMG 


LCNX 


LCRT 


LCR2 


LCSA 


LCTP 


LCVL 


LCWA 


LC02 


LC98 


LC99 


LRAA 
LRAD 


LRBL 


LRBU 


LRCA 


LRCK 


LRCR 


LRCT 


LRCI 


LRC2 


Trace or Dump Phase or 


CSECT 
IDCLC02 


IDCLCOI 


IDCLC02 


IDCLC02 


IDCLCO! 


IDCLC02 


IDCLC02 


IDCLCO! 


IDCLCOI 


IDCLCOL 


IDCLC02 


IDCLC02 


IDCLC02 


IDCLCO2 


IDCLC02 


IDCLCQ2 


IDCLCOL 


IDCLROI 
IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


Procedure 


DEVTCONV 


ENTPROC 


ERRPROC 


FPLPROC 


INITPROC 


LISTPROC 


ERRPROC 


GNXTPROC 


RTEPROC 


RTEPROC 


ANSVPROC 


LISTPROC 


VPROC 


LOCPROC 


IDCLC02 


FREESTG 


IDCLCOl 


AATOPLR 
ADDASOC 


BLDVEXT 


BUFSHUF 


CATOPEN 


CKEYRNG 


CRAOPEN 


CTTBLD 


CLEANUP 


CLENCRA 


Type 


trace 
trace 
trace 
trace 


trace 


trace 
dump 
trace 


trace 


trace 


trace 

dump 
trace 

dump 
dump 
dump 
dump 


dump 
dump 


dump 
dump 
dump 
dump 
dump 
dump 
dump 


dump 
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Situation at Dump or Trace Point 


Start of procedure that converts 


UCB code. 


Before retrieving each entry in a list 
of entries. 


Start of procedure that issues 
messages. 

Start of procedure that reinitializes 
CTGELs for each locate request. 


Start of procedure that initializes 
the catalog parameter list and work 
areas. 

Start of procedure that prints 
catalog data. 

Before UPRINT macro is issued to 
print a message. 


Before retrieving each entry when 
processing a full catalog. 


Start of procedure that directs the 
retrieved entry to the proper for- 
matting procedure. 


Start of section of procedure that 
processes associations of a cluster, 
or AIX 


Start of procedure that retrieves the 
list of types and CI numbers. 


Before UPRINT macro is issued to 
print catalog data. 

Start of procedure that formats 
catalog fields of a space entry. 
After calling the catalog to locate 
an entry. 

When IDCLC072 is called the first 
time to establish addressability. 


End of LISTCAT FSR, before 
freeing storage in IDCLC02. 


End of LISTCAT FSR, before 
freeing storage in IDCLCOL. 


Entry point for IDCLRO! 


Start of procedure that adds an 
association to the association table. 


Start of procedure that builds 
virtual extension table. 


Start of procedure that moves a 
record to its “home” buffer. 


Start of procedure that prepares to 
open the catalog. 


Start of procedure that checks for 
keyrange. 

Start of procedure that opens the 
CRA. 


Start of procedure that builds Cl 
translate table. 


Start of procedure that cleans up 
before exit. 


Start of procedure that closes the 
CRA and prints the completion 
message. 
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Point 
LRDO 


LRDV 
LRER 
LRGE 
LRIA 
LRIN 
LRIS 
LRIV 
LRME 
LRPA 
LRPC 
LRPD 


LRPE 


LRPF 
LRPJ 
LRPK 
LRPM 
LRPO 
LRPT 
LRPV 
LRPW 
LRSM 
LRTC 
LRVE 
LRZY 


LRZZ 
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CSECT 
IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLRO! 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLRO! 


IDCLROI 


IDCLRO|! 


IDCLRO! 


Procedure 


DOOTHR 


DOVSAM 


ERROR 


GETPRT 


INTASOC 


INITLZE 


INTSORT 


INTVEXT 


MEMSORT 


PRTAAXV 


PRTCMP 


PRTDMP 


PRTDMPC 


PRTFIFO 


PRTOJAL 


PRTOJVL 


PRTMCWD 


PRTOTHR 


PRTTIME 


PRTVSAM 


PRTVOL 


SUMIT 


TCICTCR 


VERTEXT 


ERROR 


ERROR 


Type 
dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 


dump 


Situation at Dump or Trace Point 


Start of procedure that controls 
printing nonVSAM information. 


Start of procedure that controls 
printing VSAM information. 


Start of procedure that handles 
errors. 

Start of procedure that gets and 
print records. 


Start of procedure that initializes 
association tables. 


Start of procedure that initializes 
the FSR. 


Start of procedure that initializes 
the sort table. 


Start of procedure that initializes: 
the virtual extension table. 


Start of procedure that sorts the 
entries in sort table. 


Start of procedure that prints 
associated Al Xs and volumes. 


Start of procedure that prints and 
compares information. 


Start of procedure that prints dump 
if specified. 


Start of procedure that prints dump 
of catalog record and underscores 
miscompares. 


Start of procedure that prints CRA 
in order of Cl number. 


Start of procedure that prints an 
object's aliases. 

Start of procedure that prints an 
object’s volumes. 


Start of procedure that prints 
miscompare words. 


Start of procedure that prints 
nonVSAM objects. 


Start of procedure that prints 
timestamps. 


Start of procedure that prints 
VSAM Structures. 


Start of procedure that prints 
volume records. 


Start of procedure that prints 
number of entries processed. 


Start of procedure that translates 
the catalog CI to the CRA. 


Start of procedure that handles 
vertical extension records. 


After error message has been 
printed. 


After error that forced an ABORT 
of this execution. 
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Trace or Dump Phase or 


Point 


LRO2 


MPBF 


-MPBG 


MPCP 
MPCT 
MPDC 
MPDD 
MPDL 
MPDN 
MPFN 
MPFV 


MPGK 
MPGL 
MPLV 


MPMG 


MPOP 


MPPS 


MPPT 


MPSP 


MPUC 
MPUQ 
MPZZ 
PMGP 
PMMG 
PMTP 
PMTS 


PRO| 
PRII 


CSECT 


IDCLRO2 


IDCMP0O! 


IDCMPO! 
IDCMPOI 


IDCMPOl 


IDCMPOI 


IDCMPO! 


IDCMPO! 


IDCMPOl 


IDCM PO! 


IDCMPOI 


IDCMPOI 


IDCMPO! 


IDCMPO! 


IDCMPO! 


IDCMPO!1 
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Situation at Dump or Trace Point 


Entry point for module that gets a 
record for Recovery Field manage- 
ment routine. 


Start of procedure that constructs a 
CTGEL. 


Start of IMPORT FSR. 


Start of procedure that imports a 
cluster or alternate index. 


Before processing information from 
the portable data set to define a 
cluster or alternate index. 


After the first UCATLG. 
After the second UCATLG. 
Entry to DELTPROC. 


Start of procedure to process a 
duplicate entry found in the cata- 
log. 

End of IMPORT FSR, prior to 
closing data sets. 


Start of procedure that constructs a 
CTGFV and CTGFLs. 


Entry to DVOLCHK 
Entry to DVOLPROC 


Start of procedure that constructs 
CTGELs for device and volume in- 
formation. 


Start of procedure that issues 
messages. 


Start of procedure that opens either 
the portable data set or the newly 
defined data set. 


Start of procedure that constructs 
the PASSWALL CTGFL for pro- 
tection information. 


After imported cluster or alternate 
index has been successfully defined 
and the contents of the portable 
data set copied into the new cluster 
or alternate index. 


Start of procedure that calls the 
catalog to locate, alter, or define an 
entry. 


Start of procedure that connects a 
user catalog. 


After a data or index has been 
found to be unique. 


Before and after calling the catalog 
to locate, alter, or define an entry. 


Start of procedure that processes 
the graphics option. 


Start of procedure that processes 
the margins option. 


Start of procedure that initializes 
the TEST option. 


Start of procedure that initializes 
the Test Option Data Area. 


End of PRINT FSR. 
Start of PRINT FSR. 
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Situation at Dump or Trace Point 


Before termination processing. 


Start of procedure that sets up the 
text processor interface. 


Start of procedure that establishes 
the beginning and ending delimi- 
ters of the data set to be printed. 


Start of main procedure. 
Start of main procedure. 


Return in main procedure from 
procedures which processed catalog 
information for objects. Start of 
termination processing. 


Return in main procedure from 
procedures which processed catalog 
information for objects. Start of 
termination processing. 


Start of procedure which processes 
VSAM objects. 


Start of procedure which processes 
VSAM objects. 


Before routine which calls LOC- 
PROC for data and index process- 
ing. 

Start build of timestamp informa- 
tion for portability data set. 


Start of processing for path 
associations for VSAM objects. 


Start of procedure which builds 
CPL and FPL’s for catalog locate 
functions. 


Start of procedure which issues 
catalog locates, 


Start of procedure which issues 
Catalog locates. 


Start of procedure to open input 
and output data sets. 


Start of procedure which writes 
control records to the output data 
set. 


Start of procedure which copies the 
data from the input data set to the 
output data set. 


Start of procedure which moves 
control record information in core 
and clears work areas in core. 


Start of procedure which builds 
control record information. 


Start of procedure which processes 
nonVSAM objects. 


Start of procedure which processes 
nonVSAM objects not associated to 
GDG’s. 


Before timestamp processing for 
nonVSAM objects not associated to 
GDG’s. 


Start of procedure which saves 
control record information and 
writes control information to the 
output data set. 
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Situation at Dump or Trace Point 


Start of procedure which processes 
catalog information for alias associ- 
ations for nonVSAM objects. 


Start of procedure which prints 
error messages for associations. 


Before special processing to 
terminate request (closing output 
data set). 


Before initializing to begin 
processing. 


Before building the CRV. 


Before looping down name chain to 
call IDCRCO2 to export data sets. 


Before scanning the name chain for 
a CRA to check it. 


Before checking synchronization of 
an entry across multiple volumes. 


Before checking the name chain for 
duplicates. 


Before constructing a block for the 
name chain. 


Before compressing a name for the 
name list. 


Before allocating space for the 
name chain. 


Before printing any message from 
IDCRCOIL. 


Before using internal Field 
Management to get information 
from CRA. 


Before opening or closing or CRA 
and doing all other work (e.g. Build 
CTT). 


Before the opening of the CRA. 


Before checking owning catalog 
name of CRA being opened. 


Before obtaining format 4 times- 
tamp for CRA being opened. 


Before scanning CRA to build the 
CTT table. 


After opening a CRA. 


Before marking or adding a name 
to the name chain. 


Before obtaining the directory fora 
volume. 


Before gathering information on 
name in name list from CRA. 


Start of procedure that bypasses the 
remainder of the current modal or 
null command. 


Start of procedure that converts a 
constant from EBCDIC to binary 
or hexadecimal. 


Start of procedure that calculates 
the position within a secondary 
FDT vector in which to place an 
FDT pointer. 
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Situation at Dump or Trace Point 


Start of procedure that adds default 
parameters to the FDT. 


Start of Reader/Interpreter phase. 


Start of procedure that issues a 
message without inserted text. 


Start of procedure that issues a 
message with inserted text. 


Start of procedure that scans the 
input command. 


Start of procedure that scans a 
quoted constant. 


Start of procedure that obtains the 
next input record. 


Check restrictions on a data set 
name and place in FDT. 


Start of procedure that scans a 
repeated parameter set. 


Start of procedure that allocates 
more FDT space for a list of con- 
stants. 


Start of procedure that scans an 
ELSE modal command. 


Start of procedure that scans an IF 
modal! command. 


Start of procedure that scans a SET 
modal command. 


Start of procedure that checks the 
input command for conflicting or 
missing parameters. 


Start of procedure that checks data 
set names. 


Start of procedure that converts a 
decimal constant tnto a binary full- 
word. 


Start of procedure that scans a 
positional parameter. 


Start of procedure that scans the 
input command parameters. 


Start of phase that prepares to scan 
a command parameter set. 


Start of procedure that checks the 
input record for a continuation del- 
imiter and determines the scanning 
limits of the record. 


Start of procedure that notes the 
occurrence of a parameter in the 
FDT. 


Start of procedure that bypasses the 
remainder of a function command. 


Start of procedure that puts 
parameter defaults in the FDT. 


Start of phase that performs 
command termination functions. 


Start of scanning for a parameter. 
Scanning a first-level parameter. 


Scanning a subparameter. 
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Situation at Dump or Trace Point 


Modal command other than ELSE 
within an IF. 


Found a functional command. 
Found a keyword subparameter. 
Start of extracting a scalar value. 


Extract a character string. 


Prior to loading the command 
descriptor. 


Beginning of the code sequence to 
build the PARMINFO table. 


Start converting a binary number. 


Start converting a hexadecimal 
number. 


Change converted digits into a 
binary fullword. 


Loop to reset parameter occurrence 
flags for possible parameters in the 
sublist. 


End of last repeated sublist. 


Found that default is allowable; 
ready to putin FDT. 


Move a defaulted unquoted 
constant to FDT. 


Extract a filed from input (verb, 
keyword, or scalar). 


Extract a keyword field. 
Extract a quoted scalar. 
End-of-file already found in input. 


Extract first character of a new 
command. 


End-of-file found while looking for 
next character. 


Skip leading blanks and comments 
if preceding record indicated con- 
tinuation. 


Bypass a leading comment. 
Bypass leading blanks. 


Calculate displacement into the 
FDT for a parameter in a first-level 
repeated parameter list. 


End of IDCRI03. 
Entry to ALISPROC. 
Entry to ALTRPROC. 
Entry to BFPLPROC. 
Entry to IDCRMOIL. 
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Situation at Dump or Trace Point 


Exit from CLUSPROC. 
After the CPL has been built. 
Entry to CLUSPROC. 


Begin reading of cluster or alternate 
index information from the porta- 
ble data set. 


After the first UCTALG in 
DELTPROC. 


After the second UCATLG in 
DELTPROC. 


Entry to DELTPROC. 
Duplicate nonVSAM entry found. 
Duplicate user catalog found. 


A duplicate VSAM entry has been 
found. 


End of the loop for importing 
objects. 


End of cluster or alternate index 
define sequence. 


Termination of IDCRMOI. 
Entry to FVTPROC. 
Entry to GDGPROC. 
Entry to DVOLCHK. 
Entry to DVOLPROC. 
Entry to LVLPROC. 
Entry to MSGPROC. 
Entry to OPENPROC. 
Entry to NFVTPROC. 
Entry to NVSMPROC, 
Entry to CPLPROC. 
Entry to BPASPROC. 


Beginning of path definition 
sequence. 


Entry to RANGPROC. 
Entry to CTLGPROC. 
Entry to UCATPROC. 


A unique data or index component 
has been detected. 


Before and after the UCATLG in 
CTLGPROC. 


On exit from procedure that 
translates control interval numbers 
on the backup catalog. 


At the end of all reload error 
checking before any updates have 
been done to the target catalog. 


When a KSDS with shareoption 4 
in non-load mode has been detect- 
ed (after open). The file must be 
closed and reopened with KEYED 
in the ACB. 


Failure to reopen a file. 
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Situation at Dump or Trace Point 


On exit from procedure, having 
built truename range table. 


Start of procedure that performs 
catalog reload. 


Start of procedure that maps the 
RBA boundaries of the backup 
truename ranges. 


On entry to procedure that locates 
control interval numbers to be 
translated. 


On entry to procedure that converts 
control interval numbers from the 
backup catalog. 


On entry to procedure that 
compares truename records. 


On entry to procedure that issues 
VERIFY against a catalog. 


End of REPRO FSR. 


After read or write to backup or 
target catalog. 


After all data sets have not been 
opened successfully. 


Start of loop that copies the data set 
by issuing UGET and UPUT mac- 


ros. 


After all records have been copied 
to output data set. 


Start of procedure that sets up the 
beginning and ending delimiters of 
the input data set. 


Upon entry to routine which 
updates the CRA for a particular 
record. 


On entry to routine that exists if 
enough storage is not available to 
establish automatic storage re- 
quired for RESETCAT modules. 


On entry to routine that initiates 
association checking. 


On entry to routine that adds a true 
name to the catalog. 


At end of procedure that initiates 
association checking. 


At end of procedure that prepares 
for update CRA processing. 


On entry to routine that adds an 
entry to the reset volume table. 


On entry to routine that adds an 
entry to the volume serial table. 


End of procedure that adds an 
entry to the volume serial table. 


At end of procedure that adds an 
entry to the reset table. 


On entry to routine that alters 
control interval numbers in catalog 
records. 


On entry to routine that converts 
CCHH or BBBB to TTnn. 
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CATEOV 
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COPYCAT 
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Situation at Dump or Trace Point 


On entry to routine that extends the 
catalog. 


On entry to routine that checks a 
data set directory entry against a 
DATA or INDEX component. 


On entry to routine that initializes 
RESETCAT’s description of the 
catalog. 


On entry to routine that prints a 
message if one is associated with 
the error message given. 


On entry to routine that ensures all 
RESETCAT resources are free. 


On entry to procedure that copies 
the catalog to the workfile. 


On entry to routine that adds a 
workfile record to a specific 
“update CRA” chain. 


On entry to routine that establishes 
base record offsets for catalog low 
key range records. 


End of procedure that builds CIN 
toRRN table. 


End of procedure that copies the 
catalog to the work file. 


Before freeing the resources used 
by RESETCAT. 


Before RESETCAT FSR is 
terminated due to an error. 


At conclusion of routine that 
extends the catalog. 


On entry to routine that processes 
all common VTOC handler func- 
tions. 

On entry to procedure that closes a 
VSAM data set. 


On entry to routine that deletes a 
group occurrence. 


On entry to procedure that opens 
VSAM data sets. 


On entry to procedure that deletes a 
true name from the catalog. 


End of procedure that opens a 
VSAM data set. 


End of procedure that closes a 
VSAM data set. 


End of procedure that deletes a 
group occurrence. 


At conclusion of routine that 
processes all common VTOC han- 
dler functions, 


On entry to routine that determines 
if a catalog record has a valid entry 
name. 


On entry to routine that ensures 
there are enough free Cls for reas- 
signment. 


End of procedure that determines if 
a record has a true name. 
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ENSURECI 


FIND 


FIND 
GENNAME 
GETFIT 


GETNEXTE 


GETTAB 


GETVIA 


GETVIA 


INIT 


INIR 
MERGCRA 
MODGO 


MARKUNUS 


MERGECRA 
MODGO 
PROCTYPE 


PROCCI 


PROCCRA 
PROCVOL 


PROCCRA 


PROCVOL 
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PROCCI 
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Situation at Dump or Trace Point 


A start of procedure prior to 
ensuring enough free Cls. 


On entry to routine that locates 
requested information from a set of 
catalog records, 


End of routine that finds one or all 
group occurrences. 


On entry to routine that generates a 
true name. 


On entry to routine that gets a free 
entry in tables for ASSOC. 


On entry to routine that translates 
an index into a table into a virtual 
address. 


On entry to routine that gets and 
initializes a table for ASSOC. 


On entry to routine that gets a 
record by control interval number 
via a specific CRA. 


End of procedure that locates 
records in the work file. 


On entry to routine which performs 
the main initializations for RESET- 
CAT. 


End of procedure that initializes 
data areas and obtains resource. 


On entry to routine that merges 
each reset CRA into the workfile. 


On entry to procedure that modifies 
a group occurrence. 


On entry to routine that marks a 
Volume Group Occurrence (VGO) 
unusable. 


End of procedure that merges and 
resets CRA into the workfile. 


End of procedure that modifies a 
group occurrence. 


On entry to routine that scans a 
catalog record for CINs. 


On entry to routine that ensures a 
CIN is in the list of CINs for re- 
cords being processed. 


On entry to routine that processes 
the records of the current CRA. 


On entry to routine that resolves 
space conflicts. 


End of procedure that merges the 
records of a reeset CRA into the 
workfile. 


Before freeing resources used by 
PROCVOL routine. 


After processing a set of records for 
associations. 


End of procedure that ensures that 
a CIN is in the list of CINs. 


On entry to routine that performs 
all 1/O operations for RESETCAT. 
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RSVE 


RSVG 


VSE/VSAM Access Method Services Logic 


CSECT 
IDCRSO! 


IDCRSO07 


IDCRSO! 


IDCRS06 


IDCRS07 


IDCRSO3 


{DCRS02 


IDCRSO2 


IDCRSO5 


IDCRS03 


IDCRSO5 


IDCRS02 


IDCRS03 


IDCRS05 


IDCRSO5 


IDCRS03 
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IDCRS02 
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REASSIGN 


RENAMEP 


REASSIGN 


RECMGMT 


RENAMEP 


SETBMAP 


SCANCI 


SETCI 


SCNRLST 


SETBITS 


SCNVLST 


SETCI 


SETBITS 


SCNVLST 


SCNRLST 


UNALLOC 


UPDCRA 


UPDCAT 


UPDCCR 
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UPDCRA 


VERB 
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VERDSDIR 
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Situation at Dump or Trace Point 


On entry to routine that performs 
control interval reassignment. 


On entry to routine that renames 
duplicate true name entries. 


End of procedure that assigns new 
CINs to records on the reassign 
chain. 


End of procedure that performs all 
1/O requests. 


Before freeing resources used by 
the RENAMEP procedure. 


On entry to routine that checks 
space conflicts for D or | type cata- 
log entries. 


On entry to routine that scans 
records for control intervals. 


On entry to routine that updates the 
workfile to reflect new CINs for re- 
assigned CINs. 


On entry to routine that obtains the 
next CRA volser entry for reset. 


On entry to routine that maps 
extents to a bit map. 


On entry to routine that scans 
through the list of volumes. 


End of procedure that updates the 
workfile records from the associa- 
tions tables. 


At end of procedure that sets up a 
single bit map. 


End of procedure that locates an 
entry in the volume serial table. 


End of procedure that locates an 
entry in the reset volume table. 


On entry to routine which unallo- 
cates suballocated space from tem- 
porary space maps. 


On entry to routine which updates 
the CRAs from the workfile. 


On entry to routine which updates 
the catalog from the workfile. 


On entry to procedure which 
updates the CCR for the catalog. 


End of procedure that updates the - 
catalog from the workfile. 


End of procedure that updates the 
CRAs from the work file. 


On entry to routine which verifies 
associations for GDG base records. 


On entry to routine which verifies 
associations for clusters. 


On entry to routine which verifies 
that data set directory entries for 
VSAM data sets not on reset vol- 
umes. 


On entry to routine which verifies 
associations for AIXs. 
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IDCSA02 


IDCSA02 
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VLNRESET 


VOLCHK 


VERR 


VERCI 


VLRESET 


VERU 


VERX 


VOLCHK 


VERDSDIR 


VERCI 
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WFDEF 


WFDEL 


WRAPUP 


WFDEF 


WFDEL 
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IDCSA02 
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Situation at Dump or Trace Point 


On entry to routine which verifies 
space requested from objects being 
reset against non-reset volumes. 


On entry to volume consistency 
routine (VOLCHK). 


Upon entry to routine which 
verifies associations for PATHs. 


On entry to routine which checks 
validity of each CIN found in a set 
of records. 


On entry to routine which verifies 
space requested against reset vol- 
umes. 


On entry to routine which verifies 
associations for user catalogs. 

On entry to routine which verifies 
alias associations. 

End of procedure that checks 
format-! labels against space head- 
ers. 

After verifying initial space claims. 
After verifying associations on a set 
of records. 

Before freeing resources used by 
procedure which verifies GDG data 
sets. 


Upon entry to routine which 
defines an RRDS as a workfile for 
RESETCAT processing. 


On entry to routine which deletes 
the work file. 


On entry to routine which handles 
clean up operations after successful 
RESETCAT processing. 


Before the UCATLG work area is 
freed. 


End of procedure that deletes the 
work file. 


End of RESETCAT FSR. 
Upon entry to main RESETCAT 
module. 


In UABORT routine when a dump 
is not to be printed for a “no space 
available” condition. 


Start of routine that processes 
UCATLG macro. 


Start of routine that processes 
UCALL macro. 


Start of routine that processes 
UDELETE macro. 


Start of routine that processes 
UDEQ macro. 


Entry to routine which prints an 
error message via EXCP. 


Start of routine that processes 
UFPOOL macro. 


Start of routine that processes 
UFSPACE macro. 
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SAGS 
SALD 
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IDCSA02 
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IDCSA08 
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IDCSA02 


IDCSA05 
IDCTPPR 


IDCTP06 
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ERROR 


IDCTP06 
CATERCNY 


[DCTPPR 


IDCTPPR 


CONVERT 


CONVERT 


LINEPRT 


LINEPRT 


ESTACONT 


INITPCT 


ESTSCONT 


RESTCONT 


ESTSCONT 


IDCTPOS5 


IDCT POS 


IDCTPOS 


IDCVYOI 
TERMPROC 
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Situation at Dump or Trace Point 


Start of routine that processes 
UGPOOL macro, 


Start of routine that processes 
UGSPACE macro. 


Start of routine that processes 
ULOAD macro. 


Start of routine that processes 
UENQ macro. 


Start of routine that processes 
USNAP macro. 


Start of routine that processes 
UTIME macro. 


Before the TIME macro Is issued. 


Before the call to the CONVERT 
routine Is issued. 


Start of VERROR procedure. 
Before a converted UERROR 
message ts printed. 

Start of procedure that prints a text 
processor error message. 

Start of UERROR procedure. 


Entry point to routine that converts 
catalog error messages to prose. 

At end of phase; the format 
structure fora UPRINT macro has 
been processed. 

After initialization of text processor 
parameters. 

Start of procedure that converts 
data to a printable form. 

End of procedure that converts data 
to a printable form. 

Start of procedure that formats 
pages and prints titles, headings, 
footings, and other lines requested. 
End of procedure that prints lines. 


End of procedure that processes the 
UESTA macro. 


Get print control table after freeing 
any previous secondary PCT and 
before GETVIS for the new PCT. 


Start of establishment of print 
control table. 


End of procedure that processes 
UREST macro. 


End of procedure that processes 
UESTS macro. 


Start of procedure that gets a static 
text module. 


Start of phase that loads the static 
text phase. 


End of phase that loads the static 
text phase. 


Start of VERIFY FSR. 


Start of procedure that closes the 
data set that was verified. 


End of VERIFY FSR. 
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Situation at Dump or Trace Point 


Start of procedure that opens the 
VSAM data set to be verified. 


Start of VERIFY FSR. 


Before retrieving from the catalog 
the entries associated with the clus- 
ter or alternate index being export- 
ed. 


Start of procedure that modifies the 
CTGPL to set the temporary export 
flag on. 


Start of EXPORT FSR. 


Before retrieving the catalog entry 
for the object to be exported. 


Before constructing control records 
for the portable data set. 


Before writing control records to 
the portable data set. 


Start of procedure that sets up the 
CTGPL to delete a cluster or alter- 
nate index or disconnect a user cat- 
alog. 


End of EXPORT FSR. 


End of EXPORT FSR, before data 
sets are closed and space freed. 


Start of procedure that builds the 
CTGPL and CTGFLs for a locate 
request. 


Entry to MORESP. 


Start of procedure that opens either 
the portable data set or the cluster 
or alternate index to be exported. 


Before processing the permanent or 
temporary export option. 


Start of procedure that writes a 
record to the portable data set. 
Entry to RECPROC. 


Start of procedure that calls the 
catalog for a locate, alter, or delete 
request. 


Before calling the procedure to 
alter the CTGPL to set the tempo- 
rary export flag. 


Start of procedure that disconnects 
a user Catalog. 


Before writing the catalog informa- 
tion to the portable data set. 


Just after the UCATLG macro. 
Just after the UCATLG macro. 


After calling the catalog to locate, 
alter, or delete an entry. 


Start of EXPORT FSR. 


Before and after CATLG macro is 
issued to invoke catalog manage- 
ment routines. 
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The dump points, set up by UDUMP macros, have been placed at key 
locations in each phase and CSECT, for example, around calls to other 
processor and non-processor phases or CSECTs. Each dump point specifies 
the information that can be dumped at that point. Some dump points allow 
symbolic dumping of selected fields, for example, parameter lists or return 
codes; all dump points allow dumping of the full partition and printing of 
the trace tables. 


The following list contains the dump points within each phase or CSECT 
and procedure, indicates what information can be dumped at each point 
(either a full dump or selected areas), and explains the situation at the dump 
point. As explained in the section, ““TEST Keyword” in this chapter, full 
region dumps are taken at all dump points in this list. Selected areas can be 
printed with either the AREAS or FULL variation of the Test option. 
Details of the selected areas are given in the footnotes following the list. 


Phase or CSECT to Dump Points Cross Reference 


Phase or 

CSECT Procedure Dump Point Type Situation at Dump Point 

IDCALOI CHECKPRC ALSI dump After locating data component of 
the alternate index for which UP- 
GRADE has been specified. 

ALS2 dump After locating associated cluster or 
the alternate tndex of the data ob- 
ject specified on ALTER com- 
mand. 

ALS3 dump After locating associated index 
component. 

AL54 dump After locating the data component 
of the path’s base cluster. 

AL55 dump After locating the cluster compo- 
nent of the alternate index’s base 
cluster, 

AL56 dump After locating the data component 
of the alternate index’s base cluster. 

IDCALOI ALOI dump Before calling the catalog to alter 
an object. 

ALO2 dump End of ALTER FSR. 

ALO04 dump Before issuing ALTER request for 
index objects if KEYS specified. 

INDEXPRC  AL6! dump On entry to INDEXPRC. 
LOCATPRC = ALO3 dump After calling the catalog to alter an 
object. 
IDCBIOI CATPROC BIL2 dump After return from UCATLG for 
each locate request. 
CNTRLPRC _ BIC2 dump After completion of sort if an 


internal sort. After completion of 
sort phase and before merge passes 
if an external sort. 


DEFPROC BID2 dump After return from UCATLG to 
define each sort work file. 

DELTPROC  BIDL dump After return from UCATLG to 
delete each sort work file. 

INITPROC BIl2 dump After obtaining or failing to obtain 
sort storage. 

JCPROC BIJ2 dump After return from each call to 
UIOINFO. 

MAINPROC _ BI03 dump After return from procedure that 


locates information about the base 
cluster and alternate index. 
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Phase or 


CSECT 


IDCDEOI 


IDCDEO2 


IDCDLO! 


IDCEXO! 


IDCIOOI 


IDCIOO02 


Procedure 


MERGPROC 


OPENPROC 


SORTPROC 


IDCDEO! 


MODELPRC 


FREESTG 
CATCALL 


FINDTYPE 


IDCDLOI 


MORESP 


CALLFSR 
CALLRI 


IDCEX0O! 


GETEXT 


GETVSAM 


IDCIOVY 


PUTEXT 


PUTREP 


PUTVSAM 


VSAMERR 


BUILDACB 


BUILDRPL 


CLOSERTN 


Dump Point Type 


BI04 


BIM3 


BIM4 


BIP2 


BISR 


DEOI 


DEO2 


DEO3 


DE04 


DE37 
DLVS 


DLVL 


DLBG 


DLND 


DLVT 


EXFS 
EXRI 


EXMN 


IOEG 


lOVG 


lOVY 


[OEP 


IOGR 
IOPR 
IOVP 


IOVR 


IOAC 


IORP 


lOIC 
102C 
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Situation at Dump Point 


After the alternate index has been 
built, before CLOSE. 


After the tree has been initialized 
for each merge pass of an external 
sort. 


After processing one set of strings 
during the merge pass of an exter- 
nal sort. 

After return from UOPEN to open 
a data set. 

Before sorting the records in the 
record sort area. 

Before calling the catalog to define 
an object. 

End of DEFINE FSR, before 
completion message is issued. 


After calling the catalog to locate a 
model object. 


End of procedure that built the 
model table. 


End of DEFINE FSR. 


Before and after calling the catalog 
to delete an entry. 


Before and after calling the catalog 
to locate the entry type. 


Start of DELETE FSR. 


End of DELETE FSR, before data 
sets are closed and the completion 
message is issued. 

Before and after the UCATLG 
macro in MORESP. 

Before each call to an FSR. 


Before each call to the 
Reader/Interpreter. 


All Reader/Interpreter FSR 
processing is complete. 


End of procedure that gets a record 
from the user routine. 


End of procedure that gets a record 
or control interval from a VSAM 
data set. 


After VERIFY macro ts issued. 


After control returns from an 
external user routine. 


After the GET for update. 
After the PUT for update. 


End of procedure that writes a 
VSAM record. 


After detection of a VSAM I/O 
error. 


After ACB and EXLST have been 
built, at end of procedure. 


After RPL ts built, at end of 
procedure. 


Before CLOSE macro ts tssued. 
At end of all UCLOSE processing. 
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Phase or 
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IDCLCOI 


IDCLC02 


IDCLRO!I 
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Procedure 


DSDATA 


OPENRTN 


DSINFO 


IDCIO03 


IDCLCOI 


ERRPROC 


FREESTG 


IDCLC02 


LISTPROC 


LOCPROC 


AATOPLR 
ADDASOC 


BLDVEXT 


BUFSHUF 


CATOPEN 


CKEYRNG 


CLEANUP 


CLENCRA 


CRAOPEN 


CTTBLD 


DOOTHR 


DOVSAM 


ERROR 


1ODS 


1O10 
1020 
1021 
IOl! 
1002 
IOPO 


LCO99 


LCMG 


LC98 


LC02 


LCTP 


LCAL 


LCBL 


LCWA 


LRAA 
LRAD 


LRBL 


LRBU 


LCRA 


LRCK 


LRCI 


LRC2 


LRCR 


LRCT 


LRDO 


LRDV 


LRER 


LRZY 


LRZZ 
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Situation at Dump Point 

After obtaining file information 
from the label cylinder. 

Before OPEN macro ts issued. 
After OPEN macro is issued. 
Atend of all UOPEN processing. 
After return from IKQVDTPE. 
After formatting the work area. 


After positioning is complete, 
before returning control to IDCIO- 
PO. 


End of LISTCAT FSR, before 
freeing storage in IDCLCOI. 


Before UPRINT macro is issued 
to print a message. 

End of LISTCAT FSR, before 
freeing storage tn IDCLC02. 
When IDCLC02 is called the first 
time to establish addressability. 
Before UPRINT macro is issued 
to print catalog data. 

After calling the catalog to locate 
an entry. 

Before calling the catalog to 
locate an entry. 

After calling the catalog to locate 
an entry. 

Entry point for IDCLROI. 

Start of procedure that adds an 
association to the association table. 
Start of procedure that builds 
vertical extension tables. 


Start of procedure that moves a 
record to its “home” buffer. 


Start of procedure that prepares to 
open the catalog. 

Start of procedure that checks for 
keyrange. 

Start of procedure that cleans up 
before exit. 


Start of procedure that closes the 
CRA and prints completion mes- 
sage. 

Start of procedure that opens the 
CRA. 


Start of procedure that builds Cl 
translate table. 


Start of procedure that controls 
printing nonVSAM information. 


Start of procedure that controls 
printing VSAM information. 


Start of procedure that handles 
errors. 


After error message has been 
printed. 


After error that forced an ABORT 
of this execution. 


Licensed Material — Property of IBM 


Phase or CSECT to Dump Points Cross Reference 


Phase or 


CSECT 


IDCLRO2 


IDCMPO! 


IDCPROI 
IDCRCOL 


Procedure 


GETPRT 


INITLZE 


INTASOC 


INTSORT 


INTVEXT 


MEMSORT 


PRTAAXV 


PRTCMP 


PRTDMP 


PRTDMPC 


PRTFIFO 


PRTMCWD 


PRTOJAL 


PRTOJVL 


PROTHR 


PRTTIME 


PRTVOL 


PRTVSAM 


SUMIT 


TCICTCR 


VERTEXT 


IDCLRO2 


CTLGPROC 


DELTPROC 


IDCMPOlI 


IDCPROI 
CKNAMES 


DIRECT 


Dump Point Type 
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LRIA 


LRIS 


LRIV 


LRME 


LRPA 


LRPC 


LRPD 


LRPE 


LRPF 


LRPM 


LRPJ 


LRPK 


LRPO 


LRPT 


LRPW 


LRPV 


LRSM 


LRTC 


LRVE 


LRO2 


M PZZ 


MPDC 
MPDD 
MPFN 


PRO| 
RC99 


RC98 
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Situation at Dump Point 
Start of procedure that gets and 
prints records. 


Start of procedure that initializes 
the FSR. 


Start of procedure that initializes 
association tables. 

Start of procedure that initializes 
the sort table. 


Start of procedure that initializes 
the vertical extension table. 


Start of procedure that sorts the 
entries in sort table. 


Start of procedure that prints 
associated AlXs and volumes. 


Start of procedure that prints and 
compares information. 


Start of procedure that prints dump 
if specified. 


Start of procedure that prints dump 
of catalog record and underscores 
miscompares. 


Start of procedure that prints CRA 
in order of CI number. 


Start of procedure that prints 
miscompare words. 


Start of procedure that prints an 
objects altases. 


Start of procedure that prints an 
object’s volumes. 


Start of procedure that prints 
nonVSAM objects. 


Start of procedure that prints 
timestamps. 


Start of procedure that prints 
volume records. 


Start of procedure that prints 
VSAM structures. 


Start of procedure that prints 
number of entries processed. 


Start of procedure that translates 
the catalog CI to the CRA. 


Start of procedure that handles 
vertical extension records. 


Entry point for module that gets a 
record for Recovery Field manage- 
ment routine. 


Before and after calling the catalog 
to locate, alter, or define an entry. 


After the first UCATLG. 
After the second UCATLG. 


End of IMPORT FSR, prior to 
closing data sets. 


End of PRINT FSR. 


Before gathering information on 
name in name list from CRA. 


Before obtaining a directory fora 
volume. 
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Phase or CSECT to Dump Points Cross Reference 


Phase or 
CSECT 





IDCRCO02 


IDCRIO! 


VSE/VSAM Access Method Services Logic 


Procedure 


NAMETABL 


ERRCK 
SCANCRA 


TIMESTMP 


CKCATNM 


OPEN 


OPENCRA 


EXTRACT 


MESSAGE 


SUBSP 


COMPNAME 


BUILDNAM 


DUPNAMCK 


OBJVOLCK 


SYNCH 


EXPORTDR 


BUILDCRV 
INIT 


TERM 


CLUSPROC 


CTLGPROC 


IDCRC02 
IDCRC02 
NVSMPROC 


BYPASTRM 


CONVERT 


DEFAULTS 


DSPLCALC 


Dump Point Type 


RC97 


RC96 
RC95 


RC94 


RC93 


RC92 


RC9I 


RC90 


RC89 


RC88 


RC87 


RC8&6 


RC85 


RC84 


RC83 


RC82 


RC81 
RC80 


RC79 


RC06 


RC16 


RCO02 
RC04 
RC28 


RIBT 


RICV 


RIDF 


RIDC 


dump 


dump 
dump 


dump 
dump 
dump 
dump 


dump 


dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 


dump 
dump 


dump 


dump 
dump 


dump 
dump 
dump 


dump 


dump 


dump 


dump 
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Situation at Dump Point 


Before marking or adding a name 
to the name chain. 


After opening a CRA. 


Before scanning CRA to build the 
CTT table. 


Before obtaining format 4 times- 
tamp for CRA being opened. 


Before checking owning catalog 
name of CRA being opened. 


Before the opening of the CRA. 


Before opening or closing a CRA 
and doing all other work (e.g. Build 
CTT). 


Before using internal Field 
Management to get information 
from CRA. 


Before printing any message from 
IDCRCOL. 


Before allocating space for the 
name chain. 


Before compressing a name for the 
name list. 


Before constructing a block for the 
name chain. 


Before checking the name chain for 
duplicates. 


Before checking Sync. of entry 
across multiple volumes. 


Before scanning the name chain for 
a CRA to check it. 


Before looping down name chain to 
call IDCRC02 to export data sets. 


Before building the CRV. 


Before initializing to begin 
processing. 


Before special processing to 
terminate request (closing output 
data set.) 


Start of procedure that processes 
VSAM objects. 


Start of procedure that issues 
catalog locates. 


Start of main procedure. 
Before termination processing. 


Start of procedure that processes 
nonVSAM objects not associated 
with GDG’s, 


Start of procedure that bypasses the 
remainder of the current modal or 
null command. 


Start of procedure that converts a 
constant from EBCDIC to binary 
or hexadecimal. 


Start of procedure that adds default 
parameters to the FDT. 


Start of procedure that calculates 
the position within a secondary 
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Phase or CSECT to Dump Points Cross Reference 


Phase or 
CSECT 


IDCRI02 


IDCRI03 


IDCRMO! 


Procedure 


ERRORI 
ERROR2 
GETNEXT 
GETQUOTD 
GETRECRD 
IDCRIOI 
INREPEAT 
MODALIF 
MODALSET 
MODLELSE 
MORSPACE 
NAMESCAN 


NEEDNOTS 


PACKCVB 


POSPARM 


SCANCMD 


SCANENDS 


SETDFLT 


SETFLAG 


SKIPCMD 
IDCRIO2 
IDCRI103 


CPLPROC 
CTLGPROC 


DELTPROC 


Dump Point Type 


RIEI 
RIE2 
RIGN 
RIGQ 
RIGR 
RIEX 
RIIR 
RIMI 
RIMS 
RIME 
RIMC 
RINS 


RINN 


RIPC 


RIPP 
RISC 


RISE 


RIST 


RISF 


RISK 
RISD 
RITM 


RMCL 
RMZZ 


RMDC 


RMDD 


dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 
dump 


dump 


dump 


dump 
dump 


dump 


dump 


dump 


dump 
dump 
dump 


dump 
dump 


dump 


dump 
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Situation at Dump Point 


FDT vector in which to place an 
FDT pointer. 


Start of procedure that issues a 
message without inserted text. 


Start of procedure that issues a 
message with inserted text. 


Start of procedure that scans the 
input command. 


Start of procedure that scans a 
quoted constant. 


Start of procedure that obtains the 
next input record. 


Start of Reader/Interpreter 
module. 


Start of procedure that scans a 
repeated parameter set. 


Start of procedure that scans an IF 
modal command. 


Start of procedure that scans a SET 
modal command. 


Start of procedure that scans an 
ELSE modal! command. 


Start of procedure that scans an 
FDT space for a list of constants. 


Start of procedure that checks data 
set names. 


Start of procedure that checks the 
input command for conflicting or 
missing parameters. 


Start of procedure that converts a 
decimal constant into a binary full- 
word. 


Start of procedure that scans a 
positional parameter. 


Start of procedure that scans the 
input command parameters. 


Start of procedure that checks the 
input record for a continuation del- 
imiter and determines the scanning 
limits of the record. 


Start of procedure that puts P 
defaults in the FDT. 


Start of procedure that notes the 
occurrence of a parameter in the 
FDT. 


Start of procedure that bypasses the 
remainder of a function command. 


Start of module that prepares to 
scan a command parameter set. 


Start of module that performs 
command termination functions. 


After the CPL has been built. 


Before and after the UCATLG in 
CTLGPROC. 


After the firsts UCATLG in 
DELTPROC. 


After the second UCATLG in 
DELTPROC. 
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Phase or CSECT to Dump Points Cross Reference 


Phase or 
CSECT 


IDCRPOI 


IDCRSOI 


IDCRSO2 


IDCRSO3 


VSE/VSAM Access Method Services Logic 


Procedure 


IDCRMOlI 
IDCR POI 
CATRELOD 


CNVRTCI 


DUMPIT 


TRUENAME 


CATINIT 


COPYCAT 


CLEANUP 


ENSURECI 


INIT ¢ 


MERGECRA 


PROCCRA 


REASSIGN 


UPDCRA 


IDSCROI 
ASSOC 


PROCTYPE 


PROCCI 


SETCI 


VERDSDIR 


VERCI 


GETVIA 


PROCVOL 


SETBITS 


VOLCHK 


Dump Point Type 


RMFN 
RPO| 
RPDI 


RPCI 


RPIO 


RPTU 


RSCI 


RSC2 


RSC3 


RSE2 


RSII 


RSMI 


RSPI 


RSRI 


RSU2 


RSOO 
RSA1 


RSP3 


RSP4 


RSS2 


RSV2 


RSV3 


RSGI 


RSP2 


RSS3 


RSV! 


dump 
dump 
dump 


selected 
areas® 


selected 
areas’ 


selected 
areas’ 
dump 
dump 


dump 


dump 


dump 
dump 


dump 


dump 


dump 


dump 
dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 
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Situation at Dump Point 


Termination of IDCRMOlL. 
End of REPRO FSR. 


At the end of all reload error 
checking before any updates have 
been done to the target catalog. 


On exit from procedure that 
translates control interval numbers 
on the backup catalog. 


After read or write to backup or 
target catalog. 


On exit from procedure having 
built truenamerange table. 


End of procedure that builds CIN 
to RRN table. 


End of procedure that copies the 
catalog to the workfile. 


Before freeing the resources used 
by RESETCAT. 


At start of procedure prior to 
ensuring enough free control inter- 
vals 


End of procedure that initializes 
data area and obtains resources. 


End of procedure that merges and 
resets CRA into the work file. 


End of procedure that merges the 
records of a reset CRA into the 
workfile. 


End of procedure that assigns new 
control interval numbers to records 
on the reassign chain. 


End of procedure that updates the 
CRA from the workfile. 


End of RESETCAT FSR. 

End of procedure that ititiates 
association checking. 

After processing a set of records for 
associations. 


End of procedure that ensures that 
a contol interval number ts in the 
list of control interval numbers. 


End of procedure that updates the 
workfile records from the associa- 
tions tables. 


After verifying initial space claims. 


After verifying associations on a set 
of records. 


End of procedure that locates 
records in the workfile. 


Before freeing resources used by 
PROCVOL routine. 


At end of procedure that sets up a 
single bit map. 


End of procedure that checks 
Format | DSCBs against space 
headers. 
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Phase or CSECT to Dump Points Cross Reference 


Phase or 
CSECT 


IDCRS04 


IDCRSO5 


IDCRS06 


IDCRSO7 


IDCSAOI 


IDCSA02 


Procedure 


VERB 


DELGO 


FIND 


MODGO 


ADDUPCR 


BLDVLST 


BLDRLST 


CKERR 


ENTNMCK 


SCNVLST 


SCNRLST 


DSOPEN 


DSCLOSE 


RECMGMT 


WFDEF 


WFDEL 


CATEOV 


HVTOC 


RENAMEP 


UPDCAT 


SAABT 


IDCSA02 


Dump Point Type 


RSV4 


RSD3 


RSF! 


RSM2 


RSA2 


RSB|I 


RSB2 


RSC4 


RSE| 


RSSS 


RSS6 


RSDI 


RSD2 


RSR2 


RSW2 


RSW3 


RSC7 


RSD4 


RSR4 


RSU! 


SAAB 


ZZCA 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


Situation at Dump Point 


Before freeing resources used by 
procedure which verifies GDG data 
sets. 


End of procedure that deletes a 
group occurrence. 


End of routine that finds one or all 
group occurrences. 


End of procedure that modifies a 
group occurrence. 


End of procedure that prepares for 
update CRA processing. 


End of procedure that adds an 
entry to the volume serial table. 


End of procedure that adds an 
entry to the reset volume table. 


Before RESETCAT terminates due 
to an error. 


End of procedure that determines if 
a record has a true name. 


End of procedure that locates an 
entry in the volume serial table. 


End of procedure that locates an 
entry in the reset volume table. 


End of procedure that opens a 
VSAM file. 


End of procedure that closes a 
VSAM file. 


End of procedure that performs all 
1/O requests. 


Before the UCATLG work area is 
freed. 


End of procedure that deletes the 
workfile. 


At conclusion of routine that 
extends the catalog. 


At conclusion of routine that 
processes all common VTOC han- 
dler functions. 


Before freeing resources used by 
the RENAMEP procedure. 


End of procedure that updates the 
catalog from the workfile. 


In UABORT routine, when a dump 
is not to be printed for a “no space 
available” condition. 


Before and after CATLG macro is 
issued to invoke catalog manage- 
ment routines. 
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Phase or 
CSECT 


IDCTPO! 


IDCTP04 


IDCTPOS5 


IDCT P06 
IDCVYOI 


IDCXPO0I 


Procedure 


CONVERT 


ERROR 


IDCTPPR 


LINPRT 


ESTACONT 


ESTSCONT 


RESTCONT 


IDCTPOS 


IDCT P06 
IDCVYOI 


IDCXPOI 


CTLGPROC 


DELTPROC 
MORESP 


Selected Area Footnotes: 


Dump Point Type 


TP2l 


TP2N 


TPER 


TPSI 


TPIN 


TP31 


TP3N 


TP4A 


TP4S 


TP4R 


TPEB 


TPS! 


TPSN 


TPEA 
VYBG 


VYND 
XPFN 


XPO! 
XPZZ 


XPZY 
XPZX 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 


dump 
dump 


dump 
dump 


dump 
dump 


dump 
dump 
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Situation at Dump Point 


Start of procedure that converts 
data to a printable form. 


End of procedure that converts data 
to a printable form. 


Start of procedure that prints a text 
processor error message. 


After initialization of text processor 
parameters. 


At end of phase; the format 
structure fora UPRINT macro has 
been processed. 


Start of procedure that formats 
pages and prints titles, headings, 
footings, and other lines requested. 


End of procedure that prints lines. 


End of procedure that processes the 
UESTA macro. 


End of procedure that processes the 
UESTS macro. 


End of procedure that processes the 
UREST macro. 


Before a converted UERROR 
message Is printed. 


Start of phase that loads the static 
text phase. 


Start of phase that loads the static 
text phase. 


Start of UERROR procedure. 
Start of VERIFY FSR. 


End of VERIFY FSR. 


End of EXPORT FSR, before data 
sets are closed and space freed. 


Start of EXPORT FSR. 


After calling the catalog to locate, 
alter, or delete an entry. 


Just after the UCATLG macro. 
Just after the UCATLG macro. 


The following list describes the selected areas pointed at the specified dump points. On the 


printed output, the area title precedes each area dumped. 


Dump Point 
|. LCMG 


2, LCTP 


3. LCAL 


VSE/VSAM Access Method Services Logic 


Area Title 
ERRDARG 


DARGLIST 


CATRC 
CTGENT 
CTGPSWD 
CTGPL 


Area Description 


Text processor argument list (DARGLIST) used for 
printing messages 


Text processor argument list (DARGLIST) used for 
printing the catalog area 


VSAM catalog return code 


VSAM locate key (either the entryname or the CI number) 


User supplied password 


VSAM catalog parameter list 
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Dump Point 


4. LCBL 
5. LCWA 


6. RPCI 


7. RPIO 


8. RPTU 


Area Title 
CTGFL array 
FPL (1) 


FPL (nn) 
MULTIFPL 


Same as LCAL 


CTGWKAPT 


CTGWKA array 


WKA (1) 


WKAEND 
OLDCI# 
NEWCI# 


DLOUTREC 


FUPOTREC 


INSOTREC 


UPOUTREC 


RDCCREC 


UPCCREC 


RDINPREC 


RDOUTREC 
2ND-HALF 
SORSTABL 


TARGTABL 


Area Description 

VSAM field parameter list. 

Note: The number of FPLs 

(nn) varies with the amount 

of catalog information 

requested (i.e, NAME, HISTORY, 
VOL, etc.) 


VSAM field parameter list if a special function FPL is 
required 


Workarea address of VSAM returned cataloged fields 


VSAM returned catalog fields 
Note: This workarea is dumped 
as an array of 256 byte 

blocks and the last block 

less than 256 bytes is 

indicated as WKAEND. 


Cl number of backup catalog record to be converted 


Converted CI number in the target catalog (i.e, OLDCI# 
converted to NEWCI#) 


A record in the high key range of the target catalog which 
was deleted because it did not exist in the backup catalog 


A record in the low key range of the target catalog which 
was converted to a free record because it did not exist in the 
backup catalog 


A record which was inserted into the target catalog because 
it existed in the backup catalog but not in the target catalog 


A record which was used to update the target catalog 
because the same record existed in both the backup and the 
target catalogs 


Catalog control record of the target catalog before it was 
updated 


Catalog control record of the target catalog after it was 
updated with results of the reload operation 


A record from the backup catalog before any action is 
taken 


A record from the target catalog before any action is taken 
The second half of the record printed just above 


A table which maps the extents of the high key range of the 
backup catalog. Each entry maps one extent and contains: 


Word | - High RBA of the extent 
Word 2 - Number of ClI’s in the extent 


The table is used to convert a CI number in the backup 
catalog to the appropriate Cl number for the target catalog 
(see ‘RPCI’ above). 


Same as SORSTABL for the target catalog 
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Whenever an unrecoverable error is detected by the processor, the routine 
that detects the error issues a UVABORT macro. The System Adapter then 
issues message IDC4999I on SYSLST giving the ABORT code and, with the 
exception of code 28 and code 68, produces a full partition PDUMP with the 
ABORT code in register 15; the ABORT code indicates the type of error 


that occurred. 


The following list identifies the ABORT codes set by the processor and the 
phase or CSECT and procedure that sets each ABORT code. The list also 
explains the situation that caused the ABORT condition. 


ABORT Codes 
ABORT Phase or 
Code CSECT 
24( 18) IDCTPOI 
IDCT P04 
28(1C) IDCIOO! 


IDCIO02 


IDCSAOI 


IDCSA02 


IDCSA02 


IDCSA03 


IDCTPOI 
IDCTPOI 


IDCTPOS5 
IDCT P04 
IDCT P04 


IDCTP04 
IDCTP04 


32(20) IDCIOO! 


IDC1O03 


VSE/VSAM Access Method Services Logic — 


Procedure 
IDCTPOI 


IDCT P04 


IDCIOIT 


BLDOCMSG 


BUILDDBK 


GETCORE 


IDCSA02 


IDCSA02 


GETCORE 


LINEPRT 
ERROR 


IDCTPO5 
ESTSCONT 
PCTSETUP 


PCTSETUP 


PCTSETUP 


IDCIOGT 


IDCIOPT 


IDC10O03 


Situation that Caused ABORT 


The pointer to the Print Control Table in the GDT 
iS not set. 


The pointer to the Print Control Table in the GDT 
is not set. 


Storage was not available for the 1/O Adapter 
historical area and message area. 


A message that sufficient storage was not avilable 
could not be issued because the SYSLST data set 
is not open. 


Storage was not available to load the phase that 
contains the DTF and access method routines 
(IDCDIxx). 


Storage was not available for the automatic 
storage required for IDCSA02, IDCSA03, 
IDC1OOI, or IDCTPO1. 


The CDLOAD Anchor Table was full and storage 
was not available to load the phase requested by a 
UCALL or ULOAD macro. 


The CDLOAD Anchor Table was not full but 
storage was not available for CDLOAD to load the 
phase. 


Storage was not available for the automatic 
storage required by a phase. 


Storage not available for new header line. 


Storage not available to save Conversion Table 
(CVPSTRU). 


Storage not available for static text entry. 
Storage not available for Print Line Stack Buffer. 


Storage not available for Print Chain Translate 
Table. 


Storage not available for primary or secondary 
Print Control Table. 


Storage not available for sub-title line or footing 
line change. 


The pointer to the LOCSTR is zero, or the open 
flag in the LOCSTR is not set, indicating that the 
data set to be accessed has not been opened suc- 
cessfully. 


The pointer to the LOCSTR is zero, or the open 
flag in the LOCSTR is not set, indicating that the 
data set to be accessed has not been opened suc- 
cessfully. 


The pointer to the LOCSTR is zero, or the open 
flag in the LOCSTR is not set, indicating that the 
data set to be accessed has not been opened suc- 
cessfully. 
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ABORT Codes 
ABORT Phase or 


Code CSECT Procedure Situation that Caused ABORT 
36(24) IDCIO02 BLDOCMSG The SYSLST data set could not be opened, or the 
SYSLST data set has already been closed and a 
message cannot be issued. 
IDCTPO! STACKPUT An attempt to write to the output data set has 
failed. 
40(28) IDCIOOI IDCIOCL The length of the UCLOSE argument list is 
invalid. The length must be greater than | and less 
than 6. 
IDCIOOP The length of the UOPEN argument list is invalid. 
The length must be greater than | and less than 6. 
IDCIOPT The length of the UPUT argument list is invalid. 
The length must be greater than | and less than 4. 
IDCIOSI The length of the UIOINFO argument list is 
invalid. The length must be greater than three and 
less than 6. 
IDCSA02.  IDCSA02 The argument list of a UGSPACE, UGPOOL, or 
UFPOOL macro is invalid. 
| IDCSA05 IDCSA05 The argument list for the UTIME macro its tnvalid. 
52(34) IDCSA02. —- IDCSA02 The phase to be loaded (because the CDLOAD 
Anchor Table is full) was not found in the Phase 
Table. 
64(40) IDCSAO! IDCSAOI The CDLOAD macro failed loading phase 
IDCSA04 which contains the Phase Table. 
IDCSA02. IDCSA02 The CDLOAD macro failed loading a phase 
because the phase was not found. 
68(44) IDCSAOI IDCSAOI The initial GETVIS for IDCSAOI’s automatic 
storage failed. 
72(48) IDCRSOS CKERR An internal RESETCAT error occurred. This 
situation should not occur in a working program. 
IDCCLOI CANCEL command was executed in the com- 


76(4C) IDCCLOI 
mand stream, with CANCEL JOB option. 

You can find UABORT macros by examining the microfiche listings. The 
expansion of a UABORT macro for an ABORT code of 60 looks like this: 

RESPECIFY (REG13,REG14,REG15) RSTD; 

REG15 = 60; 

REG14 = GDTABT; 

REG13 = GDTABH; 

GEN(BR REG14) ; 

RESPECIFY (REG13,REG14,REG15) UNRSTD; 


Reading a Dump 
This section describes how to find phases and data areas belonging to the 
processor in a full partition dump, either a PDUMP ora system dump. 


PDUMPs are produced by the processor on two different occasions. If the 
Test option is set and the FULL keyword is specified, the processor pro- 
duces as many PDUMPs as requested, at the points requested. The proc- 
essor prints a message following each such PDUMP to identify the point at 
which the dump was produced. If an ABORT condition occurs, the proc- 
essor again produces a PDUMP except in the case of ABORT conditions 28 
and 68. An ABORT PDUMP can be distinguished from a system dump 
because there is no system error message and the ABORT dump is preceded 
by message IDC4999] giving the ABORT condition code. 


All executable phases, CSECTs, and certain data areas belonging to the 
processor are preceded by an EBCDIC character string to identify it. Phases 
and CSECTs are preceded by their full name, for example, IDCTPOIb. (The 
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date of compilation, in character form, follows the name.) Data areas are 
preceded by a four-byte identifier, either specific to the data area, or for the 
storage area in which it is built. For example, the Global Data Table is 
preceded by the characters GDTb. The FDT is built in storage owned by the. 
Executive, and it is found in the storage areas preceded by the characters 
EX00. 


How to Find Processor Phases 


The System Adapter normally loads phases using the CDLOAD macro. 
Thus, you can use the Anchor Table to find where each phase has been 
loaded. 


If, however, the Anchor Table is full, the System Adapter obtains storage for 
the phase to be loaded using the GETVIS macro and loads the phase into 
this area. You can find where these phases have been loaded from the Phase 
Table. The fourth word of the System Adapter historical area points to the 
Phase Table; however, the Phase Table normally follows the Global Data 
Table and the trace tables in a dump. The section “Data Areas” shows the 
format of the Phase Table. 


Figure 6-2, Part 2, shows how the Phase Table appears in a dump. You can 
tell that no phases have been loaded using the Phase Table because all the 
phase addresses contain zeros. 


How to Find the Module and Registers at Time of the Dump 
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The best way to determine which phase or CSECT caused the dump and to 
find the registers of that phase or CSECT varies according to the type of 
dump you have. 


In asystem dump, standard methods explained in your operating system’s 
Debugging Guide should be used. 


Ina PDUMP caused by an ABORT condition, the last entry in the Inter- 
Module Trace Table identifies the phase or CSECT that issued the UA- 
BORT macro. Register 15 of the registers at the top of the dump contains 
the ABORT code set in the UABORT macro. Once you know the ABORT 
code and the phase or CSECT that issued the VABORT macro, you can use 
Figure 6-2 to determine the internal procedure that issued the UABORT 
macro and the situation that caused the procedure to issue the macro. The 
last entry in the Intra-Module Trace Table may be a trace point within the 
phase or CSECT that issued the UABORT macro. 


The registers at the time that the VABORT macro was issued are not saved 
by the processor and cannot be found in a dump. 


If you have a PDUMP produced at a dump point, the trace tables printed 
after the dump tell you at what point the dump occurred. The next to the 
last ID in the Inter-Module Trace Table identifies the phase or CSECT that 
called the dumping routine; the last ID in the Intra-Module Trace Table 
identifies the exact dump point at which the dump was produced. You can 
use the trace tables printed after the dump to trace the flow of control before 
the dump point. These trace tables are better to use for this purpose than the 
trace tables in the dump because the printed trace tables do not contain all 
the trace points encountered while producing the dump. The trace tables in 
the dump have been filled with dump-related trace points. 


You can find the registers at the time the UDUMP macro was issued in the 

save area where IDCDBO1 saved the caller’s registers. Register 13 at the top 
of the dump points to IDCDBOI’s save area. The first word of this save area 
contains the characters DBO1; the word immediately preceding the previous 
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How to Find the GDT 


How to Find Save Areas 


save area in the save area chain contains the ID of the phase or CSECT that 
issued the UDUMP macro. 


Figure 6-2, Part 1, illustrates how to find the phase or CSECT that caused 
the dump and its registers in a PDUMP produced through the Test option. 
In this example, module IDCSA02 called for a dump at the dump point 
‘ZZCA’. Module IDCDBOI saved the registers of module IDCSA02 in the 
latter’s save area. 


The Global Data Table (GDT) is preceded by the identifier GDTb, (see 
Figure 6-2, Part |) so you may be able to find it by scanning down the right 
side of the dump. The GDT follows right after the first phase (IDCAMS) of 
the processor and the Anchor Table. A more systematic way of finding the 
GDT depends upon the type of dump you have. Figure 6-3 shows the two 
methods of finding the GDT and is referred to in the following paragraphs. 


Ina PDUMP produced as the result of an ABORT condition, you must use 
Method | shown in Figure 6-3. The GDT is contained in the System 
Adapter’s (IDCSAO1L) automatic storage area. Register 11 of the registers at 
entry to PDUMP points to the automatic storage area of IDCSAOI. The 
GDT is at location GDTTBL in the storage area; you must examine the 
microfiche listing for IDCSAO1 to find the offset of location GDTTBL. Add 
the offset of location GDTTBL to the contents of register 11 to obtain the 
address of the GDT. 


In a system dump, if the dump occurred after the call to IDCSAO1 but 
before IDCSAOI calls IDCEX0O1, then you must again use Method 1. Add 
the contents of register |! of the registers at the top of the dump to the offset 
of GDTTBL, to find the GDT. 


If the system dump occurred after IDCSAOI called IDCEXO1, use Method 2 
shown in Figure 6-3, The address of the GDT was passed as a parameter 
from IDCSAOI to IDCEX0O1. You must find the save area where IDCEXO1 
saved the registers belonging to IDCSAOI. The first word of this save area 
contains EXOI. Register | in this save area contains the address of a param- 
eter list. The first word in the parameter list contains the address of the 
GDT. 


Ina PDUMP produced as a result of the Test option, you can most easily 
find the GDT using Method 2. Find the save area where IDCEXO1 saved 
the registers belonging to IDCSAOI. Register | in this save area contains the 
address of a parameter list. The first word in the parameter list contains the 
address of the GDT. 


The GDT is the “anchor” for all areas of the processor. In the GDT are 
found pointers to the trace tables, to the historical areas, and to the entry 
points of the System Adapter, the I/O Adapter, and the Test Processor. 


Figure 6-2, Part 1, shows the GDT as it appears in a dump. 


The first word of the standard save area for processor phases and CSECTs 
contains the ID of the phase or CSECT that saved its caller’s registers in that 
save area. (The ID is the last four characters of the phase or CSECT name.) 
For example, if the first word of the save area contains DEOI, then you 
would know that IDCDEO1 saved its caller’s registers in this area. The 
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op te mene ernenanvrer 
eneceeroetevo es eevee 


eaeamsrereer ven eae 


2 C€LCl CeOr CLC 
CPS1 TeEt Je T 
ci eC PCL Tet 
QA IPST TP2K TP 
T ICFT TCC TFRZt 
YE2N TPCE TPZ2T T 
2h SASK J[CCL.... 
TPO lid. 6 00s 8 0 8 


eaeaeeeeenanseveonsa 















intra-Module 
Trace Table 
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CAGARO 
CSo9R AQ 


LIst 


C°C 4C 2£2 
c9 as 5 


CLFOF54C 
ETFEQF 340 


c99e 734C 
c99e Phase Table *24C 
C939 7240 


C€S9020 
C99C 40 
099( 60 
C99C 80 
099C 40 
Ossccc 
CCOCEO 
0990006 
cs9n20 
€99040 
099040 
o990R0 
c990ACt 
0990C0 
CSSINEQ 
COSEON 
CSSF2¢ 
C99F4O 
OS9E 60 
C99E aC 
C9I9EAO 
CS9FCC 
C9O9F 20 
cCo9FeC 
O99F 80 
COSFAO 
CI9FCC 
CSO9FEQ 
o9garoc 


C2256 


CSC 4C3N9 
C9C 40 3E3 
C9L4CIE3 
C9C4C3E3 
C9C4C3IE3 
C9C4C3E3 
C9C4C 3E3 
C9C4C3E3 
CSC4C7E3 
C9C4C3C3 
C904C3C3 
C9C4C3C4 
C€904C3C3 
C9C4C3C3 
C9C403C4 
C9C4C3C4 
CSC4C3Nna 
C9C4C 304 
C9c4ce3C7 
FOFQFOFO 
ececoccds 
ceoccooco 
9coocooe 
00000000 
OCOCSSAES 
09094048 
eococd0o 
oncooccoe 
yecocdne 


Aan Ane 


CSNIF24C 
NTFECFE440 
E2F4ES5FC 
E2C5E7FO0 
E203C3FC 
E2D4N7FO 
E2F307F1 
F2C9D6FC 
F2C103F0 
C4C04024C 
C4070640 
C4N7NG4&C 
C4E7C74C 
CGESEB4O 
C5FCFE LSC 
D3FCF140 
OTFECF140 
NIECE L140 
O4FOF14O 
FCFOFOFC 
--SAME-= 
QOOED4SOR 
-~SAME-- 
A00 81444 
C0094050 
ecnsagsa 
--S AM E-- 
oceco000 
9000n0Cc0 


7 ater 


06/05/13 


cacooooc 
oceecacc 
0000000C 
cnecaner 
feted elatelatele) 
coaccocc 
soccaoec 
coocgoco 
cgog0n0c 
goocaooct 
cAocgnoc 
coorccooc 
¢0000000 
cacoccoc 
cocecoce 
oo0ogo00r 
90000000 
00000000 
ooooococ 
coocaacc 
ooc00sac 
coo0000c 
onooaocc 
00000900 
coocoaso0e 


00cn000c 
0009¢aC8 
oq00a0nrdg2 
OOO9A04R 


ecnanocc 
eoococce 


Save area where DBO1 saved 
caller's registers (SA02); 
registers are those of CSECT 
that called for dump 


CIADEO 
c9A10C 
€94120 
C9AL4SC 
C°s16C 
CSALAC 
COAICO 
CSALEC 
csa2ce 
O9A24C 
CSAZEC 
CSAPAC 
0°A2 A0 
CS82CC 


CSADAC 
COAFCCE 
OGAF 2¢ 
CSAESC 
CSAFEC 
CSAE BO 
CIUAFAC 
CSAFCO 
CSAEEQ 
CIAFAO 
0° AF 20 
QSAF4O 
CYAF6O 
Q°AF RO 
CGAFAC 
OOAFEO 
coRodC 
OGRO2C 
cseanan 
COROAC 
csecca 


CoB SS 
€9B180 
CSALAO 
coBlc4 
CORLEC 
CCR240 
C9OB260 
e9e8280 
CSOB2AC 
e982C9 
CSR2FC 
c9B3C0 
€9R329 
CCB346 
O0°R360 
09R280 
CSR3AC 
o9R3CcoO 
COB3ES 
c98400 
09B420 
OSR44"f 
098460 
CUR4GAN 
QSA4AC 
CaB4CO0 
CSAGEC 
CSBSCO 
098520 


60€000400 
ecces41co 
00000000 
BOOSCN1A 
0009s950 
OCCSA2R0 
cocococo 
ooceacsbea 
coccos4o 
cececccco 
B800ACF1B 
O3CSCSE3 


LIST 


0000c900 
oecoacco 
0008 320¢ 
ecercacy 
goooccae 
00000000 
ocoocace 
eccoccco 
00000c00 
N3C74CC4 
40C4C03C2 
OTF 2C940 
01009100 
ooococca 
ceccccoo 
oacncenco 
ococcecao 
eccecccece 
O000024F 
00098199 


OOORLGE4GF 
CCCeP1LAGB 
AN0°1 C60 
OCORLE4SF 
-~-SAME-- 
coooooac 
Cenarci? 
AocAR1L2CC€ 
--SAME-- 
OCORCCEC 
--SAME-- 
eccececcec 
OOOAFTTE 
O440F2C1 


--SAME-- 
ecacecor 
80083206 
~-SAME-- 
ecocaore 
00000000 
ceccocec 
ec7sacco 
n00n0900 
N2ES034C 
C340C4C3 
EAN7E 2NE 
eco: 
OnnC 
=='St 
ccc’ 
conc 
--SAME~-- 
CSETFOF] 
oonco0nn 
eCCS9S5C 


cooognce 
COOEC4CA 
OOOROKAC 
cn0000nc 


COOCOOFS 
000°120C 
ag09¢s50 


cnooco0d 


ccooctac 
80048575 
c6C740Cs 


CesOEs/ 1? 


ccoococct 
co790NCC 


fLOOIATNR 
oonaocor 
coneecac 
coooct4s 
0000000C 
E?CiC7C1 
C3F340C46 
4SOFACTCS 


Save area where 
DLO1 saved 
EX01's registers 


C4D3FOF1 
AN000000 
cco9geo re 


Address of parameter list; 
second word in list contains 
address of FDOT 


ocoaccco 
0o000cd0n) 
ON09F 262 
oocecdo0d 
ooreccoo 
oooctaco 
E2Cc1c7e? 
F4F 44009 
40E2C1C4 
eeecccad 
4 TFOFOLG 
58F10090 
DC1450R0 
BO4AS5C AD 
ROSCC5EF 
CCBAC 201 
5OFOR054 
C1A250FN 
9ce109¢eCc 
C1L7E1R833 
OP 03R0FB 
SBE 1CIOC 
CCOCCTFE 
FOF 200070 
ocooocon 
N4C 20305 
0000C168A 
OCODRFE 54 


congoonn 
o00gRCBA 
RONGR2C7? 
--AME--~ 
ooncoonae 
ecooonns 
4CC9OCGFI 
C9F2C64C 
C540ACT9 
~-SAME-- 
10°9C4C3 
58FFOCEO 
0c08180e 
RC4C 4130 
0297RF050 
RLSeCLIC 
9280R954 
ACSC41FO 
9C3cnc20 
5O30RQEA 
AQr4S IRC 
CAICNCen 
AOCAAR4RC 
CSE7FCOL 
nonooaan 
N2E9C5"9 
CSETFCF2 
acranooa 


40081744 
oconannc 


coccacoa 
CIONICTSC 
FA4OC9CS 
C9CINS5Ns 
C4C3C403 


CSETFCF2 
CTOO41EC 
c7ccecsar 
RPCEBEC3C 
CLEORER AO 
5O20B15C¢ 
BREN AOAC 
ROFS5OFO 
FRAOBO4R 
5O30RPCEC 
80044710 
CTFE4TEC 
OCO9FS4 AG 
cocecooc 
socoooce 
r6cooocd 
EINTFOF) 
QCOQQAGF4 


00000 3C0 
Foncc270 
ONCCOTFEO 
CCOLO9IED 
co0co700 
000C0190 
CCOC1LLAO 
000C0 240 
000C€0400 
CO0C1 ZAC 
00000590 
acccolro 
oocca70c 
caoco1ce 
occeed320 
coocn4na 
00000270 
0007027¢ 
000C019%0 
CCOC4 TEC 
OCOCOERO 
o00co Fro0 
cocc3790 
¢€0000750 
toletetelezalele 


ocoocasc 


ooCceSRAC 
600A1193 
OCCSAODS5C 


egacagne 
oanancoc 


NOCEO40E 
C4N32FQr) 
FCF I4NF? 
4QE 207°C 
BO0O0O00LS 
00099000 
ecceorre 
aNocan1s 
oecerooc 


CONG ALES 
00¢S9950 
8008119? 


noecoonc 


ocoonggc 
oogRg8AaC 
CSFSFO4C 


acoragoc 
cgncnooc 


OOCSATEC 
Hogcoanc 
oeccoocc 
coaocacec 
cooogonr 
40ESECC2 
CIEFF26C 
C34CF INT 
— crc 
7000C 


mel aeie 
“9090 


CECSSANC 
000cN53¢ 
4CCE1L TAS 
COCCRIRC 
C4161 


ROOCCCLE 
000cs9950 
occcaadc 


OONCKOOC 
DSCSE 206 
F4aFcace9 
40€2C1C3 
FCF 14C0C 


404C49F7 
COLCOSILF 
RO5°C 202 
PAEC413C 
RPO4ASOAO 
5AACHO4A 
411CRC4C 
BOS4S52eC 
582cacac 
182725840 
C1445R2C€ 
C1445eNC 
onacecac 
oo0cono0nd 
cocecccc 
00000090 
cercacae 
oonccs7c 


Figure 6-2. Sample Dump (Part 2 of 5) 





€9C4C2C5 
CSC4C3ICS 
CSC4C3C4 
CSC4C305 
cscac ane 
CSC4C2C5 
CSC4C3E3 
CSC4C7E2 
CSC4C3E? 
C&C4C2E? 
CAC4C3E2 
C9C4C3E3 
CSC4C3E2 
C9C4C2E2 
C9C4C3C3 
CSC4C3C2 
C9C4C3C3 
CoC 4C2C3 
c9C4C3¢C2 
CSC4C402 
CSC4C3C7 
CSC4C3E7 
CS9C4C3C1 
CSC4C7EE 
0onooo0dc 


ecancaocc 


OCCSSFEAE 
COAC9I9SEO 
ceoeccl1e 


OCOSATEC 
eccncccc 


COCEC TCC 
4CC4C2F0 
CTFOFLA4C 
FLl4CC4C2 
OOUSEFFEF 
occacocc 
CCCACACC 
CQOSAFFF 
cocecccc 


CCOPRCTE2 
69080650 
ECCSA2PE 


cccnoccc 


cacoccee4 
goceces9c 
E2C1C4Cé& 


eecacece 
ooceecce 


cecacoce 
cocoocce 
QPCaAFBA 
CEESAAEE 
eccocccc 
CLACESES 
E2C1€2C1 
F?2C94QE2 
ecccocco 
CSCEFCCEC 


cecaecocc 
coooodnc 


CCCRIAFE 
FPECICC15 
CoOCScSCcee 
ecorocco 


ETFCF 240 
DEFCF24C 
C2FCF14C 
CSFCFL4C 
CCFCF24C 
CSC2E324C 
DTFOF54C 
E2C4C 2FC 
E2E3D7FO 
E2C3C7F1 
FOETDIFC 
E2CTICSFC 
E20ScsFe 
E2C4CEFC 
C4C40540 
C40SC 74C 
C4C1034C 
C4040 74C 
€402€34C 
C32FCFLAC 
DSFCF140 
C7FCF14C 
D3FCF140 
EeFCF14C 
occoococ 


occcecec 


cece ce 
ocoReer €6C 
oceoocn2 


ococecoc 
eccceeccc 


CCCSATEA 
F14CC 403 
CSCéeFCF 
FCF14600 
occelils?3 
ecoooccd 
cccecpec 
ocoelts3 
ccocecac 


OCOCOCES 
gocgaice 
CCCAZ FE} 


ecccocec 


cceeccoc 
OCcCQOCES 
4CCSETF] 


06099550 
ocececoc 


ocececae 
OCCSGFES4 
eceeccce 
ecccoccc 
occocccc 
€20140C4 
4CESESC2 
CTF2CE4C 
oo 1cococ 
eceeocec 


ecccoccc 
ocacococ 


4CCELSFE 
ACOCOCIE 
eeccoccc 
ecoel asc 
amy SPOBA 


CCCCC'| Parameter List | °° 1"° 
ee arene | cence 
o00co from IDCEX01 


cocecooc 
cecococc 
cocooocc 
cecccoce 
eacceccce 
eccecoce 
co0ocoao 
cccoccce 
coooccca 
cceoccce 
Cceoocaoc 
ceeccccc 
cccaococc 
cocecccc 
coccceeco 
cececcce 
eccococo 
eccacceco 
ececococa 
eccococc 
ecceccce 
coccccce 
occccocc 
eccoccecc 
eececoce 


cececccc 


ecce12c7 
OOCISFCC 
coceccce 


ecceccce 
cececoca 


C4C2FCF1 
FCFL40E2 
4CEIC7FC 
E2C1FCF2 
COCSSSEC 
eacecocc 
COCSALE® 
cOocses50 
ecceccccc 


cacrcecc 
OCOOR1LE4F 
ECCSCTE2 


cecocecc 


cececcecae 
coacacoad 
Cé4CCEE? 


COCPA2ZEC 
cecococe 


eecocecce 
ecracecc 
cecececc 
eccoccce 
cecececc 
C2£5C34C 
C1l4CE2C7 
CSCECTE3 
ceeccoce 
cecocccce 


cececece 
eccececc 


eccrcccc 
COCSRFFEF 
cacceccc 
cOCCCEIC 
GOCP17A4 
cecoceco 
cecc/ecce 
ececssPad 
ecce2cce 
POCCR2E2 
ccecocccc 


cccec4y Address of FDT [7¢@1¢ 


40C9C 

CSECFL4C 
C34Neacs 
ecaccecs 


F3A4RFCFY 
OCOSA4GE 
PC4eircn 
PCFECEC2C 
PN4CERFC 
SQeORC4C 
CSEF4CTFC 
PCS45RFC 
C25EeRFS 
AOC4YSA? 
4ccac.ec 
OCL4ERCC 
CNOCCIEC 
oorccooe 
ececececc 
ocaccecc 
COCSSFCC 
acCrocni1s 


pececacé 
E20440E2 
ecceecce 


FCCCSCEC 
cecsAr4ce 
LFAA4CAQ 
REEgC2RC 
4024411 
41FCC176 
RCF4SFAC 
ACE44TIC 
2Q05E025E 
4STECT 144 
ACOB4TIC 
CL741 ALP 
ecccecce 
occaoced 
eccceccce 
goaococor 
7CCSR3SC 
PCCCOCILE 


sas 0C9 
40CSCCF? 
C1céc74a 
eccccoce 


cecccsce 
1e@RPLECLC 
POF44EEC 
PCEGEBFC 
RBC 4CCEEF 
SCFCECEA 
PC4REQAC 
RO4CCSEF 
2CCAECFS 
S1ecaccc 
C144602C2 
4111¢0CC 
NTICECEEF 
cococcco 
cocec1c2 
cacececc 
COCe244C 
CCCSEFFE 


COCO 250 
0coc2900 
OCOCO4EC 
ooccsFcece 
00000 5A0 
ececocac 
00000 4F0 
ecccc25¢ 
gco00 soc 
00000 4AC 
oocco 2ac 
ac0C0 460 
acccocre 
accccéoc 
eote22cc 
oceco71¢c 
ONS006FO 
gocco42¢ 
o00cd 28C 
ococ4soc 
COOO0OPAC 
ccoc2coc 
0¢c00196C 
CCCCO3IEC 
c0000000 


ecccoococ 


ooce115¢ 
40081 24C 
oco00000 


eccenooc 
coacococ 


4CEZCI1FC 
CLECF 240 
F1I4CC 40 Zz 
ecoangse 
éccedcesc 
ecocoonoe 
ececaccc 
TOC ROESC 
ecoooces 


ccecrgegc 
QONSA2ZRS 
PCCSA2CC 


occoooec 


NOCBICEC 
ngo0acna 
COEF Z4CFZ 


BCCSAEFE 
oo0ecacac 


ecooeacc 
occcoooc 
ececeqnc 
ocococec 
occcc 4p? 
C4030 7C 2 
C20 34CE3 
4cceceecce 
acacocnc 
ecccocce 


eceooocc 
ececoocd 


OCCSIRAC 
OCC R29CR 
oececoccce 
ecococis 
ecccaccc 
ecoococc 
CCCCACRE 
OCOSRI1RC 
CA1LE61 8CC 
O0cSR 76C 
eccoarrc 


ccccococ 
CSF4F94C 
FIGCOSCS 
escsegra 
gcocnece 


EROCC 174 
pce4gendl 
COE45FAC 
AC4C411C 
1222478C 
41FOR15° 
RO4C41FC 
4STFEOC152 
C202305F 
471C0 144 
PCECACOC 
CAND AGREC 
F2E2C*E? 
ganono00d 
C2CeDEeCcs 
occcooae 
acesoPac 
ANCCE2CCA 


INCSACE 
ICCEXC3 
Toc 1c¢ 3 
locoec2 
IDCRIO? 
TOCRILT 
TOCTPQ4 


eeeueese 
eoeserooe 
er eee eo 
eceseesl 
eseoeeace 
ee Oe) 


eeteanen 


ICCEXC2 
Iccice2 
receect 
ICCRIC]L 
ICCRIO3 
TCCRIKT 
TCCTPNE 


PACE 51 


eseeee ed’ 
eoreeteevor 
@eceeueta 
@eeetceveoese 
aeeswe eee 
ee eegaee 


eeveeaste 


IDCTSUVO wc ce eeee 
TOCTSE XO. wee ee 
TOCTSLCO.s ee eeee 
TDCTSMPO.. eee ee 
ICCTSTPL oe cceeee 
TDCTSICOc ce weaeee 
TOCTSALO ws eevee 


TCCTECLC oe weno eb 
TOCTSTPC.. wcease 
ICCTELCL ec ccccce 
ILCTSKPQ es ee eees 
TECTSPRO 2. we weer 
ICCTSRIC oe ew eees 
ICCTSDEC 2 eo ecee 


YOCCCCL 
TOCCCPR 
IDCCOPM 
TCCCCKE 
TOCCOVY 
TOCNEC1 
ICCOLO1 
TDOCRPC) 
TOCMPC] 
TOCPwOL 


eetevene 
ee eeeete 
aeenovae 
ee#vposae 
@eueeeens 
seneee el 
aeveceeeve 
eeeeaceen 
eesee ete 


eecece sd 


ICCCCOHE 
ILCCCRE 
ICCCEAL 
ICCceMe 
TCCCCLC 
tTecice) 
ICCPROL 
ICCKXFCL 
TOC acai 
ICCVYCL 


eeteaesee 
@aeteeaensd 
ee seer el 
es ataeners 
eeoneeeeos 
ee 6eenee 
eeveeveneve 
@eeeeeuse 
@eeoeneea™ 


eoeveeve 


OOCONCOO.. -ceene 


eoenve sees sCeene 
a! bse Wietie: 6'thileiasoce essere 
eoec es sbissacce sl’ 


eeervr seas etrnareee 


2 DL1C1l OROL CLC 
cecil P01 ICC 7 
1 TPL CBRO1 TPO 


@#eeneee e@eroeoneecen 


CROLL cece vere al 
soccer ve es steesY 
eaeGacvrecveceeed’d 
eens ecccvrcehosos 
er he ee Sar ae a 


Pe er ea ees ee a ea 


eRTTM SAFP RISE 


@e@as 
e@eaevenrnoeeeavpaevee 
eee e eae Cnceveces 
eees 

eaee cence eQeese 
een eeese neve eeaan 
@eeteetaense BPpeeete 
towne ee nanwmeecaanas 


@e¢eeoeneteseetoaane es 


Lc CLVL SACA 72C 
CPEAC CLCY CLVS 
P2T TO2N TPCC TP 
woe EXCICLCL.Le. 
© ee oie ele Geleoese ef @ 
eure vevaacabeace 
eeesee sc @& eve eswcere te 
cece ae Garececae 


eect etoeuneeevenaeoasn 


eaee ee eREPO RISF 
SAGP PI12 RT4S kB 
44 RIS® RYIAKN SAC 
SADE .TDCCLOL . 
-CC..TCCEXO2 = 7 
elececer 
olla Sars eP clea ells 
oeGece ree baebae 
wavew Ke eG As 60 60-8 
Daa Mabe gears ia 
ECs cesar eD en vnces 
b.60.6a06460s00% 


ALE. eV G26 aie! eines 


Ke aVeacseneasheuon 


eseneoeeon 


Sie leceta.o ew ee @OBie ces 
OF ee EKCe wacveves 
MRLNKZERC. cece ee 
wee cE XC2TPCLi cee 


a ee ee ee 


eeesunztenoevneead 
eosgeseeceGaeseteeoevte 


weccccebacePoeat 
cocbkeoeoaece eee 


eeeoeeevevneaeseeanee 


ee¢otoeeveseeeesoend 


eeeereeoeeesveneve 


eeeeee eC CRC1 SAC 
CPC] CLOL S402 
Fel 1¢C1 TFOL CP 
1 CBC1 .SA02..R. 
eeccecccee nba 0S 
a ee ore 
even cnnccccbes cl 


@#eaereeoreneeeneve 


eoaceselonrecsce 


Se re ee i a a 


ceccccelaclsesee 


eeeoeetst@eooeseaeeaenve# 


cere easUasccvvece 


SACE EXIF EXFS § 


FACE ¢2 


oe eee a tb es eae 


eevee estearnevtevee 


eweeveeneuesetseaane 
eeensnteeoseeoeeoaneaeeveve 
@pvpeateeoeceoeupveteeaeeveet 
etreonvp eee eeeesaeose 


OO ele wae 66. 00 ee EL 


& 77CA CLVL CLFC 
S4cé 22C8 TPCe T 
21 TR2N ICFT wae 


TOO a cee recrescece 


eeneeseeaneraanead 
eeceewe@eoeeceucea seen eeeae 
eof 0 @ #eeeteoeaeweeadn 
ea re eer a 
we cGucer vc ccaces 
esse tPaeacee escaped 
eee Gs ese e@esase 
ee@stm@eoseen es oeeaeaaee 
eeobeoesncessves 
ee ee 
ee esecccesrboces 


Si eb te eet e28 0.8 Sieke 


eeteseeteanveteeune 


RIL] R112 R145 
101 FICF R177 RI 
L RTIM SAFP RISD 


eaeseeeeeeoneereonve 


Belle ec ceacaclhs 
6 0-6 e els ease Oe ere 
re 


eo ben ese os Decee 


earl cesecccsecese 


Gane CALECLELC.. 
oe O64e.50800-20 
eoeDecesccnecd Aw 
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scence ha Ks wees 
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eect ecce eoeesl 
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09A540 
CSR56C 
C9R6CC 
CSRA2ZC 
CIRH46 
C9B460 
N9B6eC 
O09B6A0 
C9AKCO 
COBGEC 
C9B700 
C9720 
C9BR74C 
O9R76C 
C9B78C 
CORTAO 
O9R7CO 
CIORTED 
c9oBR0a 
CSRR20 
CORA4O 
09B860 
CORRRG 
O9BRAN 
OSARCC 
O°[BREC 
CSR°S00 
Cargr7g 
OSRO40 
09896C 
CSADRO 
OABSAC 
a9e9ra 
OSASEO 
CARANO 
C9IBA20 
C9BA4O 
CIRA6O 
O9BA8N 
COBA AG 
OSRACC 
CSAAEO 
QOARROC 
09BR 20 
CSBR46 
CORREO 
OSBRRO 
CSBRAO 
OSRPRCO 
CCBREO 
caBt00 
C9oBC 29 
OGRE 4N 
C°oRC HO 


OA0620 
0R0640 
CAC660 
ORC68C 
0804 AC 
OROKECC 
OROGEr 
0B07C0 
0RO720 
CACTSO 
CRO760 
ORCTBeC 
OROTEO 
aQROROO 
0A082C 
ORO840 
ORORBC 
OBQORAO 
MBORCO 
OROBEC 
oRO960 
OR0980 
OROPVAD 
CROSTO 
OBOSED 
CROAODO 
OBOA20 
CBOA4C 
OBOA6O 
080480 
OROAAC 
CROACO 
CQROAEG 
OBORCO 
CBOB20 
ORQR4O 
CBORGO 
OROR8BO 
CROR AO 
CROACC 
OROREO 
oROC OC 
CBCC 20 
OROC 40 
ORCC 60 
OBCCRO 
caocac 
of80F CO 
OROCEO 
cROnNeO 
oran2n 
OF 0N 40 
oROnN6a 
OROD8O 


LIST 


First UGPOOL 
Area 


acecFnAd 
C90é0002 
COCSFESS 
ececoceco 
4TECFEQL6 
5ACCRECC 
ACC4CaRCl 
4160C001 
47N0R048 
R13R184F 
427445E0 
40404720 
70001277 
45ECRCRA 
A27C9280 
40FQ4322 
SAFNAQ4S 
BIG2ERFO 
40CC40C0 
97RCA2TA 
A324€2C3 
SRFCEC4A 
SCOCOTFE 
A27TC41 FO 
1L84F12464 
B28C1AFF 
58EQFOCA 
50E0FOCr 
583204048 
40485030 
SROCTAQRS 
58F0A048 
S47FAIEO 
45FOR6D4 
41FO0F010 
AONOC TEE 
3000f 291 
02034394 
AAADIOIE 
5SR3Z07TOIC 
§e3a7cic 
AAFBERTO 
44085870 
5SQ5F AIFS 
R4F2C203 
A510C291 
REAA4F40 
42405002 


List 


D409C3C1 
06CF10C0 
OcOCcooor 
OSC1E3C3 
06081000 
ooececon 
cocecoca 
ooorceca 
00080444 
OCORCS5SCC 
ocnconne 
eccaaged 
ococco0o 
OCORCBRO 
ocecococo 
oocoocor 
OOORZ2ARO 
FOF L4RC3 
4404040 
cacoocdo 
oo0o0nn0o 
00000110 
OOORC SNS 
OOOAFECILO 
BOOACFIA 
FOF L4Q0EF? 
OOOAFS590 
CSFOFI49O 
CS40E3N? 
oocaocca 
COFCFE240 
O0740C9C9 
CECIE2CK 
OCOOC24A 
40C9C9FO 
CSFCF140 
SOOCALFIA 
E2cic7fr7 
OOORCINC 
eccocsac 
o0o00ce0n 
47TFEOFO1S 
5aFICOAON 
0C14*CRO0 
FOO5D25E 
41Focr 02 
R210A210 
C2EALR2F 
CONES AO 
COEACGTEF 
C2341B833 
4SEQC30DA 
A2024780 
45FCC618 


--SAME-- 
OCOSSAFC 
ecacecng 
concoo0e 
--SAME-~ 
10c9C4C2 
58F10000 
NC1L4ECAC 
5R7CA2CO 
5a870AC4C 
4C4CA220 
R334184F 
SaTOACSC 
4TACBCFS 
184F 4040 
A27C5RBFC 
SS8FOAC4SA 
5aFOFOOC 
BOO812FF 
96404002 
SRFCSC7C 
FCS5FCO10 
411CGA274 
0202306C 
BFECSOFC 
&7AOR 278 
50FOFCOC 
1L2EE478C 
45FOR202 
5C2ACA274 
A274G41F0 
CTEESGREC 
SRFOFOIC 
S18047E0 
184F 4040 
50°CA278 
SPECACCB 
A29R201€ 
300CC201 
LPFF4IFEC 
12334770 
58703008 
AC58507¢ 
ACHR507C 
05C15C00 
A278 5004 
A39CRFERG 
§0C2404C 
404CA3A0 


F3Q04N4C 3 
4cocoocc 
COOEOOCR 
C a0 7F2C3 
4¢eccoo0n 
OCOEGOIC 
~-SAME-~ 
eccPo00a 
OO0BN4T4 
occroécc 
00000000 
--SAME-- 
ecocoodd 
00970700 
ocococad 
~~SAME+- 
occrasoo 
DIF OFOF] 
40404040 
+~-SAME-- 
conaca0d 
DSCOIFCF3 
ecoccooa 
ocos9sse 
OOE207FO 
FIFCF24C 
F24C09C9 
C4C 2FQF1 
QOCRORKO 
acooncad 
OSC9D7TN7 
F1F24CNa 
40C4C2F9 
C4C2FOQF1 
FL4CE2C1 
C4C2FOF1 
FOF 24009 
40C9C9F 2 
COE2CO4C 
-~SAME-- 
000 FOC30 
1OC9C4C3 
58FFO060 
DOO81 BNR 
FCOOR273 
5CFORLDG 
41ACR2FC 
SPACKCSC 
50304770 
R2N2947F 
91 8CB2N2 
18@2°1932 
C15858A0 
182F1932 


CE/0£/17 
COCIASOAR 


4C4Ce 


UGPOOL ID 
40404 


eooog0s4 
20009000 
oocconoe 


E20 7FOF4 
58FFQN60 
00c818DA 
9180 700C 
D592700C 
ERTOANGC 
4040432C 
h5¢2700¢ 
S640A3EC 
£A32065830 
20644110 
5SAFOFOIC 
M25E 8324 
478QB192 
416030CC¢ 
41198274 
EOSOA2 74 
CSEFI84F 
206a8585C 
A2BO41FC 
18F45REC 
EBFOA31C 
RORGLAEF 
45EOR6C4 
41FCCO14 
AZLOSOFC 
AOTCOTFE 
183FS5AEC 
4770A37C 
AA22ZER3BC 
S2ACA27R 
CTFE4GTFC 
C203A288 
AZAR3IO1C 
202040FC 
F45C41FOQ 
12774780 
ABFCSa7C 
A40C £870 
PFEF4770 
N2CLAAGA 
STEQRSIC 
AS9E1244 
12444776 


CANES} 


CLE30CO? 
COC1LOOOF 
coo9000c 
c9000cas 
00010011 
cacoo0ca 


COO000R? 
COORO4SE 
COORCE? 
000900 


coocq000 
coocoose 
coocodd0 


COOOOOFS 
FOF4FO4C 
404C9CCO 


coooococ 
EAC LFOF2 
ccoaocce 
coorRQgger 
en4ac4ac2 
COCIFOF?2 
FOF240E2 
4OF3C7F2 
C7F1054C 
eoocooadc 
40C9C9E? 
CSF4F94C 
FI4OCSCS 
CICGFOF? 
FOF 24009 
40F2C1N2 
co07074C 
F240T9CS 
C9C9CS5SL5 


o90a000c 
C403F0F 1 
O7TOO41LEC 
C7TOO0RILC 
C203FO5F 
S2B0R104 
FQN AOR264 
4020A00C 
cODESsgac 
R20341A0 
4770C 126 
47B0C132 
PO4SCSRAO 
47ROCI72 


4CO9FA31C 


@ 
c9069¢00 
ococo0nc 
GaC E235 


4C4C4CF 

O70041F 

NICCA2S 

477CRC68 
RFFC4770 
0§6¢27¢0c 
587CACc4c 
c0064770 
4 TFCRCFE 
4C485C30 
A27T4OSFF 
LASFL2FF 
FOOSN25E 
183F45EO 
Sr5C4CO4 
Q5EFS5Sa&50 
41FCRFOC 
12444780 
ACSR5O05C 
AF1CEOQFC 
Ao7C9IRAC 
SAECFOCO4 
SCFOFCOS 
LR4F404C 
5cFCca27a 
A2TBSRFOQ 
4TFORIACE 
ALQ4S50EC 
S58Fc3coR 
A0485R830 
EBFC 42C28 
R4ARIOEC 
2¢C4f 201 
N2C1A3A4 
ARA2OREC 
CO1LBEEFC 
A474] 237 
A05c50a7C¢ 
AGECECTC 
AGF 25846 
5co020501 
N293A28C 
4STTOR535 
BSSECZ01 


oeceanoor 
C€207N5N6 
1aecece} 
COOPQOOC 
C20SNENE 
ooocnaoc 


CSETFCFC 


o0ogsss4o 
104C04C 
1994C04C 


CONSFLSS 


Area 
4A 7CPF RE 
POACSBIC 
cCCC4770 
049270¢C0 
PICE49EC 
S4PFA3EOQ 
AZTG4&1LFC 
47FC8330 
47TICRIECS 
FOCO A224 
ADSCS1eaN 
S6404CC2 
AO4BERFC 
ECFOA2ZTE 
R22R41FC 
A2ZT441F4 
AZE4SZEC 
ACR4CTEE 
L2EE47eC 
5RFOCB3I10 
AIZ2ENZO 
Szecqa27e@ 
70404116 
SrECcACCA 
A71C1ZFF 
12FF4780 
3C2A1232 
41108274 
eecct729 
A2SA72018 
3012C02C1 
COCCCTFE 
7CSsef£ece 
45FOPECE 
A4CC5R70 
441C0417C 
50941244 
5BOCCRFER 
50%4T 201 
C2CLAI3GE 
A2ACPFCE 


ecaccocce 
N5ESE2CY 
cececris 
COCCCOCE 
E2C3CSCi 
COcOCcoCcC 


FOT for DELETE 


command 


Cooccodc 
CS5E7FQF) 
ooccnonc 


C5ETFCEC 
404C4C4C 
oc! 


oot 

CO! 

0OL - 
4CCACAIC 
FOF I4CE2 
40C4C 2F0 
CLFCE24C 
C94CE207 
CSCSF2CS 
ecececec 
Cé4CN9C9 
NSCCFCF) 
FCF 24Q0EF2 
OOOrOSRA 
CSOFCF14C 
C44CF 20] 
C9CCE2CE 
F4GFC4CDS 
490coo000 


g900rnOnC 
404C40F7 
CCICCEILF 
BiCCcl20e 
CCO258AC 
5eFcacre 
414CR2C8 
1RAA5#e5C 
504C4770 
000147F0 
41ACR26C€ 
19324720 
AO4SC1I2A4 
18324S3¢ 


Figure 6-2. Sample Dump (Part 3 of 5) 





6 - 42 


C4cCEl3ace 
OocoPcRzCc 


ooc1coc4 


oces9sse 
4C4C4C4E 
40464040 
ooocaococ 


00082566 
3ccc 


1/O Adapter 
Historical Data 


3CEC 
2 74—R 
—“1C0C 
5C7cAzCC 
4C545070 
AcPCcse70 
CCC3477C 
PFSC477C 
FR2CACES 
CC2CECFC 
SCECACTC 
SEECAIEQ 
C2Q2FCS5F 
AZEC47EC 
SRECACGS 
S5OccCz5E 
GLFC3C68 
Oc IceEese 
CC2aSCFOQ 
AZE4SEFC 
SRECATIO 
BeAOLAEF 
FAECFCCC 
AQN485820 
Farc32c2e 
AZT4Q EEF 
C2C24104 
47T7CR2€4 
B27C103F 
47@QQRIBA 
CSEF4EFO 
A2AGA7A4 
C2028 78C 
A24C2C14 
4TFECPELCC 
ICECOTFE 
C729A3284 
ACEOECTC 
OCC 147FC 
G77IOPR4GEE 
4TICPELC 
A2CC®CCzZ 
PFCACSO) 
cCeECLTECCC 


CCCFGC10 
C4CS5C5F5 
4CCCCCCC 
oc110col 
F3C 2C 804 
ececcecec 


OOCSR4SE 
4£404040 
404040 E2 


eocococc 
COOR2CAE 
ceccecccec 


coeccsec 
COCSC6ER 
FO10431° 
4AE€0PFRA 
A274411C6 
ACE4ECI0 
RCCA4EEQ 
PCF4E5e@7C 
ECICA2T4 
AZTE4ILFC 
C2C32AgPRe 
4TFCPIE4 
ceccsiec 
R22F 4140 
FQECA274 
A2Z4FCCE 
SOFC A27C 
AC4EEEEC 
A2Z27TREARFC 
£C44411C 
ERECFCCC 
ECECFQC4 
LZEE4TEC 
20201222 
41104274 
4AFCA222 
1OCQLEFF 
S6eECA32EO 
4secacsce 
FRAIDAC4AR 
A222°FEC 
BR2CA71C 
3CCBC2Ct 
C2C.Aace 
SCECALIG 
C47FAIAEC 
AAA4LERIC 
ASC4ERIC 
RPEECLEFT 
C2C1A2CA 
ER4CECCS 
cecieccc 
FOCCBEFF4 
PFEFFE4T7IC 


co11cooc 
F2€1C400 
ceciccic 
cecscecec 
CSE2C3C9 
ceecccecc 


BCOSREFC 
4040404C 
C1C3N24C 


ecececcc 
O00 AA294 
ececococ 


41CORFFF 
18A15C0C 
BC icAZCC 
49EQRFESE 
A27445FC 
A274411C 
R4&3C184F 
AC545e7C 
41104274 
A32C5CFC 
LOOCLRFF 
S94 7FA3EC 
AVEC4T7C 
AAaRCO72E 
5C4CA278 
O25EFCCC 
9280A27C 
scesesenc 
ACPA5OFC 
A2T4O0 SEF 
T2FEE47AC 
S@FOA2ZIC 
ROCRL AEF 
47&CKB2C2Z 
QOSEF5A3C 
FEFCACTC 
4OFCA 222 
47° CR 3468 
45ECRINZ 
SC3AQA274 
Accacanc 
N2C 2A784 
82903014 
2¢1CN2¢1 
5870048 
EQTCACGR 
AC545C7C 
ACE45CTC 
RARFECOCH? 
RFEREGTEC 
1244477C 
BFF2477¢C 
47708558 
RETES RSC 


1eccocd} 
oeceoece 
CZ2C7F2C2 
1éCceoc) 
ocoscoce 
ccececec 


Address of information from 


entryname/passwor 
parameter 


ccacococ 
E3C84C4C 
ceecococ 


C2r2cer¢ 
40404040 


Information from 
entryname/ password 


parameter 


CNCSSSEC 
Q7FOFL4EC 
FI4CL9CS 
NSCSFCF2 
F2CIO40E2 
4CCOCSFO 
CSCSFIF? 
FLF140C9 
4CN9Csc4 
CLEQF24C 
cocssFce 
C4C2FCFY 
cocscsagee 
4CC9OCSF] 
CSFCF14C 
ecaoonce 


oeccocco 
FA4PFCF2 
COCPICLE 
PC4R100f 
AC2812A8 
41 1CA1CC 
SAAQPO4C 
RC4C ESAC 
COCEES AO 
C2205PRAC 
FC AQP ICC 
C178S740 
478CC 172 
CF A2478G 


ECCAFISC 
CSOCSFCF 
FCF24CE2 
4CCSCcFe 
C7F2C540 
FS4CE2C1 
4CEZCIC? 
CSFIFZ4&e 
Ce4Clscs 
RECSFCF? 
FOFL4CC9 
4COSCCFC 
B8COACFIL4 
Fl4acrscs 
CSCSC4CE 
eccecncoc 


ecccocec¢ 
FAQQSOQEC 
CCCBLEEC 
5RACRC4E 
47BOCCT7A 
C&EF414C 
5BAQAC IS 
§C2C477C 
£074478C 
BOCS5G4R AC 
418CP 204 
R70644920 
4SYLACRZO4 
€148€4140 


VSE/VSAM Access Method Services Logic 


oocececc 
eccccoceé 


4c4c4acac 
4940404C 


mest C17 
ececses4aeo 
40C4C 2FC 
CLFCF240 
F14CC4C2 
FAICTFSTE 
eecerocc 
C7T4O0CSCS 
COCCF4FS 
FAF746CS 
4CE2C1FC 
COFOFL4EC 
FL4CC4C2 
ROCACEILA 
FLF240£S 
4CCSCSF?2 
CEETFOCC 


ececceccce 
rocccsce 
1RPPLECCC 
5SRFCAOCC 
SAAQARCGAR 
PAIICEDAC 
12HA47TEC 
CCCEEGAC 
CCEECEEC 
ANCC4IAC 
ECACRIC4S 
CCA24780 
ENACPIEC 
R2ECECAC 


aococooc 
ecccocee 
occaoooc 


e€CCON4n5 
40404094C 
coecoacc 


OOO AFS5RC 
OCCSIPRC 
CCC A6CIA 
BCCACFIE 
FL4coscs 
CSCSFCFzZ 
FCF L4CDS 
cocRe arc 
oocaco0c 
FCFL4SCCS 
4CF2C1C7 
COF4F44C 
F24CNSCS 
C4C2FCFL 
FCFISCLS 
COCcseesc 
CSF4FS4C 
F74COSCS 
ccacecec 


CCCACSNE 
5ROCCCC4 
RCG649 80) 
C25ER272 
Sc acRICC 
P25CC 712 
CCAC4EEC 
5SCAR4GTITC 
R2N247FC 
CCA447RC 
4110R10C 
Ci17Z918C 
411CBINC 
RINC4S1LAO 


eovcsecherce @ee 


ever esesesceltlee 
VO oie jee acd ew ee we es 
200..1CCTPO4 7 
eocvclenccetseces 
eoele rea O18 @ ee.eleP ese 


eTMeoecee ewan eveaeeee 
N 

e@eoeeue ne ean eters 

eoee eonceeNecos 

@eeoeveve onreeee 
‘ 

eoveceNaceecee 


002028 


eseenede 


ecen accede 
eeeues eo 


sore csaQecvvec as 


Cae Dee eADeeeee 
Cee DAD Ke oe Oa Kk. 
eee ecncescaseres 
0 eb ee SE 
ene bc cc eevee cl 
oe KeOe eo bE ce Oee 
o OG iar sie oeosee a, 925% 
eee eKe croc eee &E 
00 ee EG ea Fw 2 0 
cee cenenetessnes 
000 0 O60 4.60.2.24-C. 
oe De cr ccceeelsls 
EC ew ee eK ee eMee 

wees Snes DQ eebNes 
weGeree ce Oe EC e430 
cencessesncesles 


~O.. COO. c cer ede 


cess ecceneseelCas 


eee @eeneaeceoane 
oC) Oe Oa 
feet wee 6 Owens 
we eke weeeKacee ska 
Ke eeeeKe en eeKees 


Coeae 


eee ea ew et a Olena e's 


eovvoceDae 


eA ee ecb cree a tle 
secre basa eeerd’be 
oe e4Ne cone ececeo 
2K eee EsKe ee Eat. 
ioe Mis: oie «ae Oe a Kase « 


eee €. 


e fe 


eevee aeks 


MRCATIMCAT ceuees 
ever eecee saree e NC 


e@eaeotvneaceveeenee aes 


RATCH.SCReeesees 
ooeceeve s NC 


eeereeeen ese sneanese 


e's a8 acca o eee EXEC 
woce we eNer aVecce 
sree ccecee es XEXOL 


ceoacccen se eSEXCC 
01.CLOC1C49 


woe eRICZSAl2..e. 
es eee a oa 
oe Melee ob ee es 
wove elTPO. CPCI T 
QO1 SAC2 RIC2 Cee 
005e2 RIOZ2 SAN2 
tel CRCL TR2T TP 
YT TPeeeePIN RISE 
1C2 RIPP RISF RI 
F RT12 RI4S RIC] 
RISF ODROL RIC2 § 
eon el RCIRIC2..0% 
RTOL SAQ2 RIC1 
101 CACY SALO SA 
eee el 2 RPP RISE 
SAGP RT12 RY4sS R 
eee e TSF RINN 


eee 


ete 


-00..10C0teC?1 7 


eles cccresccccne 


eGo acer Pana ake 


CeoK Ce ee Ke De Kee 
eC KEE Maw eMC ee 
acetatiie ef e'O-U arene Fi 
Peeceeal 


cooeEsvescaed’ds ee 


eanee lf 


eosewteewliss canal 
Peewee eK echo wsvs 
i eGiv: ae be 0/6 De ee teC 
Ke ebecaecves an 


0:6) Ped leieeie a> wi Bxevena. 3 
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cocccacbes ea eee 


SACL 


eveeeoene ee seenue 
@oeeeeten ee eeonees 
areeeseeaonseoevese 


4 


De DP 2le 6.0.6 682 6:0 20 
eoccesGe ee FVae be 
eoKewcer be sebeae 
eveebecce pease 
ee ee cen as vcceesn 
Pr ee ere 
Recess eshevvece 
cesreveca4ovccane 
ee eee ee a 


00 Fo EO 4 002 EO 


eCacceceKacscsas 


eee dete Oe iskeree 
Coe eK ela cecvacce 
oreepeeseanteees oeFe 
» 0 eee Eb ee E oe 
oe ACEWKL eC UKAC. 
EC ee Ce eb wr eaee 
eas 6.6 teiwie ver eceecas a6 
0 EC ae Ow EC 
eee ere 6 ace ose 


etecere wee ee Oera aie e 


eo ecec eo eo Ge Oe Cee 
Cree eGevccvekos 


ereceCacunsstecee 
60 sia' 0 bare SOLES ieee 
week Ke wevsee Coa 
coer seccereveO en 
ee eae aes ns acesadk 
er cceccese re bees 
secre eCasreeeken 
cel ee weet we Me eis 
eee eK eee erKeocece 
eek ccc eke ove eka 
wees elec vcrevase 
eee Feacecccaabe 


woven Gc ws osecbe 


eoencveleeal eles 
Gece weebK eae e el 
$06 eC aca ects 
aKa web ah Gente 
KececeN cbs e4eves 


ero eN ce ba chacves 


rarer 


PAGE ¢7 


@eteonaevneevteenenee 
NVSAM.NVSAM. LL. 
e@eee eececeeee SL 
eaeaeoeenee see ereneren 


SCRATCK.INSCReeee 


eaeeteeeevraetoseeoet nen 
eoaevnase @eaezreeese 
eeetreeoeea or senaoees 
totes envnaveneeoorsan 


@eteemvneoveneecnen oe 


CELETE 


@eaeteeesueetrnasenean 


eene@anve 


eee el LMR oe ¥N 


eeevsesneoeereaeeas 


& 
eee sas eereeneeres 
eene eeoeerevaesveos 


eaters er Goce anes 


re i ee 
FCl FIC1 CeO1 RI 
1 8102 SAC? RIC2 
Ri@2 RIC] CRCL R 
23 TE2N TP2N.eee 
RICE Shae ecvaee 
RTL? SACP RIC] R 
11 PY12 R145 SAC 
RICF R127 RE44 

AC2 FIC2 $802 RI 
eee eC] RIC] CPCI 
cecl R101 CAC R 
eo rGenocecveee eld 
RTTLT RI12 RT4S 

TC) RICK RTAP RI 


oa eee ree h Ceres ale 


sere ceea seer ee d& 
cn en ee oD 
TeLRrrae es Te ene 
eee vacceslaskKees 
eorsesreccsveebaas 
eewnoeve nce cbFy 
Ser Seer eee 
cove bo ae eee eK 
Bese cbsnccvavence 
er 
hae 


web e ce eMEw ec caee 


eM ee et Me we 


secetbescccbcvces 
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OR1460 
OR 1480 
OR14A0 
O814 00 
OR L4FC 
oF 1590n 
OAR1524 
081540 
OP 1560 
O815AN 
CB1SAQ 
OR15CO 
CRLSEO 
GB1400 
QR1A20 
OR 1640 
AR 14660 
OR LAAC 
O0B14640 
OR16CC 
ORLAFS 
oB17nO 
CAL72C 
081740 
OR1L760 
0of178a0 
CRI7AQ 
ORL7CO 
CALTEC 
OA LROO 
OR1820 
O81A4O 
OR1TREC 
OR LARS 
CALAAC 
OR 


Cl §68-byte header 

C®! for IDCDLO1's 
automatic 

storage area 


OR 
ra 
OP 
OAL1AeC 
OR TAAC 
ORLAAO 
OALACC 
CARLA 
OAR 
OR TA 
QAR 
C31A 
OR Le 
ORLACO 
ORIREC 
e8ices 


OBC 20 
oR1040 
A9Bic ec 
csicce 
CAICEO 
cRince 
o81n2n 
ORIN 40 
021560 
C®1DRO 
CAINAC 
eCrPiroce 
OPLECC 
CRLE2C 
OB1LE4C 
OB1F4C 
GeaLERC 
QA1F AO 
CALFCC 
ORPLFFC 
0° 70C0 
0R202C 
OR2040 
OR 2060 
OR 2080 
OR20A0 
08 20CO 
08 20 FO 
ORF 21¢C 
0F 2120 
fR2140 
OR216E¢ 
oA21eNn 
CA21A0 
OR21C0 
OR2Z1FO 
OR2200 
GR2220 
OR2240 
OP 22AC 
CB278C 
OP 23Aa0 
OR 23AC 
CP24C9 
OR242C 
CA 2440 
AA246° 
OR24A0 
CA 26 AO 
OR2400 
cr2src¢ 
CA?76 20 
CA2546 
OR 256C 


LIST 


4 7ROC85N 
ACL2ZEAA0 
12AA4780 
478OC RAO 
ACQ1£8 40 
FQ144770 
47FCCS18 
C9I3C4BFO 
5REOAONC 
C97C5aA0 
G200R410 
41 ACR4IC 
5e1crcos 
CALESAED 
100C474Nn 
B1300200 
AQNALSBEC 
FOOCR273 
58AC8C48 
RO4ASCAO 
584080 2A 
AC2284119 
R41C*030 
G13CR270 
SN AcP1cd 
OSEF47FO 
19415840 
CCC26LF5 
5RACR 250 
BINRC2ARO 
GROCP1 84 
FCOSDI5E 
41 32CB239 
OCC4S5R EO 
oec4sraa 


» 


Cee Case 
OOORIC 5A 
he 


5 BADR 264 
ROGTS BAD 
Cea2bead 
FAACR IAG 
BC4C 5A AO 
CSMASREO 
5AaCA23A 
AQANI2EF 
SAFORC4C 
R2K40218R 
cerCeH LIA 
SBLOR2AG 
S5ELCECRA 
B134BEC 
CALE5E90N 
AC1?°Q0C 
COMCOTFE 
N2NAFQSE 
50ACB1CO 
AIDC4LFO 
128647AC 
RINNOSEF 
ACgOD201 
BC2CACaC 
4130CCAC 
CBACIA22 
B25CO202 
P2FESOFO 
NAc yacoc 
RINKS AFO 
CTEEGREE 
FeooR272 
5O03CRIC4 
ay,yagaaqaar 
ecrayaye 

FOOAN 

‘UM 


Save area where 


DLO1's registers 


--SAME+- 


C6/CE/1? 


92044012 
AO34124A 
P2646620 
S602A001 
AO2ZRYL2ZAA 
R26456602 
41Aa0 4018 
47TROCS30 
ER1OFNGOA 
sogcr4gc 
4B8FCECOC 
50401904 
41. 4A100C 
EQOOQ4TER 
CCAC4I BE 
SAEQANAC 
47FECCC1IC 
CCFELTASAS 
SLFOCCF2 
P26E4SO0FC 
CAFCSR AO 
4RAQAZIC 
AOOCCOSE 
C2C1400C 
FO3CB1N4 
42A0R324 
ACOPCCOCE 
A40N04115 
CCC AER AC 
AQAC41L1IC 
PLACOTFE 
N2CIFOSE 
G2ROA1NS 
PLOCOTFF 
41119°0° 
FFFFEECA 


SRAORC4C 
4TAQT ATIC 
ACCLIPAS 
BRACAC4ES 
4728OC BNC 
EQOCEEFC 
EQ1CR 264 
4LACA00? 
4AFCLVECC 
5BACRC4SC 
4CFCCCAE 
47eecc one 
BALOR264 
CCAE5890 
coorso0ag 
ERECECGR 
SOECR14C 
PA2ARI2A 
FOFCPING 
ALP45 AFC 
PC4GREOQAC 
12AA47E0 
r202a0nce8 
CLIAN202 
413CR 256 
12484790 
G2C1Acgoe 
AQZFEGEES 
RCGRS5O4C 
RICCCSCcF 
4TFECCCA2 
CCF ESAEQ 
BRFCACAC 
TREFS REG 
CACAGREC 
FFEFEECC 
4912 
42 


SA02 saved 


1°33 


L4NAGQFL F2CLFCF2 QOCCRCAR 
QOCANHONN NOOODNOC COOPIFAC 
CONSSS5C COGPLARE 400FOC1E 


Address of parameter list; 
second word in list points to 
word containing address of 
CTGPL 


ONORITLFS 
OCORIC58S 
OA161A0° 


LIST 


cocacoen 
oocorcenoe 
eecccoac 
cceanccceo 
cecocooe 
F2c1¢c 320? 
CHhE240F2 
&CESESC3 
0100*¢0C0 
secccaco 
ccocecco 
cococ4s0n 
O000C244 
ooceco0o 
oqo0cocce 
BOOANELA 
encacane 
OCCBICSC 
eneeeoon 
ococcceco 
QO00C 244 
OCeR2CSC 
00099950 
ecCaAcei1sB 
FOF 240N9 
OCCIALEC 
C2FOF140 
FL4CC9c9 
OOCLEANS 
CON50£40 
CA40CS5SET 
F2cic3cl 
FOF340E2 
4QE2C1F0 
CIFECE 240 
C64CCSC9 
CSETFIPG 
E5074CF2 
aocconon 
caccc238 
occococe 
occo004do 
accccoco 
ecacce22A 
OCCA82440 
cccecsso 
oco9ScsSsO 
CSETCHE2 
C3C14CE9 
accocoae 
CacRaACH 
C640f9C9 
CRETFICK 
FER AACE? 


AOOPIASC 
occeoccd 
ecoFInse 


-~-SAME-- 
caaconoo 
-~SAME-- 
AcCcCOOnO 
0000O000 
4ORSCGE2 
£1030 3460 
CL4CESES 
co2cc100 
CcerRicCRe 
co790c00 
--CAME-- 
C&C? FCFL 
--SAME-~ 
ooncoadc 
ooococec 
-~SAME-- 
ecaqoacc 
--~SAME-- 
OCCR2127C 
C4C2FO0F1 
OCCR2CES 
oocs9g50 
BOCR2Z0E4G 
CSFCF34C 
Fa4ccocs 
C4C2FOFL 
00N08223C 
40£2C9C9 
Fecye3zy3 
C6E240E2 
4OF2C1LFEN 
CLFCF 240 
F24004D2 
C4C PF OF 1 
DENS4CEF2 
4Q0C5E7C6 
€1€3C14C 
--SAME-- 
FOr Lecra 
--SAME-- 
ecocoaocc 
--SAME-- 
EANTFCES 
OONR2Z0E4 
occecsscse 
OCCCA1L136 
40F 20103 
FSC 2C14C 
--SAME-- 
ccoRrRoai10 
DS5N54CF2 
4CCS5ETCE 
C1c 3140 


acocaooc 
ccoccoce 
roca lane 


CO/9O8/13 


INE CHOID 
ONO RANRGO 
NCCFLCE4 
oorreicsa 
CALELFLC 
eqacecoc 
COOPICEC 
4CCRCC1C 


Address of 


52406040 
5° 80P 264 
EFRFECPC4C 
BAAC AC 24 
EQAQR2ES 
FOIO19FA 
scaoicce 
5P10P264 
4SFECCCCE 
BRFQAC 34 
eeagaace 
Feacre 138 
§cagices 
BC4C ERIC 
FO1aS TAO 
L2EE4779 
SPAQOPCGE 
CAC1LP3A2Aa 
S2POPICS 
A064411C 
PIFOGLFC 
CREALGAC 
cecees2cs 
AOCACCCF 
FCICPICE 
CPFELECA 
4120C0C1 
10¢CC477C 
P1fN9415C 
4A2CCCSA 
SOFCP1¢C4 
RCO4CEREC 
4110F1CC 
P1S4oRcc 
COOCCTFE 
FCEFFFCG 
C?2C7C4C3 
ESF2C4C? 
caceccoe 


r2cerecs 


eocgF4icc 
CNORCASC 
ecescce’t 


AgeRcc4a 
ACOCOOLES 
ceccelcec 
aoceeocc 
COCEICEC 
cerocacc 
OCCrCFSC 
qgecocnce 


cooco00c 
69090900 
C44CE 20) 
F4032C2C7 
C3C140C4 
NNOF 1916 
1800C300 
enonacoc 


occoosanc 


coocon00 
cCo00n00 


coacocroc 


caceccce 
ESDTFOFL 
COCALACC 
COOR200R 
004CC4C2? 
C4C2FOF1 
FOFI40CS 
40C9C9FS 
COFBFT4C 
FOFL4OC9 
4QR9C9E? 
C1C3034C 
F240QC9CS 
COCSFCES3 
FOF140C4 
4NCICIEO 
C1C3034¢C 
E24CE2?C1 
FOE9C2C 1 


coaaorac 
C900C 238 


E2c1lFCr2 
coecacnga 
COCR24CA 
eN0A11L2¢ 
0340C4D3 
coencecce 


FEEEFF GH 
C1C3034¢ 
E240E?2701 
ESFOC3CL 


OTBCHENC 
00081078 
TEC IGCCS 
4007 49527f,2 
RAEEC AGC 
ocorcoooc 
ONNOOONC 
00000090 


OOCcR ARR 


coccccoc 
cocaconc 


eecqgoanc 


eeceecac 
000941906 
oooe1céec 
GOCANAIC 
FOFI4ORS 
4CCSCSFC 
EV7ECF14C 
FO40F 201 
NSCSFE4GF4 
C9C 40 640 
N44CF 2C1 
C4h7C 207 
FCF24CC4 
4CNSCSFEO 
C2FCFE14C 
F14CBOSCS 
RSCSEBNS 
C30 34004 
4acarore 


Q00SA4AC 
eecee ccc 


CCCCA4SFE 
OOC 4l6DA 
EOC ADCIC 
BOOELITA 
C2C740C4 
reecoooc 


ooocoonc 
NOCSE3N4 
C30 24004 
40F 2C1C2 


Figure 6-2, Sample Dump (Part 4 of 5) 


cececccc 
090000CO0 
COFSFG4C 
7400402 
C40 2C7C? 
cerecee) 
nncPCASS 
ocaecaca 


CCCSSFECEL 


COCECSEC 
eacececce 


ecnococe 


cecocece 
OORSSFLC 
ONCELCFEC 
OrcsssEec 
COFNFL4C 
FA4CGE2C1 
C4C2FQF1 
CTCT4&Cls 
4CC9OCSEZ 
COCSFAFEG 
CECT4OCS 
4°C40 202 
C2F9F14C0 
FI4CC5E? 
C4C32FCF1 
C4€C6490C9 
4CE2C1CE 
N2c2°74C 
COCP21CS 


ecarecco 
cccecacc 


cCCSSFON 
eocooccs 
ccassagna 
ETC 7ECFI 
RAC2CT4aP# 
cecece cc 


eococccts 
4CE2C1C6 
C7C2C74C 
c340ceco 


L2AA4FTEC 
OZFEACI2 
5SAOFC4GA 
12484780 
96644001 
4TECCSCS 
EPACAC4C 
5oacicie 
47CCCSé? 
12FF4780 
LESFEFAC 
4EsCACOC 
LEAAERFO 
SCCE41LE 
PZE2477C 
CA4E95C1 
EeFCACCC 
CCABSRAC 
5AFOAC 2A 
RPICCCESEF 
CCF 2ECFC 
CCAA4TTC 
ACCBIPZ2Z 
9207A00P 
S2FCRINE 
4PCCCCSC 
4TFECCPFR 
CPc40z0} 
CCPCEC SO 
192447CC 
EFACPRC4E 
FOL4SL2FF 
CEEFLFEQF 
PISCCTFE 
eccwecoz 
FFEFFFCE 
cecacar2 
C3ICIaCErs 
aeccecec 


C4ceCIcs 


TCOPLECA 
eccoocis® 
cccPpcric 


occoccac 
OOCGAFFE 
ecececce 
occeccoc 
OCCEL SRA 
ACCPCCR? 
accocci§* 
GCCCOOCCC 


ececoccce 


ececcecec 
cec1ecco 
E2c 1c ecs 
N3AC74CCS 
4004070 2 
OCOPICRS 
OccPIcéc 
Oocecc 


ccece 


PCCPIFEE 
ecececoc 


ecccecsac 


ccecococ 
TOCANDT SC 
ecaocccisé 
8cce@l1s3 
C4CZFCF1 
FCF24CC9 
4OCEETFC 
CSF1FZ4C6 
Cé€4CCSCS 
40CSCCF4 
CCFSFS4O 
C€74€C 402 
CCCSFCF23 
FCF14CC4 
4CC4C ZFC 
COF2ZF7T4C 
CVM4CCScs 
C40 2C2C7 
Ocaococno 


ecroacoc 
occccecoc 


60C ACFCLC 
occcocec 
OCCP223A 
CO4CEZC1 
C40 2C3C2 
ececacoc 


CSF 2F 740 
D74CCSC9 
C4020207 
ececococ 


CAEESBAD 
ERACRCA4C 
477CC aPC 
CRCEERAO 
1PAAEGFC 
41 AN FO1G4 
FRACACIC 
EBACE2E4 
C219 P4CC 
COR4CT2A 
CC PRC 205 
4CbOCC AG 
F2E4ESAC 
SOCCEFEIG 
CAGEEFAC 
FOCO04770 
C2EFR273 
8OZP12A4 
411C0B1C0 
4OFCP27C 
PIC4E2ZEC 
CPR2CERAC 
STFCCR4C 
41200008 
Se8FCAC320 
BECCLA ZC 
SAAQEZED 
ANCCCCTAC 
PIC44 7 &C 
CRSC1S8F2 
FRFCACCC 
478CCC70 
122247E0 
GRECPIS4 
COC4CCCE 
cocccoceé 
céC7c4c? 
E2ERCTICS 
cecececce 


C2ESCERS 


COCPCEFE 
QoccErFF 
POCSEZEZ 


CCCSSREC 
CACR2CCA 
cececcce 
ceca 1cec 
4oceccic 
ceceececso 
COCCRFFE 
cocccoce 


OOCcCCEC 


cocr ices 
eecacocs 
4OCEETF} 
CAESE24C 
C74CCC 9C 
Ceceeice 


cece cece 
erceccccce 


coceccce 


cocececc 
COCh34ER 
COCSEFFF 
OCC SAZPC 
4CTSCSOFC 
COFCF 340 
FI4CE2C1 
COCOF4ES 
ceecececce 
F44CCSCS 
E2C1C4CE 
F32C340C4 
4CE2C1FC 
C2FCFL4C 
FL4CC4fL? 
CSCGF4FE4 
FSFS40E2 
48C40 202 
CSE7FCCA 


ooccecce 
eceecccce 


CCOCRCA2C 
OOCSEFFF 
OCCREITA 
C4C054005 
40C4C2ES 
cecoccce 


CSCSF4FA 
FOFQ4CE2 
4CC 40320? 
eccoccce 


R26492F1 
S8ACACIC 
ESACFQ4C 
AZE4QE4S 
PC4C5SAC 
50a4cecce 
1248A478C 
41°CB328 
ACOC4TFC 
R410841C 
R41CACCE 
BAFCAC4C 
FCLEGTIC 
CCAC4IAC 
B2E4S5 PFC 
C 4469602 
FOCED25E 
47TECCAAZ 
CEEFS@AC 
EGSCAC4E 
PIC45eFC 
P250413C 
BEACK245C 
5BRACAC4R 
4110810C 
ececcecre 
18674 ¢5¢ 
4TFOCPCE 
B25C5C5C 
SBFOR14C 
Czf&FR27a 
SCACARIEC 
CCTC4SIFC 
QITFES5S ROC 
cco7ernoe 
ececec2t 
C2C7C 402 
494C0C4C3 
scccecoc 


cecccooc 


acosceAac 
ccc erce e 
ececerce 


OCCRICSE 
OA16120C 
ceccoocc 
OCCROARSC 
OCCRICSC 
CCCESPARC 
ecce2cce 
ocoooocc 


CCCRICEC 


Pointer to 


ee Hb ae cc eM ewccas 


rer ee ee 
weeebe cc ecaesaer 
eePMacnccccsevcce 
eee oceecesressakes 
Oise ieee sie e6 ei eC 
OS ies die oe esac ears 
TesCevsceelacece 
E00 Cor eela elae 
Versys ea Keeecewe.as 
werateul sell sel és 
tree ee re be oe AIC 
eoOecccsvcnvcecs 
Ceee See eee ee ee be 
oe ee) 
Cece aceveleceeees 
Cee Ke Ce ee Penne 
eve ebe ee el e28C.M 
0 Ge oe Oe ECMO 


ee ee a 
eevee eke cceekea ce 
eo ee ba aaKe sueakKe 
Bowe ne er be Mee el f& 
eae (4g dee Sine eee ws 


wee ec Eke cc ceecce 


Pe EN ee ce ee VV 
ee ec GK eee ec Bese eka 
Py Saar oO Oe e@eezsnue 
PR ge ee i ee ee ed a 
CK Ca ae Ke Tee bel€ 
oe ee Ge eM ee Melee 


sees oe teeoeteeeaes 
ecee eles essuceces 


esbteectonuvntaneeoee 


eoeee/ ee OLCUVCELL 
VECLOCCLECELCTEL 
Clas scnccesecses 
eoevvesveccaeeadlAl 


oe ce fCLCLS4O2.... 
eee e se se esse eee 
PE A ae ee eee 


eoet ee een ee em aene 


bd 


eee e eae woe ee ed 
seer ecsenaceccce 
Pere et ee eee ee 
Pee Se ee oe ee eee 


eens ese teoesaeeean 


eeeecestaees aoe 


aante 
eetweoveteaoaenewene 
ees 

aeeceneaee 


eetoeoneese 


address of TM SAFD R 


OCOPORGE 
ecccococ 
ore 


JOCOo 


occs93950 
ececoaocc 


ececocce 


occelcse 
CCCOSIARAC 
ccce1192 
oceesssce 
FI4CE 201 
E2C1FOF2 
FCF 24CC4 
4CDCCSFC 
COCSAILE®S 
E2Ce€4cne 
4OCSETFY 
CIFSD34C 
F24C0CCC¢ 
CEETFCF 1 
FCF14CE2 
4CCSCSFZ 
C1C4C54C 
C24CC 402 
CC64000C 


ceccocec 
ecccecec 


9COS9PRO 
OCOSAR9OC 
PCOSA8BIC 
ETFICE4C 
D74CE 201 
coccocne 


4CRhSCCEZ 
Cic4C54C6 
¢324¢CC 4N3 
acccoaco 


CTGPL 


CLPG CLF 
ZCA DLVL 
eee eenenslecsee 
woe l PCL oc cccecs 
Li ener eee 


eseanteeteseovnetene 


eee DPCLIPCLoees 


sre ee eos ecaes 


wer bee shee aetaes 


econ eeeUe CBCL BR 
C2 RICA CHOL RIO 
eoee? PIOL EXCL 
LC1l ORCL RY4S SA 
LT Ree ee TAT 2144 
oo TM SRICL RICE 
INN SACL RITM SA 
F EXFS SACL CLPC 
SACA SAQ2 RICA C 
C3 SAC2 RTO3 RIC 
SAd02 CLCOL CPO1 
AQ2 CBCl R101 RI 
F RIAN SACL RITM 
EX1F EXFS SACL C 
VL SATA ZZCA wae 
eee o SAGA se Sievers 
ewe eTPCSSAC2eeae 
aca enetlanvevece 
ee es ee ee ee ae 


PEL ee eee 
EXFS SACL CLPE OD 
CA 77CA a@eeseanreaae 
FO RINN SACL RYITM 
EXLF EXFS SACt C 
VL SACA ZZCA SAC 


PAGE ¢¢ 


eee eeesboewsaeed 
eoeeeVaocenancece 
Cov eeGeaeHo o el 

evcccccebhFeseses 
Oe! Sie. g 1006 8 Octo eve 
CoreceloaelCrebsee 
Pr ee ee a 
dite tao 6.0156 0 oie! wee Cee 
Caw eT eKe oe oe 00 
Cia 'er8e wl 6 Pia eae 'e 
ecocecccccaks veces 
eae Wie ees wb eee Oe 
Oe eree we Ciese 6:0, Ciera 
CS wie Kis eces ee aie oO 
eee een Ale. cnecne 
on 600 0K e010 K 
Koes 0'w a ea ow) os ee 
oe al oe caine aes 
eee Bees Oe eases 
00 Oe 2bC Mee MWD 
Pe ee er ae 
ae eee aoe’ 
eee ees rd Oa 
002 Ob. bee 
eee el Ke seceeles 
oe eb GE MLE EEE 
eearenccerelaeces 
caer cena eOaaKene 
eee OG 6 60 wis ae biecwe 
core e mee seca ae el 


we eMeeneCacseanee 


FCCLROCLCFELLCEL 
VSCLCLENTYPE Ct 


LFCRWPLANKZERC... 


siete wee Gaw Kb ce eee 
Coen eeecessevent 


eco rbacecvcesevene 


eeenaeeneseuntewnesveee 
erase tevreseeHesee 
we etanssaresanne 
sont eaeeaase™acee 
eoarteene eee ee e™ 
eeoeeceesaaerseeane 


sear eascasecccsl 


@enestcaeeetaeeenaeane 


PAGE ICC 


were aeceascbener 
j 


eaetseeaeoeeeosteeaeaen 


oi siea wie ate woe UNA 
rec CACE EXIF EX 
€ CLLC CLVL SACA 
CLrFC CLEC ..C... 


eoetuve @evaeoeeasr 


Sac Oe eee oe Cele ere © 


ees eeoovaevesceenean 
Sen eeoeoeosereoaunea 


@eveseaanteeeeeenense 
sees ea eeteneesneeae 
eeoaeaaeeneoe ete evan 


jeielble-eea. 8 és wae eo 


1Ct Ceci RIQ1 SA 
2 S$AC2 RIC2 SAC2 
Cecl Excr Ssaoe C 
EP RIL2 RT4S REC 
RISF RE ws ee eee’ 
RI37 R144 RISF PR 
FP RISS SALE Exl 
CLPG CLLC CLVL 
Pcl RTQ? $402 RY 
1 EXCL CPO] EXCL 
CLct CPC? CLCcl § 
OF RI37 RIG4 RIS 
SAFP RISS SATE 
LRE CLPE CLLOE CL 
eeeleowwvE XC. ween 


Ceonpeoetaeorsr an tevotes 


eefeeeeventaeveon eevee 
Ce 
or eeeereevresaene 


coececccscrcecece 


TECL. SACLE EXIF 
LEE CLLC OLVL SA 


@vneoeteunwreseevaeveant 


oo ART27 &144 RIS 
SAFP PISO SADE 
Lec CLFE FLLC CL 


L eeeneeen as eoanavear 








Chapter 6: Diagnostic Aids 


6 - 43 





17eFEC 
179060 
17902C 
L797TEC 
179800 
17S582C 
179FEC 
17A000 
L7AC2C 
L7ATFO 
17A80C 
174820 
1L7AFEC 
178000 
17e02C 
L7R7EO 
1788CO 
17B820 
17RFEQ 
17C000 
17C02¢ 
LIC7TEC 
17cRO0Cc 
17C82C 
LICFEFC 
170000 
17CC2C 
L7D7EC 
170800 
17082C 
L7DFEO 
17ECOC 
17E02C 
1TE7EO 
17E800 
17ER2C 
L7TEFFC 
17FO000 
L7FO2C 
17F7EO 
17F8CC 
17F82C 
L7FFEC 


LIST, 


ococcoco 
ocoo00co 
ocecccece 
o000ccao 
ocooco00 
eccocooo 
ecccccco 
00000000 
eecoccod 
00000c9co 
ocoococo 
ecccaoco 
oooccnco 
o000009C0 
ecccecccec 
oocooonn 
00000000 
ocoococe 
occooace 
ocqo00no 
aeococce 
c0009000 
ecooccoo 
occocoo0o 
occaccco 
00000000 
oceccoco 
oocococo 
ocooenao 
cccccoac 
ececcoco 
09000000 
oocococo 
oooo0o0dco 
ooocn0on 
eccecoco 
oocoorco 
ooco0o0co 
cocccoco 
0000Cc000 
ocococoo0 
occocace 
cococcao 


oo0cc0000 
coocaceo 
=—S EM E< 
coocoo00c 
c0000000 
rae Saat 
ccecoono 
00000000 
--SANE-- 
ococoooc 
000c0000 
--SAME-- 
ececocce 
©0000000 
=<S AM 'E=< 
coocod0n 
000°0000 
--SAME-~+ 
eceaoodc 
00000000 
~~SAME-- 
000000090 
ocococac 
~=SAME~< 
ceoacoace 
00000000 
aS AME == 
coacccco 
eooco0dd 
--S AME-- 
eeecoccce 
00NC0000 
~-SAME-- 
00C00000 
00000000 
-~SAME-- 
aencaaco 
00000900 
<<S iM ees 
oo0co000 
000C0000 
--SAME-- 
eonoocad 


06/05/13 


coo00000 
coocoocc 


cococcecc 
ralalslalezel ela 


ooooncaec 
oo000000 


coonoocc 
009000C0 


cocecooe 
0000000C 


€N090000 
coonnon0e 


oncacooc 
c0000000 


ooooooncc 
conoorco 


caoo0coc 
ecoo0ooc 


oococooc 
c0000%00 


ecoocnoo 
ooococnod 


coococco 
co00000o 


ccaonccoG 
coocoocc 


co00d0eG 
onoconnc 


eaeconac 


INTER-MNDULE TRACE: CRPOL EXOL SAD2 


INTRA-MOQDULE TRACE: 
IlCO92ST 
IDCC9241 


INTER-MQNULF TRACE: 
INTRA-MOQULE TRACE: RI99 SADE EXIF EXFS SACL CLAG CLRPE CLIC 


SKAP DUMP O01 PRCCUCER AT CUMPF PCINT 


CUMP RCUTITKE 


SAFP RT99 SADE 


INVCKER AT 


TOC3QC7TI VSAM CATALCG RETURN-CCCE 
TOCOS5S1Y *¥ENTRY MNOL.CLOO01040 NCT DELETED 
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PAGE 215 
00000900 ongococa eccaacoo occacacc ccccocac Cee m ec eter rere ns seeesecsseresese 
ecacncac cacococo cccccecec cececcce ocaoaaac Cee eee eee eres ese cers eeessccesses 
CCOCcoOnC caccceoce orccoceo cocaccad ocn000nc Cee ewer nec escces ceveeanssascceves 
ococococ eeccaecc ecccacce cecacoecea ecocacac eon eeeteovece eve ves @eeeeuvoee@eaeeveeveee 
ececaeac ccancocea ececocoo cececece ececoocc eeeoetaoeceewe@eeoe eoeae @oeeseaoeeoeae eee e ane 
ocacoaoc oosnececo eccecoctc cocecoce cceccaooc eee e meee ern eee ss eeeeeeersesesaes 
eoncccac cececcece ececacec cecccoecc eccocoo0 eeatoeevneeen ee esesn eeeeonaeeeentanesned 
d000conoc oocacece ccaccecc cececece ¢ccceoaoc weer eee ree een ene caveeveevsterees 
ceacococ cosecacc ccccecec ceeceece ccococac Cet cece race e ne seevecersseceves 
o000cnNe ocogocso cccoaccre cocococe ocrcoone Cem emcee eres nnns cocnvereeseenene 
ococcocc eccocccc ecccocce ceecececc coccocac @eevaeaneeeoentens eneeeweoseeeaetenweaore 
00C09900 occococe eccoocoo cacecece ccrcocec ee ee ee i 
COoCcagnerc ocaocccoe ccecacce ceccccce ccccococ ee eee ee ee ee ee ee 
ceoco00gd oaqoogre occoecco cocceecces condooon eeveeeoneaoeeev eeeaasa eeoteavesvenaseene 
ecocoaoanc cecococe eccccecec cecceccc Ccecoqoo ee ee 
coecooce eregoocce accancos cecccoce ceoccoanc Chee mrererercers eeveeneseesesees 
0cg0g0g000 cocceccec eceeccac cecceccce ccccocac Chee cece renee eee ceoveseeseevenece 
o0ecacnd oocaocec ecconoco cocecoce 0000000C Cheer e reer erence eoerereres scones 
ooocnooc cococecc ecccecce cocccoce ceccoorc eaeaeaeseeeoseeseeeoane eaeevevaecee eae taeneane 
aecceaecc cocacocc ecececoc cecccace ccocoocc Fes aeoateenesanaes e@eteoszenensenese 
ocaecconc oeceocce ocececoc cecceccco acaocccac a ee ee ee 
oocengoc cocoocce eccoccog cococooo ocaocoaocc aeeevaveeteeneenee @areseaeneesennans 
ccaececne cacecccre ecececce ecececcece occcoora eveeceevatsteeoavanese eereaecevveneeeese 
ocaoconc cecocerce acccecec cececece ccccococ Poe c ewer eesscess eosseveresvcoser 
ococeacc cocococce ¢ecccccecce ceecccod ocecocac Cee e ee weer cers es ener eevecserencs 
eodg0g0000 oncooorca eceocece cococecc ncecagoo eee etevete oe oeeenean eoeteeou ee es eeeeeane 
ececcococ ercocecce ccececcec cececcce acccooac eve merece recess ee rerececresenas 
eonanonc eecoccco ocacococ ceccccca ecccooac oer renner erence eesecsesessseres 
ooecnc: ecec ercecece ccccoacc Se ee ee a 
Dump point at 
which dump 
CLOl C'l Was produced SAC2 PAC] SAC2 DACL SAC2 TLOL DBC1 OLO1 CAROL CLC1 SAe2 CeO) 
EXIF E° CLLC CLVYL SACA 72CA 77CA CLVL CLPC OLBC CLCT FLVS v8 CY ZZ2CA 
"27CA CSECT that 
called for dump 

*77CA?* 
SAC2 CLO CACI CLCL CAC CLOL S402 CPOC1 SAC] FFCL SAC2 CLO1 CPC1 CLOL CBCL OLO1 SACZ CPC] SAC2 CRC 
CLVL SACA Z2CA ZZCA CLVL DLPC OLAC CLCT CLVS SAC A 772C8 Z7CA 


1g 5€ 


TOCCOOLT FUACTICA CCMPLETEL, HIGHEST CONCITICA COPE was & 


Figure 6-2. Sample Dump (Part 5 of 5) 





remainder of the save area is set up following standard register saving 
conventions. Each module’s save area is contained in the first 18 fullwords 
of the module’s automatic storage area. 


Figure 6-2, Part 2 shows a save area as it appears in a dump. The start of the 
save area chain is normally the psuedo save area built by the System Adap- 
ter. This is a three-word area which immediately follows the System Adap- 
ter Historical Data Area. The first word contains the identifier “SAOI’’. The 
third word contains a pointer to the next save area. The forward chain is 
formed from the third word of each save area. 


How to Find the Trace Tables 
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The trace tables can easily be found once you have found the GDT. The 
third word of the GDT (including the GDT identifier) points to the Inter- 
Module Trace Table; the fourth word of the GDT points to the Intra- 
Module Trace Table. 


Several areas in a dump may look as if they contain the trace tables; howev- 
er, these areas may simply be areas used in constructing the trace tables. 


Figure 6-2, Part 1, shows how the trace tables appear in a dump. Note that 
the last (twentieth) trace point in the Intra-Module Trace Table is SASN. 
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Method 1. 


Reg |1 
g Automatic Storage 


of IDCSAOI 


Register 1] 
of registers 
at top of 













dump 
Global Data Table 
Location GDTTBL GDTb 
Method 2. 
Save Area Parameter List 
{DCEXOI1 has saved registers : 
0 (0) Global Data Table 





passed by IDCSAOI. Previous 
save area has identification of 4 (4) 
“SAOIL.” 


Previous Save Area 


Figure 6-3. How to Find the GDT 


IOO! is not part of the trace table. Also note that if, in the Inter-Module 
Trace Table, the sequence SA02 SA02 occurs, the second SA02 is really the 
ID for IDCIOO2. 


How to Find the FDT 


You can find the Function Data Table (FDT) for an FSR after the FSR has 
received control by finding the save area in which the FSR saved the regis- 
ters belonging to IDCEXOI. The first word of this save area contains the ID 
of the FSR, for example, PROI for the PRINT FSR. The previous save area 
in the save area chain contains EXO in the first word. Register | in the save 
area where the FSR saved registers contains the address of a parameter list. 
The second word of that parameter list contains the address of the FDT. 


All FDTs are built by the Reader/Interpreter in a UGPOOL storage area 
obtained by the Executive; the UGPOOL area has an ID of EX00. The first 
two words of the FDT contain the name of the command. 


Figure 6-2, Part 3, shows how an FDT looks in a dump. Part 2 of Figure 6-2 
shows the register belonging to IDCEXOI and saved by IDCDLOI. Register 
| points to the parameter list. Part 4 of Figure 6-2 shows the parameter list 
and Part 3 shows the FDT. 


How to Find Automatic Storage Areas 


The automatic storage area for a phase or CSECT is that storage area 
obtained whenever the phase or CSECT is entered; dynamic storage areas, 
on the other hand, are those storage areas obtained by the phase or CSECT 
as itis executing. All automatic storage areas, as well as dynamic storage 
areas, are obtained by the System Adapter. 
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The automatic storage area for most processor phases and CSECTs is 
preceded by an eight-byte header. The first four bytes contain the number 
of bytes in the automatic storage area (including the eight-byte header), and 
the last four bytes contain the phase or CSECT ID. However, for commonly 
called CSECTs, namely, IDCIOOI, IDCSA02, IDCSA03, and IDCTPOlI, no 
header precedes the storage area, unless the CSECT has been called recur- 
sively. On recursive calls (that is, the CSECT has been called again within 
the original call), the storage area that is obtained is preceded by an eight- 
byte header. 


The best way to find the automatic storage area for a phase or CSECT 
depends upon the phase or CSECT. 


The address of the automatic storage area for CSECT IDCSA03 ts kept in 
the GDT. 


The addresses of the automatic storage areas for CSECTs IDCIOOI, 
IDCSA02, and IDCTPOI are kept by the System Adapter in the AU- 
TOTBL. Figure 6-4 shows the format of the AUTOTBL and how to find tt. 
However, if one of these CSECTs has been called recursively, indicated by a 
use count inthe AUTOTBL greater than one, another automatic storage 
area has been obtained. You must find the second and third storage areas 
using the CSECT’s data register or save area register as explained in the 
next paragraphs. 


Figure 6-2, Part 1, shows how the System Adapter Historical Area and 
AUTOTBL appear itn a dump. 


To find the automatic storage area for any phase or CSECT, you can exam- 
ine the microfiche listings to find which register has been used by the compi- 
ler as the data register. This register points to the automatic storage area. 


For all processor phases and CSECTs, the first item in the automatic storage 
area is the save area. Thus, you can also use register 13, which contains the 
address of the save area, to find the automatic storage area belonging to that 
phase or CSECT. Alternatively, you can follow the save area chain as 
explained in the section “How to Find Save Areas” 


Figure 6-5 shows the automatic storage area for IDCEX01. IDCEX01 has 
called IDCDLOI; therefore, IDCDLO! has saved the registers belonging to 
IDCEX01 in the save area. 


Figure 6-2, Part 4, shows an automatic storage area as seen in a dump. 


How to Find Dynamic Storage Areas 
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A phase or CSECT obtains storage areas dynamically by issuing either a 
UGSPACE ora UGPOOL macro. 


To find a storage area obtained via a UGSPACE macro, you must examine 
the microfiche listings to see where the phase or CSECT has saved the 
address of that particular storage area. To find a storage area obtained via a 
UGPOOL macro, you can again examine the microfiche listings or you can 
follow the UGPOOL storage chain maintained by the System Adapter. 


Figure 6-6 shows how to find the chain of UGPOOL areas from the System 
Adapter’s historical area. 
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System Adapter 
GDT Historical Area 


32 (20)] GDTSAH 8 (8)} AUTOPTR 


2 2 ene ee eeer nee eee 


AUTOTBL 


Use 
Count 


Size Address An entry exists for IDCIOOI, 


hee wee ae IDCSA02, and IDCTPOI. 


Number 
Field of Bytes Contents 
iD 4 CSECT ID 
Use Count 2 Number of automatic storage areas obtained for the CSECT: 
0 - no storage area being used 
1 — the storage area whose address is in this table is the 
only storage area being used 
>I -— another storage area has been obtained for the 
CSECT 
Size 2 Number of bytes in automatic storage area 
Address .4 Address of automatic storage area 


Figure 6-4, Format of AUTOTBL 








Data Register of IDCEX0O1 







X‘24F° EX01 


Next Save Area * 















Reg 13 of IDCEXOlI 





Automatic Storage 
Area of IDCEX0OlI 


*When IDCDLOI returns to IDCEX0O1, 
this field will contain zeros. 


Figure 6-5. Example of an Automatic Storage Area 
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32 (20,4 GDTSAH 


i — a eM Ga 


System Adapter First 
Historical Area UGPOOL Area 


0 (0) | GPFIRST 
4 (4) | GPLAST 


Second 
UGPOOL Area 










Third (last) 
UGPOOL Area 


This field contains UGPOOL 


12 (C) | GPID . eben 
area identification. 


i, ee es 


Figure 6-6. UGPOOL Area Chain 





UGPOOL ID List 
The following list contains the UGPOOL IDs used by different phases and 
CSECTs when they obtain storage. The list of UGPOOL areas also contains 
the name of the internal procedure that issues the UGPOOL macro, and the 
contents stored in the UGPOOL area. 


Figure 6-2 shows the UGPOOL chain as it appears in a dump. Part | of 
Figure 6-2 shows the start of the chain in the GDT. Part 3 of Figure 6-2 
shows a portion of the chain. 


Contents of UGPOOL Areas 


Phase or UGPOOL 
CSECT ID Procedure Contents of UGPOOL Area 
IDCALO! ALOO ALTERPRC One of the following: PASSWALL field or 
volume list. 
IDCALOI CTGPL, CTGFV, and CTGFLs. 


LOCATPRC Catalog work area for locate requests. 


INDEXPRC CTGPL, CTGFV, and CTGFL to alter index 
KEY field. 


IDCBIOI BIOI JCPROC Area obtained by UIOINFO to contain sort work 
file data set name and volume serial list; passed 
back to JCPROC. 


BIPG INITPROC One 2048 byte buffer, followed by area for define 
CPL FVTs and FPLs, followed by alternate in- 
dex record output buffer; area starts on page 
boundary. 


BIPG INITPROC Record sort area followed by table which 
controls the sort. 


IDCDEO! DE0O IDCDEOI CTGPL and CTGFVs. 


IDCDE02 DEOO ALLCPROC One of the following: volume list, file sequence 
list, device type list, DSATTR, or CTGFLs. 
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Contents of UGPOOL Area 


Phase or 
CSECT 


IDCDLOI 


IDCIOOL 


IDCIO02 


IDC1IO03 


IDCLCO! 


UGPOOL 
ID Procedure 
KEYPROC 
MODELPROC 
NAMEPROC 
PROTPROC 
DLO! MORESP 
1000 IDCIOIT 
iIDCIOCO 
1Onn PUTREP 
lOnn BUILDACB 
BUILDDBK 
BUILDRPL 
CKNONOP 
CLOSERTN 
iOnn OPENRTN 
DSINFO 
LCO0O INITPROC 
LCOl INITPROC 
LCOQ2 INITPROC 
LCO03 INITPROC 
LC04 INITPROC 


Contents of UGPOOL Area 


One of the following: MADSBCAT CTGFL and 
IDAAMDSB field, or key range list. 


One of the following: CTGPL and CTGFLs used 
to locate a model object, or catalog locate work 
area. 


Creation and expiration date and EXCEPTION 
EXIT CTGFLs. : 


PASSWALL CTGFL, OWNERID CTGEL, 
PASSWALL field, RGATTR FPL, RGATTR, 
and User Authorization Record. 


Larger VSAM catalog management services 
work area if necessary. 


1/O Adapter historical area. 


Work area where the copy routine builds 
spanned records that were exported in Cl mode. 
The UGPOOL ID is the same as the ID for the 
associated IOCSTR. 


Work area where VSAM moves records during 
GET. The UGPOOL ID is the same as the ID 
for the associated IOCSTR. 


ACB, RPL and EXLST for a VSAM data set. 
The UGPOOL ID is the same ID as the associat- 
ed IOCSTR. 


IOAREA for nonVSAM files. The UGPOOL ID 
is the same as the ID for the associated LOCSTR. 


Work area where VSAM moves records during 
GET. The UGPOOL ID is the same as the ID 
for the associated IOCSTR. 


Work area used to assemble a nonVSAM 
spanned record. The UGPOOL ID is the same as 
the ID for the associated LOCSTR. 


if the UCLOSE is issued with the LOCRCVCL 
flag set, anew VSAM buffer is acquired. The 
UGPOOL ID ts the same as the ID for the associ- 
ated IOCSTR. 


1OCS prefix, IOCSTR, LIOCSEX, and file 1D. 
Each data set that is opened is assigned a unique 
UGPOOL ID, starting with IOOI; the next data 
set that is opened is assigned an ID of 1002. All 
areas associated with this data set have the same 
UGPOOL IDs. 


Area in which data set name, volume serial 
numbers, device type, and/or format-4 times- 
tamp is returned to the caller if an area is not 
supplied by the caller. The UGPOOL ID is sup- 
plied by the caller. 


Main CTGPL used for all locate requests except 
when locating the entry names of associated en- 
tries. This area also contains a save area for the 

CTGPL. 


All CTGFLs, followed by the CTGFL save area. 


Catalog work area referenced by the main 
CTGPL. 


CTGPL used to locate entry names of associated 
entries; this area also contains a save area for the 
CTGPL. 


Catalog work area referenced by the CTGPL 
used to locate entry names of associated entries 
of cluster or alternate index. 
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Contents of UGPOOL Area 


Phase or 
CSECT 


IDCLC02 


IDCLRO! 


IDCMPOlI 


IDCRCOI 


IDCRCO2 


IDCRIOI 


IDCRIO2 
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UGPOOL 
ID Procedure 
LCOS INITPROC 
LC06 INITPROC 
LC07 INITPROC 
LCII INITPROC 
LCO8 LOCPROC 
LCO09 ANSVPROC 
LROI ADDASOC 
BLDVEXT 
INITLZE 
INTASOC 
LRO2 CTTBLD 
LRO3 INITLZE 
LRO4 INSORT 
MPO! BFPLPROC 
BPASPROC 
CLUSPROC 
CTLGPROC 
DELTPROC 
DVOLPROC 
LVLRPROC 
RANGPROC 
FVTPROC 
RCSO OPEN 
RC51 SUPSP 
RC52 DIRECT 
RC54 SCANCRA 
RCO02 IDCRCO2 
ALSPROC 
ASOCPROC 
CLUSPROC 
CTLGPROC 
GDGPROC 
LOCPROC 
NVSMPROC 
SAVEPROC 
EX00 GETSPACE 
MORSPACE 
SCANCMD 
Rinn INREPEAT 
EX00 IDCRIO2 
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Contents of UGPOOL Area 
String of control interval numbers and types of 
associated entries of a cluster or alternate index. 
Text processor argument list. 


Abbreviations used in catalog listing, loaded 
from static text phase. 


String of control interval numbers and types of 
associated entries of a data, index, or path. 


Larger catalog work area. UGPOOL LC02 is 
released. 


Larger area for string of control interval numbers 
and types of associated entries. UGPOOL LC05 
or LCI ts released. 


Association table extension area. 
Vertical extension table extension area. 


Space for ASSOCTBL, ASSOCTB2 and 
VEXTTBL. 


Association table extension area. 
Cl translate table (CTT). 
Input/output buffers. 

Sort table. 

Obtain one or two FPLs. 
PASSWALL CTGEL. 


Buffer to read data records from the portable 
data set. 


Larger catalog work area. 


Larger VSAM catalog management services 
work area if necessary. 


Volume serial list for DEFAULTVOLUMES. 


One of the following: volume list for define, or 
DEVTYPES CTGEFL. 


Range list. 

FVT and pointers to FPLs. 
Storage for OPNAGL. 

Name table storage. 

Buffer for directory record. 

CRA translate table. 

Control record output buffer. 
Control record output buffer. 
Control record output buffer. 
Control record output buffer. 
Catalog work area. 

Control record output buffer. 
CPL, FPL, and work area for catalog. 
Control record output buffer. 
Input record save area. 
FDT-——data substructures. 
FDT—data list substructures. 
FDT—secondary pointer vectors. 


FDT—temporary space for secondary pointer 
vectors. nn ts the ID of the parameter associated 
with the secondary pointer vector. 


Reader/Interpreter tables and FDT. 
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Contents of UGPOOL Area 


Phase or 
CSECT 


IDCRMOlI 


IDCRSO! 


IDCRSO3 


IDCRS04 


IDCRSO5 


IDCRS06 


IDCRSO7 


IDCTPOI 
IDCTP04 


UGPOOL 

ID Procedure 

Rinn IDCRI02 

RMO!t ALISPROC 
BFPLPROC 
BPASPROC 
CLUSPROC 
CPLPROC 
CTLGPROC 
DELTPROC 
DVOLPROC 
FVTPROC 
LVLRPROC 
NFVTPROC 
NVSMPROC 
RANGPROC 
UCATPROC 

RSOI IDCRSO!I 

RSO! INIT 

RS03 INIT 

RSPG INIT 

RSO3 VOLCHK 

RS10 GETTAB 

RSII PROCVOL 

RS12 VERB 

RS04 NINIT 

RS04 NXPND 

RSO! BLDRLST 

RS02 BLDVLST 

RSO3 WFDEF 

RS03 RENAMEP 
RENMBK 

RSOS5 RENMSETV 

TPO3 LINEPRT 

TPOI INITPROC 
PCTSETUP 


Contents of UGPOOL Area 


FDT—temporary space for secondary pointer 
vectors. nn is the ID of the parameter associated 
with the secondary pointer vector. 


Catalog data record buffer. 
Obtain one or two FPLs. 
Contain PASSWALL field information. 


Buffer area for data record containing catalog 
locate area, Also volume list. 


Catalog parameter list. 

Larger catalog work area. 

Larger catalog work area. 

Volume serial list for DEFAULTVOLUMES. 
FVT and pointers to FPLs. 


Volume serial list. DEVTYP FPL and associated 
device type lists. List of FILESEQUENCE num- 
bers and associated FPL. 


FVT and total number of FPLs. 
Buffer for data record. 

Storage for range list. 

Storage for data record. 


Automatic storage modules IDCRSOl - 
IDCRSO7. 


Work area used for Umacro parameter lists, 
record access blocks, IJJHCPL parameter list 
and control interval translate table. 


Area obtained by UIOINFO for catalog data set 
information. 


CRA user buffer. 
UIOINFO return area and DSCB read in area. 


Tables obtained as needed for association 
checking. 


Work areas used for bit maps. 

Work area used for GDG association checking. 
Work area used for FIND processing. 
Extension to FIND work area. 

RESVOL table. 

VOLSERTB table. 


Work area used for UCATLG parameter list to 
define the workfile, area obtained by UIOINFO 
for workfile data set information. 


UIOINFO return area and work area. 
UIOINFO return area and work area. 
CVH work area for RENAME. 
Header line. 

Secondary Print Control Table. 


One of the following: Print Control Table, 
sub-title lines, or footing lines. 
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Contents of UGPOOL Area 


Phase or UGPOOL 

CSECT ID Procedure Contents of UGPOOL Area 

IDCTPOS TPOI IDCTPOS Entry from a Static text format structure. 

IDCXPO|I XPOI ALTRPROC CTGFV and CTGFLs for catalog alter request. 
CONTRBL Output buffer for control records. 


CTLGPROC Larger catalog work area. 
DELTPROC CTGPL for catalog delete request. 


LOCPROC One of the following: CTGPL and CTGFLs for 
catalog locate request, or catalog work area for 
locate request. 


The dump in Figure 6-2 was obtained through the Test option at the ZZCA 
dump point. The commands that were specified are: 


PARM TEST( FULL( 22CA,3,1 ) ) 
DELETE MNO1.CLO01040/CLMR 


Various fields within the dump are marked; these fields are discussed more 
fully in this chapter. 


Debugging a Catalog Problem 


There may be a problem within Catalog Management routines or within 
Access Method Services routines that invoke Catalog Management if one of 
the following situations occurs: a system error occurs within Catalog Man- 
agement routines, the return code from the catalog indicates a non-user 
error, or the printed output from the catalog is incorrect. To determine 
whether the problem exists in Access Method Services or in Catalog Man- 
agement, you must examine the argument lists passed between the processor 
and Catalog Management. 


This section explains how to obtain a dump that contains the Catalog 
Management argument lists and how to find the argument lists within the 
dump. 


To determine whether the argument lists passed between the processor and 
Catalog Management are correct, see the section “Method of Operation” in 
this book and in VSE/VSAM VSAM Logic, Volume 1, which is listed in the 
preface to this book. The section “Method of Operation” explains what 
argument lists are passed to Catalog Management by each FSR; 
VSE/VSAM VSAM Logic, Volume I explains the contents of the argument 
lists and also explains the arguments that are returned by Catalog Manage- 
ment. 


Obtaining a Dump For a Catalog Problem 


If you do not have a system dump within Catalog Management, you can use 
the Test option to obtain a dump within Access Method Services before and 
after the call to Catalog Management. 


The list of Phase or CSECT to Dump Cross Reference contains all the dump 
points within the processor; you can specify these dump points on the FULL 
option of the TEST keyword to obtain a full partition dump. Most FSRs 
that issue a UCATLG macro to call Catalog Management have dump points 
before and after the macro. In addition, the System Adapter routine that 
issues the CATLG macro has a dump point before and after the macro. 


Some FSRs have unique dump points around different types of calls to 
Catalog Management. For example, IDCDLO! has dump points DLVL 
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around the call to locate the entry type and dump points DLVS around the 
call to delete the entry. Some FSRs have the same dump point around all 
calls to Catalog Management, for example, IDCMP0OI. Some FSRs have 
dump points at which you can obtain selected fields in addition to a full 
partition dump, for example, dump points LCBL and LCAL in IDCLCOI. 


The System Adapter dump point ZZCA can always be used, for any FSR, to 
obtain dumps before and after a call to Catalog Management. 


To determine at which iterations of a dump point you wish a full region 
dump, you must determine how many calls to Catalog Management have 
been made by the FSR before the call that caused the problem. You can 
either use the following list or rerun the job with the AREAS option. 


Instead of using the Sequence of Catalog Calls Made by FSRs, you can 
rerun the job with the AREAS option of the TEST keyword to determine 
which iteration of a dump point you need to use. For example, if you wish 
to use dump point ZZCA to obtain a dump, rerun the job with the following 
Test option: 


PARM TEST( AREAS( ZZ ) ) 


From the trace output you can see how many times dump point ZZCA was 
encountered before the problem occurred. 


The following list summarizes the sequence of calls each FSR makes to 
Catalog Management. For example, assume that the LISTCAT FSR, 
IDCLCOI1, while listing all the information for a KSDS cluster entry, listed 
the cluster name under the index entry incorrectly. Referring to the list, you 
would know that the call to the catalog that retrieved that name was the 
seventh call the LISTCAT FSR made to Catalog Management. 

Sequence of Catalog Calls Made by FSRs 

FSR Sequence of calls to catalog management 


IDCALOI |. Acall to open the catalog if the dname subparameter of the CATALOG 
parameter was specified. 


2.  Acall to locate catalog fields if one of the following fields ts being 
nullified or altered: MASTERPW, CONTROLPW, UPDATEPW, 
READPW, CODE, ATTEMPTS, AUTHORIZATION, 
ERASE|NOERASE, SHAREOPTIONS, FREESPACE, 
WRITECHECK|NOWRITECHECK, 

UNINHIBIT|INHIBIT, UPGRADE, UNIQUEKEY, NONUNIQUE- 
KEY, KEYS, or RECORDSIZE. 


If UPGRADE was supplied: 


1. Accall to locate the associated data component of the alternate index to 
verify that it is empty. 


2. Acall to alter the alternate index entry. 
If RECORDSIZE was supplied for the data object: 


1. A call to locate the cluster or alternate index associated with the data 
object. 


2: A call to locate the index associated with the cluster or alternate index 
related to the data object. 


3. Acall to alter the data entry. 


If RECORDSIZE was supplied for the cluster or alternate index object: 
1. Acall to locate the associated data object. 

2.  Accall to locate the associated index object. 

3. Acall to alter the data entry. 

If RECORDSIZE was supplied for the path object: 


|. Acallto locate the data object of the related alternate index or cluster. 
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Sequence of Catalog Calls Made by FSRs 


FSR 


IDCBIO! 
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Sequence of calls to catalog management 


2.  Acall to locate the index object of the related alternate index cluster. or 
cluster. 


3. Acall to alter the data entry. 
If KEYS was supplied for the data object: 


l. A call to locate the cluster or alternate index associated with the data 
object. 


2: A call to locate the index associated with the cluster or alternate index 
related to the data object. 


3. Acall to locate the alternate index’s base cluster, if the data object is 
associated with an alternate index. 


4. Acall to locate the data object of the base cluster. 
A call to alter the data entry. 


6. Acallto alter the related index object key values. 


If KEYS was supplied for the cluster object: 

|.  Acall to locate the associated data object. 
2. Acall to locate the associated index object. 
3. Acallto alter the data entry. 
4 


A call to alter the related index object key values. 


If KEYS was supplied for the alternate index object: 
|. Acall to locate the associated data object. 

A call to locate the associated index object. 

A call to locate the base cluster object. 

A call to locate the base cluster’s data object. 


A call to alter the data entry. 


OY a a ae 


A call to alter the related index object key values. 

If KEYS was supplied for the path object: 

|. Acall to locate the data object of the related alternate index or cluster. 
2. A call to locate the index object of the related alternate index or cluster. 


3. A call to locate the base cluster’s data object, if the path is related to an 
alternate index. 


4.  Acall to alter the related entr’s data object. 
If KEYS was supplied: 
|.  Acall to alter the related index object's key values. 


|. Accall to locate the catalog ACB, entry type and associations of the name 
specified for the base cluster—may be the base cluster itself or a path 
over the base cluster. 


2. Acall to locate the AMDSB of the base cluster’s data component. 

3.  Acall to locate the entry type and associations of the name specified for 
the alternate index—may be the alternate index itself or a path over the 
alternate index. 

4. If locate 3 returned a path over the alternate index, a call to locate the 


entry type and associations of the alternate index. 


5. Acall to locate the AMDSB of the alternate index’s data component. 


If an external sort is performed: 
{. Two calls to define each sort work file. 


2: Two calls to delete each sort work file. 
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Sequence of Catalog Calls Made by FSRs 


FSR 
IDCDEO! 


IDCDE02 


IDCDLOI 


IDCLCO0! 


Sequence of calls to catalog management 


I. 


A call to open the catalog if the dname subparameter of the CATALOG 
parameter was specified. 


A call to define the entire entry. 


A call to open the catalog specified if the MODEL parameter was 
specified with the dname. subparameter. This call occurs prior to the 
first locate for cluster, data or index described in 3. 


One or more calls to locate each object that is modeled, as follows: 
threecalls if the MODEL keyword is specified in the cluster parameter 
list fora KSDS cluster; two calls if the MODEL keyword ts specified in 
the cluster parameter list for an ESDS cluster or in both the data and 
index parameter lists; one call if the MODEL keyword is specified in a 
data parameter list or an index parameter list only. 


A call to open the catalog if the dname subparameter of the CATALOG 
parameter was specified. 


For each entry: 


|. 


A call to locate the entry type, if the type was not specified on the 
command. 


A call to delete the entire entry. 


An iterative series of calls to delete any remaining parts of a structure as 
necessary. 


A call to open the catalog if the dname subparameter of the CATALOG 
parameter was specified. 


For each cluster entry: 


l, 
2 


A call to locate the cluster entry. 


A call to locate the name of the data entry associated with the cluster 
entry. 


A call to locate the name of the index entry associated with the cluster 
entry, only for KSDS clusters. 


Repetitive calls to locate the names of the alternate indexes and paths 
associated with the cluster entry (if any exist). 


A call to locate the data entry. 


A call to locate the name of the cluster entry associated with the data 
entry. 


A call to locate the index entry, only for KSDS clusters. 


A call to locate the name of the cluster entry associated with the index 
entry, 


Repetitive calls to locate the path entries (if any exist). 


Repetitive calls to locate the cluster, data, and index (for key-sequenced 
files) associated with the path entries. 
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Sequence of Catalog Calls Made by FSRs 
FSR Sequence of calls to catalog management 


For each alternate index entry: 
|. <Accall to locate the alternate index entry. 


2.  Acall to locate the name of the data entry associated with the alternate 
index entry. 


3.  Acallto locate the name of the index entry associated with the alternate 
index entry. 


4, Acall to locate the name of the cluster entry associated with the 
alternate index entry. 


5. Repetitive calls to locate the names of the paths associated with the 
alternate index entry (if any exist). 


6.  Acall to locate the data entry. 


7.  Acall to locate the name of the alternate index entry associated with the 
data entry. 


8. Acall to locate the index entry. 


9.  Acall to locate the name of the alternate index entry associated with the 
index entry. 


10. Repetitive calls to locate the path entries (if any exist). 


11. Repetitive calls to locate the alternate index, data and index (of alternate 
index), and data and index (of cluster) associated with the path entries. 


For each data entry: 
|. Acall to locate the data entry, 


2.  Acall to locate the name of the cluster or alternate index entry associat- 
ed with the data entry. 


For each index entry: 
|.  Accall to locate the index entry. 


2.  Acallto locate the name of the cluster or alternate index entry associat- 
ed with the index entry. 


For each path entry: 
|. Acall to locate the path entry. 


2. Fora path over a cluster, a call to locate the name of the cluster, and 
data and index (of cluster) associated with the path entry. 


3. Fora path over an alternate index, a call to locate the name of the 
alternate index, data and index (of alternate index), and data and index 
(of cluster) associated with the path entry. 


For each nonVSAM entry: 


|. Accall to locate the nonVSAM entry. 


For each space entry: 
|. Acall to locate the space entry. 


2. One or more calls to locate each file 1D in a space entry, for example, 
three calls if three data sets are defined in the data space. 


For each user catalog entry: 


1. Accall to locate the user catalog entry. 


IDCLROI |. Acall to open the catalog if the dname subparameter of the CATALOG 
parameter was specified. 
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Sequence of Catalog Calls Made by FSRs 


FSR 
IDCMPO! 


IDCRCOI 


IDCRMOI 


IDCRPOI 


IDCRSOI 


IDCRS06 


Sequence of calls to catalog management 


I. 
2: 


7, 
8. 


A call to define the cluster or alternate index. 


A call to locate the cluster entry, if the previous define failed bacause of 
a duplicate entry in the catalog. 


A call to locate the data entry, only for a duplicate cluster entry. 


A call to locate the index entry, only for a duplicate KSDS cluster entry 
or alternate index entry and if the temporary export flag is not set in the 
data entry. 


A call to delete the entry, if there is a duplicate nonempty entry. 


An iteractive series of calls to delete any remaining parts of a structure 
as necessary. 


A call to define the cluster again, if there was a duplicate entry. 


A call to delete the defined entry, if an error occurred copying data into 
the defined entry. 


An iterative series of calls to delete any remaining parts of a structure as 
necessary. 


A call to alter the data entry, if the INHIBITTARGET keyword was 
specified at export time. 


A call to alter the index entry, if the INHIBITTARGET keyword was 
specified at export time for a KSDS cluster or an alternate index. 


A call to locate the cluster entry. 
A call to locate the data entry. 


A call to locate the index entry only for a KSDS cluster or an alternate 
index. 


A call to define the object. 


A call to delete the object if a duplicate name ts indicated following the 
first call to catalog. 


A series of calls to catalog to delete the remainder of the structure. 
A call to define the object if a duplicate name was found. 


A call to alter the name of the object if it isa VSAM entry to the dummy 
name specified on the OUTFILE ddcard. 


A call to alter the name of the object back to its original name if the 
previous call was exported. 


A call to delete the object defined if import fails after the define. 


A series of calls to catalog to delete the remainder of the structure. 


For VSAM data sets: 


A call to identify the INFILE data set type. 

A call to identify the OUTFILE data set type. 

A call to locate the catalog volume serial number. 

A call to locate the catalog data set name. 

A call to locate the catalog volume serial number and timestamp. 
A call to locate the catalog ACB and data attributes. 


A call to locate the ACB of the catalog in which the workfile was 
defined. 


A call to define the workfile. 


A call to delete the workfile. 
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Sequence of Catalog Calls Made by FSRs 
FSR Sequence of calls to catalog management 


IDCXPO! |.  Accall to locate the cluster or alternate index entry. 
2.  Acall to locate the data entry. 


3. Accall to locate the index entry, only for a KSDS cluster or an alternate 
index. 


4.  Acall to locate the related base cluster name if the object being exported 
is an alternate index. 

5. Aseries of iterative calls to locate catalog information about the path 
objects associated with the object. 

6. Acallto alter the data entry, if TEMPORARY, INHIBITSOURCE, or 
INHIBITTARGET was specified on the command. 


7. Acall to alter the index entry, if TEMPORARY, INHIBITSOURCE, or 
INHIBITTARGET was specified on the command, and the object is a 
KSDS cluster or an alternate index. 

8.  Acall to delete the entry if PERMANENT was specified on the 
command. 


9. A series of iterative calls to the delete any remaining parts of the 
structure, 


How to Find Catalog Management Argument Lists 


6 ~ 58 


The Catalog Parameter List (CTGPL) is the one argument list always 
passed between Access Method Services and Catalog Management. The 
CTGPL may point to a catalog work area, a CTGFYV, or one or more 
CTGFLs. Thus, once you find the CTGPL, you can find all the Catalog 
Management argument lists. 


The best way to find the CTGPL in a dump depends upon the type of dump 
you have: a system dump within Catalog Management, a PDUMP taken at 

a dump point within an FSR, ora PDUMP taken at the ZZCA dump point 

in the System Adapter. 


In asystem dump within Catalog Management, register | of the registers 
saved when Catalog Management was entered contains the address of the 
CTGPL. 


Ina PDUMP taken at a dump point within an FSR, the address of the 
CTGPL is stored at location CTGPLPTR in the FSR’s automatic storage 
area. You must examine the microfiche listings to determine the offset of 
location CTGPLPTR in the automatic storage area. 


Ina PDUMP taken at dump point ZZCA within the System Adapter, the 
address of the CTGPL is again stored at location CTGPLPTR in the FSR’s 
automatic storage area. However, the address of the CTGPL 1s also passed 
as an argument from the FSR to IDCSA02 when the UCATLG macro is 
issued. Figure 6-7 shows how to find the address of the CTGPL using 
register | at entry to IDCSA02. Register | contains the address of a parame- 
ter list. The second word of the parameter list points to a full word that 
contains the address of the CTGPL. 


In addition to the CTGPL, Catalog Management returns to the processor a 
code in register 15 that indicates the result of the catalog request. The best 
way to find the return code in a dump again depends upon the type of dump 
you have: a PDUMP taken at a dump point within an FSR, ora PDUMP 
taken at dump point ZZCA. 


Ina PDUMP taken at a dump point within an FSR, you must examine the 
microfiche listings to determine where the FSR has stored the return code. 

However, any nonzero return code is always printed by the FSR in a subse- 
quent message. 
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Save Area 
IDCSAO2 has saved registers 0 (0) |1SA02 
passed by FSR. 
Previous save area has 4 (4) 


FSR’s identification. 


24 (18) 





Parameter List 


Ld 


Figure 6-7, How to Find the CTGPL 


Ina PDUMP taken at a dump point within the System Adapter, the catalog 
return code is stored at location TESTRC in IDCSA02’s automatic storage 
area. You must examine the microfiche listings to determine the offset of 
TESTRC in the automatic storage area. 


Some FSRs have headings before the storage areas that contain the Catalog 
Management argument lists. These headings may help you find the Catalog 
Management argument lists in a dump. Figure 6-8 shows the DEFINE 
FSR’s storage area that contains the argument lists set up for a define 
request. 


Debugging a Formatting Problem 


If data is misformatted, the problem may be in the parameters given to the 
UPRINT macro. The UPRINT parameters are: (1) the address of the GDT; 
(2) the address of an alternate IOCSTR or zero; (3) the address of and a 
DARGLIST data area in storage; and (4) the address of a FMTLIST data 
area, if itis in storage. If the FMTLIST is in a static text module, the fourth 
parameter is zero and the DARGLIST contains information to find the 
FMTLIST. The DARGLIST and the FMTLIST control the formatting of 
the data. The DARGLIST in general contains information about the input 
data within the FMTLIST. The FMTLIST controls the order of formatting 
by the placement of the substructures. Refer to the “Data Areas” chapter 
for a detailed description of the GDT, IOCSTR, DARGLIST, and 
FMTLIST. Problems are most likely to occur between the DARGLIST and 
the FMTLIST. The examples show how the Text Processor uses the DAR- 
GLIST and FMTLIST to format the data. With each example is a flowchart 
with blocks keyed to the FMTLIST substructure. 
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UGPOOL Area Header 





CTGPL 


CLS TRFEFVT 

CTGFV for cluster information. For 

nonVSAM data sets, the heading 

is NVSAMFVT. 
VOLUMFEFVT 

| CTGFV for volume information. 

INDEX FVT 
DATAFVT61 


DEFINWKA 


] il Catalog work area for generated names. 


If any of the above CTGFVs are not set up for a define request, 
the heading and CTGFV area contains zeros. 


Figure 6-8, Catalog Argument Lists in Storage Area of DEFINE FSR 


CTGFV for index information. 


CTGFV for data information. 





Example | 


A module wants to space one line then print data starting in column 10. The 
data is in the module’s storage rather than in a static text module. 


The output is: 


70 characters of data starting in column 10 
In the module’s storage is: 
e the data to be printed 
¢ aDARGLIST 
¢ aFMTLIST 
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The data 1s: 

Offset Name 

0 any, INFO for 
example 


The DARGLIST is: 


Offset Name 
0 DARGDBP 
4 DARGRETP 
8 DARGSTID 
12 DARGILP 
14 DARGCNT 
16 DARGRETL 
18 DARGIND 
The FMTLIST is: 
Offset Name 

A) " FMTFLGS 
I none 
2 FMTSPF 
4 FMTSPT 
5 none 

© 6 FMTELGS 
7 none 
8 FMTILEN 
id FMTIOFF 
{2 FMTOCOL 
14 FMTOLEN 
16 FMTCNVF 


Contents 


70 characters of EBCDIC 


data 


Contents 


tINFO 


70 


Contents 


X*40° 


C‘R’ 


X‘90' 


70 or 0 


Comments 


Comments 


Address of the block of data to be 
printed. 


The line ts to be printed rather 
than just formatted and returned 
to the module without printing. — 


No static text module is 
used—the FMTLIST and data 
are in the module’s storage. 


Number of characters to print. 


No insert or replication substruc- 
tures occur in the FMTLIST. 


Since no data is returned, the 
length of the return area whose 
address is in DARGRETP. 


Indicates printing is to start in the 
column indicated in FMTLIST. 
No DARGARY is defined be- 
cause no insert or replication sub- 
structures are used in the 


FMTLIST. 


Comments 


Identifies these 6 bytes asa 
spacing substructure. 


Unused. 
Space one line. 


Space the number of lines in 
FMTSPR relative to the last line 
printed. 


Unused. 


Identifies these 12 bytes as a 
block substructure and the end of 
the FMTLIST. 


Unused. 


If 70 is specified, it is used as the | 
length of the data. If 0 is speci- 
fied, the length of the converted 
data is used as the length to print. 
Since no conversion is being done 
in this example, the result is the 
same if 70 or 0 is specified. 


Get the data starting with the first 
byte. 


Place the data in output column 
10. 


Number of bytes to print. 0 
would give the same result since 
no conversion ts being done. 


No conversion is being done on 
the data addressed by 
DARGDBP. 
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Discussion: The spacing substructure causes one line to be spaced. 


The next substructure is identified as a block data substructure. The address 
of the block of data isin DARGDBP. No conversion is to be done on the 
data. The Text Processor moves the 70 bytes in the next line. 


Format 
block 
data 





A module wants to space 2 lines, print a header, space 2 more lines, and 
print all of a block of data no matter how many lines the block of data takes 
with single spacing between subsequent lines. The header Is in static text 
module IDCTSALO at entry X‘03’. The block of data is in the module. 
Also, if there is no record number for the header, the module wants to print 
the word UNKNOWN. 


The output is: 


(1 blank line) 

RECORD NUMBER 002 

(1 blank line) 

XXXXXXX converted data for as many lines as necessary 


The module has in its storage: 

e the data for the record number in the header, in this example X‘02’ 
e the block of data to convert and print 

¢ aDARGLIST 

Already existing in a static text module is: 


e aFMTLIST 


e text for the header, in this example the characters ‘RECORDbNUMBER’ 
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The data is: 

Offset Name 

0 any, RECNUM 
for example 

| any, DUMPIT 


for example 


The DARGLIST ts: 


Offset 
0 


20 


22 


24 


Name 
DARGDBP 


DARGRETP 


DARGSTID 


DARGILP 


-DARGCNT 


DARGRETL 


DARGIND 


none 


DARGARY 


DARGINS 


DARGINL 


DARGDTM 


Contents 


one byte with the 
value X‘02’ 


2000 bytes of 
binary data 


Contents 
*DUMPIT 


C‘ALO’,”, X‘03° 


2000 


tRECNUM 


Comments 


The binary data will be 
converted to printable hexadeci- 
mal. 


Comments 


Address of the block of data to 
convert. 


The lines are to be printed rather 
than just formatted and returned 
to the module without printing. 


Static text identification to locate 
the FMTLIST—the FMTLIST 
IDCTSALO at entry 3. 


The length of DUMPIT. 


One insert data appears in 
DARGARY. 


The length of the converted data 
is used as the number of bytes to 
print. 


Printing starts in the column 
indicated in FMTLIST. 


Unused. 


DARGARY is the name of the 
rest of DARGLIST. 


This number is matched with a 
insert substructure in FMTLIST. 


The number X‘02’ occupies one 
byte. 


Address of the number X‘02’ tn 
the module. 


At entry X‘03’ in static text module IDCTSALO is: 


Offset 
0 


Name 
TXT 


FLG 


FMTFLGS 


none 
FMTSPF 
FMTSPT 


none 
FMTFLGS 


none 
FMTSTL 


FMTSTO 


Contents 
71 


X*40' 


54 


Comments 


Length of the FMTLIST and the 
data that follows the FMTLIST. 


This static text entry is for data 
not a message or header. 


Identifies these 6 bytes as a 
spacing substructure. 


Unused. 
Space 2 lines. 


Space the lines relative to the last 
printed line. 


Unused 


Identifies these 10 bytes asa 
Static text substructure—the data 
is immediately after the 
FMTLIST. 


Unused. 


Number of bytes in 
C‘RECORDbNUMBER’. 


Number of bytes the data 
C'RECORDbNUMBER'’ ts from 
the first substructure in 
FMTLIST. 
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16 


2| 
22 


24 
26 
28 
30 


@® » 


33 
34 


36 


38 


@ « 


4\ 
42 
44 


45 


47 
4% 


50 
52 


54 


56 


58 
71 


Name 


FMTOCOL 


FMTOLEN 


FMTFLG 


none 


FMTRFNO 


none 


FMTOCOL 


FMTOLEN 


FMTCNVF 


FMTFLGS 


none 


FMTILEN 


FMTIOFF 


FMTOCOL 


FMTFLGS 


none 
FMTSPF 
FMTSPT 


none 


FMTFLGS 


none 


FMTILEN 


FMTIOFF 


FMTOCOL 


FMTOLEN 


FMTCNVF 


any 


any 
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X‘20° 


eS) 


X*1000° 


X*02' 


X*8000° 


C'RECORDbNUMBER’ 
C‘UNKNOWN’ 
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Comments 


The data 
C*'RECORDbNUMBER’ is to be 
printed in column I. 


0 indicates the output length ts 
the same as the input length for 
this data. 


Identifies these 12 bytes as an 
insert substructure. 


Unused. 


This number ts matched with the 
number in DARGINS tn order to 
get the address of the data X‘02’. 


Unused. 


The data X‘02’ is printed in 
column 15. 


The converted data Is to take up 3 
columns. 


The data X‘02’ is to be converted 
from byte to zoned decimal. 


Identifies these 8 bytes as a 
default text substructure. 


Unused. 


Number of bytes in the data 
C‘UNKNOWN‘. 


Number of bytes the data 
C'UNKNOWN‘ ts from the first 
substructure in FMT LIST. 


The data CUNKNOWN' is 
printed in column 15. 


Identifies these 6 bytes as a 
spacing substructure. 


Unused. 
Space 2 lines. 


The 2 lines are spaced relative to 
the last printed line. 


Unused. 


Identifies these 12 bytes as a 
block data substructure and the 
last substructure in FMTLIST. 


Unused. 


Zero means use the length of the 
block data in DARGILP. 


Start at the first byte of the block 
data. 

Start the block of data in output 
column I, 


Zero means print the block data 
until the input is exhausted no 
matter how many lines it takes. 


Convert the block of data from 
binary to printable hexadecimal. 


Data for the second substructure. 


Data for the default text substruc- 
ture. 
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Discussion: 
The first spacing substructure causes two lines to be spaced. 
The static text ‘RECORDbNUMBER’ is put in the next line. 


The insert number in the insert substructure is matched with the insert 
number in DARGLIST. The number X‘02’ from the module is converted to 
zoned decimal and placed in column 15. 


The next spacing substructure causes 2 more lines to be spaced. 


The block data substructure causes the data addressed by DARGDBP to be 
converted to printable hexadecimal until all the bytes in DARGILP have 
been converted and printed. If the module wants to print the same lines 
again but with a different record number and different block data, only 
DARGDBP, and DARGDTM need to be changed. If there had not been a 
reference number 4in DARGLIST the data CCUNKNOWN will be print- 
ed instead of the record number ‘002’. This allows more freedom for the 
module to vary the output just by changing insert reference numbers in the 
DARGLIST. 
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A Space 2 lines 


Put text 
RECORDBNUMBER 


in line 













there data 
to be inserted 
in line? 


YES Put in @ 
X‘02’ 







Put text 
‘UNKNOWN’ 
in line 






e Space 2 
lines 


Format all 


data in 
block 





End 
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Example III 
A module wants to space 3 lines then print repeating fields on different lines 
so the output would appear as: 


(2 blank lines) 


field A Kield B Xfield CI’ field DI field E! 
X'field C2’ field D2 field E2 


The module has in storage: 


e all the data to be printed 
¢ a DARGLIST 


¢ aFMTLIST 

The data ts: 

Offset Name Contents Comments 

0 A four bytes of EBCDIC data 

4 B four bytes of packed 

decimal data 

8 Ci two bytes of binary data 

10 DI two bytes of binary data 

12 El one byte of EBCDIC data 

13 C2 two bytes of binary data 

i) D2 two bytes of binary data 

17 E2 one byte of EBCDIC data 

The DARGLIST is: 

Offset Name Contents Comments 

0 DARGDBP A 

4 DARGRETP 0 The lines are to be printed rather 
than just formatted and returned 
to the module. 

8 DARGSTID 0 No static text module is used. 

12 DARGILP 18 Number of bytes from field A 
through field E2. 

14 DARGCNT l There is one repetition substruc- 
ture in the FMTLIST. 

16 DARGRETL 0 The length of the converted data 
is used as the number of bytes to 
print. 

19 none 0 Unused. 

18 DARGIND 0 Printing starts in column 
indicated in FMTLIST. 

20 DARGREP 7 Number that is matched with a 
repetition substructure in 
FMTLIST. 

Pep DARGPCT 2 The group of fields identified by 
repetition substructure 7 in 
FMTLIST is to be printed twice. 

The FMTLIST is: 

Offset Name Contents Comments 

A) 0 FMTFLGS X‘40° Identifies these 6 bytes as a 
spacing substructure. 

I none 0 Unused. 

FMTSPF 3 Space 3 lines. 

4 FMTSPT C'R’ Space the lines relative to the last 

printed line. 
none 0 Unused. 
© 6 FMTFLGS X10" Identifies these 12 bytes as a 


block data substructure. 
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Offset 





22 


24 


26 


28 


@® » 


31 
32 


34 


36 


39 
40 


42 
44 


46 


48 


@« 


S| 


Name 


none 
FMTILEN 
FMTIOFF 


FMTOCOL 
FMTOLEN 


FMTCNVF 
FMTFLGS 


none 
FMTILEN 


FMTIOFF 


FMTOCOL 


FMTOLEN 


FMTCNVF 


FMTFLGS 


none 


FMTRENO 


FMTRBC 


FMTRIO 


FMTFLGS 


none 
FMTILEN 


FMTIOFF 


FMTOCOL 


FMTOLEN 


FMTCNVF 


FMTFLGS 


none 
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X°10° 


X‘0880" 


X‘08’ 


X‘10° 
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X‘4000° 


X*10° 


Licensed Material — Property of IBM 


Comments 


Unused. 
Number of bytes in field A. 


Field A begins zero bytes from 
the block of data whose address is 
in DARGDBP. 


Print field A starting in column I. 


Number of bytes the converted 
field A occupies in the printed 
line. 


No conversion is done on field A. 


Identifies these 12 bytes asa 
block data substructure. 


Unused. 


Number of bytes of storage field 
B occupies. 


Field B starts 4 bytes from the 
block of data whose address is in 
DARGDBP. 


Print field B starting in column 
10. 


Number of bytes the converted 
field B occupies in the printed 
line. 


Convert field B from packed 
decimal to unpacked decimal 
with zero suppression. 


Identifies these 8 bytes asa 
replication substructure. 


Unused. 


Matched with a number in 
DARGLIST to find the number 
of iterations. 


The data identified in the next 3 
substructures is to be repeated. 


The number of bytes from field 
C1 to field C2 in storage. This 
number is added to the address of 
the first field each time the field is 
repeated. 


Identifies these 12 bytes as a 
block data substructure for fields 
Cl and C2. 


Unused. 


Number of bytes fields Cl and 
C2 each occupy in storage. 


Number of bytes from field A to 
field Cl. 


Print fields Cl and C2 starting in 
column 22. 


Number of bytes the converted 
fields Cl! and C2 each occupy in 
the printed line. 


Convert fields Cl and C2 from 
binary to printable hexadecimal 
enclosed in X ‘data’. 


Identifies these [2 bytes as a 
block data substructure for fields 
D1 and D2. 


Unused. 
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Offset Name Contents — Comments 

52 FMTILEN 2 Number of bytes fields DI and 
D2 each occupy in storage. 

54 FMTIOFF 10 Number of bytes from field A to 
field DI. 

56 FMTOCOL 31 Print fields DI and D2 starting in 
column 31. 

58 FMTOLEN 6 Number of bytes the converted 
fields DI and D2 each occupy in 
the printed line. 

60 FMTCNVF X‘1000° Convert fields DI and D2 from 
binary to printable decimal. 

°G] 62 FMTFLGS X‘90" identifies these 12 bytes as a 
block data substructure for fields 
El and E2 and the last substruc- 
ture in the FMTLIST 

63 none 0 Unused. 

64 FMTILEN I Number of bytes fields El and E2 
each occupy in storage. 

66 FMTIOFF 12 Number of bytes from field A to 
field El. 

68 FMTOCOL 39 Print fields El and E2 each 
starting in column 39, 

70 FMTOLEN I Number of bytes the converted 
fields El and E2 each occupy in 
the printed line. 

de FMTCNVF X‘0000° No conversion is done on fields 
El and E2. 

Discussion: 


The first spacing substructure causes 3 lines to be spaced. 


The block data substructures for fields A and B describe the location of A 
and B within the block addressed in DARGDBP. Field A is not converted. 
Field B is converted from packed decimal to zoned decimal and leading 
zeros are replaced with blanks. 


The replication substructure number is matched with an identification 
number in DARGREP. When a match is found, the DARGPCT immedi- 
ately after DARGREP tells how many times to repeat the substructures. If 
the module wants to use the same FMTLIST and print another group of 
fields C, D, and E, only DARGPCT needs to be changed. The replication 
substructure tells how many substructures to repeat and an offset that is 
used to find the group of fields being repeated. On the first repetition the 
offset is not used, on the second it is added once; on the third repetition it is 
added twice. 


The next substructure describe Cl and C2. On the first repetition the value 
in FMTIOFF is added to the value in DARGDBP to find field C1. To find 
field C2, FMTIOFF and FMTRIO in the repetition substructure are added 
to DARGDBP. Each time a group of substructures is repeated a new line is 
printed because the output columns for each substructure do not change. 
For example, in order to print both Cl and C2 in column 22, a new line 
must be printed. Both Cl and C2 are converted to printable hexadecimal 
preceded by X‘ and followed by a single quote. 


Fields D! and D2 are described by the next substructure. DI and D2 are 
converted to printable decimal. 


The substructure for fields El and E2 is also the end of FMTLIST. El and 
E2 are converted. 
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After El is formatted, the three substructures following the repetition 
substructure are repeated. A new line is started because FMTOCOL keeps 
the output the columns the same each time a field is printed. Fields C2, D2, 
and E2 are put in the next line. The FMTLIST is finished after E2 is print- 
ed. 


Start 


A) Space 3 lines 


B Format field A 


On the first repetition, Cl, Bl, and El 
are formatted in the same line as A and B. 
On the second repetition, C2, D2 and E2 
are formatted in the next line. 

This is because the same block data 
substructure—therefore the same output 
column-—is used for each repetition 

of a field. 


Format field B 


in same line 
as A 





















Format 
El or E2 


Format 
D1 or D2 


Format 
Cl or C2 






Repetitions 
done? 


YES 


Obtaining a Dump For a Text Processor Problem 


If you do not have an system dump within the Text Processor routines or an 
ABORT snap dump within the Text Processor, you can use the Test option 
to obtain a dump. You may want to obtain a dump within the routine that 
invoked the Text Processor or within the Text Processor itself. 


The Phase or CSECT to Dump Points Cross Reference contains all the 
dump points within the processor; you can specify these dump points on the 
FULL option of the TEST keyword to obtain a full partition dump. 


The Text Processor has dump points before and after it converts data to 
printable form. You should use these dump points if there is an error in 
converting the data. 
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How to Find Text Processor Argument Lists 
If you suspect a problem within the Text Processor, the two structures you 
should locate in a dump are the Print Control Table (PCT) and the Dynam- 
ic Data Argument List (DARGLIST). The PCT and the DARGLIST are 
described in the section “Data Areas” in this book. The eighth word of the 
GDT contains the address of the PCT; the address of the DARGLIST is the 
third parameter passed to IDCTPOI for a print request (UPRINT macro). 


Two other structures that you may find helpful to locate in a dump are the 
queue of format structures and the print buffer. 


Figure 6-9 shows the queue of format structures maintained by the Text 
Processor. There is an entry in the queue for each format structure that has 
been used by the current function. Each entry in the queue contains the 
four-byte text structure ID specified in the DARGLIST. The first three 
bytes contain the last three characters of the text-structure phase name; the 
fourth byte contains the entry number of the format structure within the 
text-structure phase. 


Figure 6-10 shows the print buffer maintained by the Text Processor. It 
contains the records, other than messages, that have not been printed. The 
records to be printed are kept in the print buffer until the buffer becomes 
full or a message must be printed. The primary and secondary PCTs contain 
the address of the first record in the buffer and the address of the next empty 
space in the buffer. If both addresses are equal, the buffer is empty. 








28(1C) 


GDTTPH 






Secondary PCT 





Primary PCT 


PCT 1 
PCTSPP 


Chain of static text entries 
after 3 UPRINTs referring to 
different static text entries. 


8 (8) 


Static Text Entry 
























atic T . 
bes et Es 
UGPOOL ID Static Text Entry 
pee ee 
tree eer] [ee [emi 
Pes... soe 
UGPOOL ID Static Text Entry 
atic Te , 
Ve et ee 


Figure 6-9, Text Processor Format Structure Queue 
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GDT 


| Primary PCT 


PCT I 
coTTPA Fa aa 
PCTSPP 








Secondary PCT 


PCr 2 


PCTBUF 


PCTBNL 













28 (1C) 


104 (68) 
— 
108 (6C) 












Print Buffer 
| Record 3 (continued) ge 





Records in buffer after 5 UPRINT macros 
have been issued. No messages are kept 
in buffer. 


Each record has the following format: 


Length of sees 

Entire Record Contro 

(2 Bytes) Character 
(1 Byte) 


igure 6-10. Text Processor Print Buffer 


Debugging an I/O Problem 
There may be an [/O problem within system I/O routines or within Access 
Method Services ifan ABORT condition occurs in the I/O Adapter or if a 
system error occurs within the system I/O routines. To determine whether 
the problem exists in the routines that invoke the I/O Adapter, in the I/O 
Adapter itself, or in the system I/O routines, you must examine the argu- 
ment lists passed between the I/O Adapter and the invoking routines, and 
the 1/O Adapter and the system I/O routines. 


This section explains how to obtain a dump that contains the I/O argument 
lists and how to find the argument lists in a dump. 


Obtaining a Dump for an I/O Problem 
If you do not have a system dump within system I/O routines or an ABORT 
PDUMP within the I/O Adapter, you can use the Test option to obtain a 
dump. You may want to obtain a dump within the routine that invoked the 
1/O Adapter or within the 1/O Adapter itself. 


The Phase or CSECT to Dump Points Cross Reference contains all the 
dump points within the processor; you can specify these dump points on the 
FULL option of the TEST keyword to obtain a full partition dump. 


The I/O Adapter has dump points before and after it issues the OPEN 
macro (dump points IO1LO and 1020) and before it issues the CLOSE macro 
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(dump point IOIC). You should use these dump points if there is an error 
opening or closing data sets. The I/O Adapter has a dump point (IOVR) 
after issuing a VSAM I/O request which returns a non-zero return code. 
You should use this dump point if you wish to obtain a dump ina VSAM 
I/O error situation. 


How to Find I/O Argument Lists 


Open Argument Lists 


The Input/Output Communications Structure (IOCSTR), which is con- 
structed for each data set that has been opened, contains pointers to most of 
the control blocks used by the system I/O routines. The IOCSTR is also the 
argument list that is passed between the 1/O Adapter and the routines that 
invoke the I/O Adapter, except for the initial open request. Thus, once you 
find the LOCSTR, you can find most of the other arguments passed between 
the 1/O Adapter and other routines. The section “Data Areas” in this book 
explains the format of the IOCSTR. 


Figure 6-11 shows the chain of IOCSTRs constructed for all opened data 
sets; however, the data sets may not have been opened successfully. The I/O 
Adapter historical area contains a pointer to the start of the chain. 


You can find the address of the IOCSTR for a particular I/O request by 
finding the parameter list passed to IDCIOO1 by the invoking routine. 
Register | of the registers saved by IDCIOO1! contains the address of a 
parameter list. The second word of the parameter list contains the address 
of the IOCSTR. The third, fourth, and fifth words may also contain ad- 
dresses of additional IOCSTRs. 


Figure 6-12 shows how the I/O control blocks are connected before an 
OPEN macro is issued. The IOCSTR addresses can be found from the 
IOCSTR chain as shown in Figure 6-9. The IOCSBLT table, which con- 
tains pointers to the IOCSTRs for the data sets being opened, can be found 
at location IOCSBLT in IDCIOOI’s automatic storage area. The OPEN- 
LIST table, which contains pointers to the DT Fs and ACBs for the data sets 
being opened, can be found at location OPENLIST in IDCIOOI’s automatic 
storage area. 


In a system dump within the system open routine, register 0 points to a word 
that contains either the address of the ACB or the address of the DTF. 


UGET and UPUT Argument Lists 


This section contains some examples of input and output from the UGET 
and UPUT macros. These examples may be helpful in determining whether 
the IOCSTR and records for a UPUT request have been passed correctly to 
the I/O Adapter, and whether the IOCSTR and records for a UGET request 
have been returned correctly by the I1/O Adapter. 


Figure 6-13 shows the IOCSTRs and records passed to the I/O Adapter via 
a UPUT macro. 


Figure 6-14 shows the IOCSTRs and data returned by the I/O Adapter after 
a UGET macro is processed. 
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I/O Adapter 
GDT Historical Area 


| J 0 (0)} IODIOC 


36 (24) | GDTIOH T 7 


First 
IOCSTR 







identify the data set. 


Second 
IOCSTR 
Beene Wy ee UGPOOL ID - the last two numbers 
identify the data set. 













IOCDSN 
IOCEXT 


IOCSEX 


0 means this is 


File ID 






File ID 


IOCSTR chain after two UOPEN 
macros have been issued. 


Figure 6-11. LOCSTR Chain 
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IOCSTR ACB 


Wa IOCDSN 
IOCEXT 


IOCSEX 
IOCCBA 

























VSAM Exit List 





0 (0) 






IOCXAD 


16 (10) 





IOCSBLT File ID : OPENLIST 
ise IOCSTR DTF ae 


20 (14)7 IOCDSN 






44(2C)4 IOCEXT 


IOCSEX 
IOCCBA 














Access 


Module 


0 (0) 







File ID 


Two data sets are to be opened, one 
VSAM and one non-VSAM data set. 


Figure 6-12. 1/O Control Blocks Before OPEN 
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Example 1. VSAM or NonVSAM Data Set — Single Record Passed via UPUT 


IOCSTR 


1 . 


The data may have an 


0 indicates there are embedded key. 
no records stacked. 





Example 2. VSAM or NonVSAM Data Set — Multiple Records Passed via UPUT 














IOCSTR 
0 [locoa_____ 
4 (4) ee eee omens 
LifData —fL2} Data [3] Data] 
38 (16) 3 indicates there are 
three records stacked. The data may have 


an embedded key. 


Figure 6-13. Input to UPUT Macro 
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Example 1. VSAM Data Set with Address Processing 
IOCSTR 


IOCDAD 













0 (0) 
4 (4) 






Logical Record 





See, 





































































28 (1C) TIOCRBA This field contains the Length 
Reet ae el relative byte address 
of logical record. 
Example 2. VSAM Data Set with Control Interval Processing 
LOCSTR 
0 (0) | IOCDAD 
4 (4) Control Interval 
eee YR TIO 
I a oe al This field contains the Length 
28 (IC) | JOCRBA relative byte address 
of the control interval. 
Example 3. VSAM Data Set with Keyed Processing 
IOCSTR 
010) | LOCDAD 
4 (4) | Length Data The key may be 
32 (20) | IOCKYA Length 
Example 4. NonVSAM, NonISAM Data Set 
IOCSTR 
Q0(O) | TOCDAD 
are reconstructed. 
SE, fA 
Length 
Example 5. ISAM Data Set with Fixed Record Formal 
IOCSTR 
0(0) | lIOCDAD 
32 (20) | IOCKYA 
Example6. ISAM Data Set with Fix-Blocked Record Format 
IOCSTR 
() (0) } IOCDAD 
4 (4) Physical Blok The key must be before 
the physical block. 
32 (20) 





Length 


Figure 6-14. Output from UGET Macro 
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text structure. 
Message STID 
IDCOOOII UVO-! 
IDC0002I UVO0-2 
IDCO00SI UV0-5 
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The following list shows all the messages printed by the processor. For each 
message, the following information is listed: the text-structure identifier 
used internally by the processor to identify the message; the module that 
causes the message to be printed; the procedure within that module that 
detects the situation that causes the message to be printed; and the situation 
that causes the message to be printed. After the text is the entry within the 


Messages to Module Cross Reference 


Module 
IDCALOI 


IDCBIOL 


IDCCLOI 


IDCDEO! 


IDCDLO} 


IDCLCO! 


IDCLROI 


IDCMPOlI 


IDCPMOI 


IDCPROI 


IDCRCOL 


IDCRMOI 


IDCRPOI 


IDCRSO! 


IDCVYOI 


IDCXPOI 


IDCEX03 


IDCPROI 
IDCRPO1 


Procedure 
IDCALOI 


TERMPROC 


IDCCLOI 


IDCDEOI 


IDCDLOI 


IDCLCOl 


CLEANUP 


IDCMPOlI 


IDCPMOI 


IDCPROI 


EXITTHE 


IDCRMOlI 


IDCRPOlI 


WRAPUP 


IDCVYOI 


IDCXP0! 


IDCEX03 


IDCPROI 
IDCRPOlI 


Situation That Caused Message 


Function was completed without a 
severe error. 


Function was completed without an 
error or without a severe error in 
processing the base cluster. 


Function will CANCEL Access 
Method Services as requested. 


Function was completed without a 
severe error. 


Function was completed without a 
severe error, 


Function was completed without a 
severe error. All or part of the de- 
sired catalog listing was generated. 


Function was completed without a 
severe error. 


Function was completed without a 
severe error. 


Function was completed without a 
severe error. 


Function was completed without 
error, or (1) an end-of-file was 
reached in the input data set before 
the ending delimiter specified by 
the user, or (2) a recoverable I/O 
error occurred while retrieving or 
printing a record, or (3) an error oc- 
curred closing data sets. 


Function was completed without a 
severe error. 


Function was completed without a 
severe error. 


Function was completed without 
error, or (1) an end-of-file was 
reached in the input data set before 
the ending delimiter specified by 
the user, or (2) a recoverable I/O 
error occurred while copying a re- 
cord, or (3) an error occurred clos- 
ing data sets. 


Function was completed without a 
severe error. 


Function was completed without a 
severe error. 


Function was completed without a 
severe error. 


Access Method Services completed 
processing. 


Printing of records is completed. 


Copying of records is completed. 
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Messages to Module Cross Reference 


Message 
IDCO177! 


IDC02041 


IDCO2061 
IDC0222I 


1DC02331 


1DC02341 


IDC02961 


IDCOS5081 


IDCO5091 


IDCO510! 
IDCOS111 


IDCOS5121 
IDC05201 


IDC05261 


IDCO5501 


STID 
DEO0-28 


R10-5 


R10-7 


R10-23 


R10-34 


R10-35 


DEO-31 


DE0-9 


DEO-10 


DEO-11 


DEO-12 


DEO-13 
DEO-21 


ALO-1 


DLO-! 


Module 
IDCMPOl 


IDCRMOlI 


IDCDEO! 


IDCRI03 


IDCRIOI 


IDCRIOI 


IDCRIO! 


IDCRIOL 


IDCDEO! 


IDCDEOI 


IDCMPOl 


IDCRMO|l 


IDCDEO1 


IDCMPOlI 


IDCRMO! 


IDCDEOI 


IDCDEOl! 


IDCDEO! 
IDCDEOI 


IDCMPOI 


IDCRMOl! 


IDCALOlI 


IDCDLO!1 


Procedure 


CLUSPROC 


CLUSPROC 


IDCDEOI! 


IDCRIO3 


SCANSEP 


NXTFIELD 


SCANCMD 


INREPEAT 


SCANCMD 


IDCDEO!I 


IDCDEO1 


CTLGPROC 


CTLGPROC 


IDCDEOI 


CTLGPROC 


CTLGPROC 


IDCDEO! 


IDCDEO! 


IDCDEOI 
IDCDEO|1 


CLUSPROC 


CLUSPROC 


IDCALOI 


CATCALL 
MORESP 
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Situation That Caused Message 


IMPORT has successfully defined a 
unique data set on a fixed block de- 
vice and is printing the actual 
blocks allocated on each volume. 


IMPORTRA has successfully 
defined a unique data set on a fixed 
block device and is printing the ac- 
tual blocks allocated on each vol- 
ume, 


Possible rounding of fixed block 
extents. Actual extents are printed. 


The preceding command was 
scanned for syntax-checking pur- 
poses only. 

An extra comma was found 
between parameters. 


A semicolon was found within a 
quoted constant. 


Too many closing parentheses were 
found at the end of a command or 
subparameter list. 


Too few parentheses were found at 
the end of a command. 


Too few parentheses were found at 
the end of a command. 


A default model had been success- 
fully defined. 


Define of the data set failed due to 
a space allocation error. 


Define of the data set being 
imported failed due to a space allo- 
cation error, 


Define of the data set being 
imported failed due to a space allo- 
cation error. 


Define of the data set failed due to 
a space allocation error. 


Define of the data set being 
imported failed due to a space allo- 
cation error. 


Define of the data set being 
imported failed due to a space allo- 
cation error. 


Define of the VSAM catalog failed 
due to a space allocation error. 


Define of the data space failed due 
to a space allocation error. 


Data and index name generation. 


The message identifies the recovery 
volume serial number. 


The message identifies the recovery 
volume serial number. 


The message identifies the recovery 
volume serial number. 


Alter of the data object is complet- 
ed. 


The catalog returned the name 
and type of a successfully deleted 
entry in the catalog work area. 
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Message 


IDCOS5S11 


IDCO5551 


IDCOS7I1I 
1DC05941 
IDC06031 


1DC06041 


IDC06221 


1DC06261 


IDC06521 


IDC06651 


IDC0669] 


1DC0670I 


1DC06721 
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STID 


DLO-8 


DLO-5 


PRO-19 
XPO-5 
MPO- 11 


MPO- 12 


M P0-22 


M PO-26 


BIO-13 


LRI-16 


RCO-14 


RCO-15 


RCO-17 


Module 
IDCMPOlI 


IDCRMOI 


IDCXPOI 


IDCDLOI 


IDCXPO1 


IDCDLOI 


IDCRPOI 


IDCXP0O! 


IDCMPO}1 


IDCMPOlI 


IDCRMOI 


IDCRMOI 


IDCRMOI 


IDCBIOL 


IDCLROI 


IDCRCOL 


IDCRCOI 


IDCRCOI 


Procedure 


DELTPROC 


DELTPROC 


DELTPROC 


DELTPROC 


DELTPROC 
MORESP 


IDCDLO! 


DELTPROC 
MORESP 


CATCALL 


IDCRPOI 


CLUSPROC 


CLUSPROC 


CLUSPROC 


IDCRMOI! 


UCATPROC 


CLUSPROC 
UCATPROC 
NVSMPROC 
FINPROC 


CLENCRA 


IDCRCOI 


EXPORTDR 


CKCATNM 
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Situation That Caused Message 


The object with the same name as 
the object being imported was de- 
leted successfully from the catalog. 


The object being imported was 
deleted successfully from the cata- 
log after an error occurred copying 
data into the object. 


The object with the same name as 
the object being imported was de- 
leted successfully from the catalog. 


The object being imported was 
deleted successfully from the catlog 
after an error occurred copying 
data into the object. 


The object being exported was 
deleted successfully from the 
catalog. 


A catalog object was not deleted 
because of a catalog locate error, a 
command parameter error, or a cat- 
alog delete error. 


The object being exported could 
not be deleted from the catalog. 
The catalog return code indicates 
the reason. 


The volume entry was not deleted 
although empty space on the vol- 

ume was deleted successfully. The 
catalog return code was 160. 


Reloading of a catalog was 
initiated. 


The portable data set was created 
successfully. 


The user catalog was connected 
successfully. 


The first record of the portable data 
set contained the timestamp written 
at the time of export. 


The first record of a group of 
associated objects on the portable 
data set contained the timestamp 
written at the time of the export. 


An existing duplicate catalog entry 
was deleted to allow a user catalog 
entry to be imported. 


The object named has been 
successfully imported. 


The alternate was built with no 
errors. 


Informational message stating the 
number of entries that did not com- 
pare. 


Informational message stating the 
CRA from which the entries are 
processed. 


Informational message stating that 
data set is on portability data set. 
Informational message stating the 
catalog name for which CRA’s are 
being processed. 


Licensed Material — Property of IBM 
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Message 


1DC06741 


1DC0676! 


IDC0874] 


1DC08771 


IDCO88s8l 


1DC09221 


IDC0923! 


IDC09241 
IDC09251 


IDC1172! 


IDC12931 


STID 
RCO0-20 


RCO-5 


LRI-5 


LRI-8 


RCO0-23 


EX0-5 


EX0-6 


EX0-7 


EX0-8 


DEO0-25 


UVO-13 


Module 
IDCRCO! 


IDCMPO! 


IDCRMOIL 


IDCRCOI 


IDCLROI 


IDCLROI 


IDCRCOI 


IDCDBO02 


IDCDB02 


IDCDBOI 


IDCDBOI 


IDCDEO! 


IDCDEOI 


IDCDE02 


IDCMPO! 


IDCRMOl! 


Procedure 


EXPORTDR 


SYNCH 


DUPNAMCK 


CKNAMES 


DVOLCHK 


DVOLCHK 


TERM 


INTSORT 


CLENCRA 


EXPORTDR 


ITEMDUMP 


ARRAYHDR 


IDCDBOI 


IDCDBO! 


INTGCHK 


INTGCHK 


ALLCPROC 


DVOLCHK 


DVOLCHK 
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Situation That Caused Message 


Secondary message containing the 
object name for which the export 
driver was called. 


Object named was invalid in the 
CRA in comparison with the data 
set. 


Object name appeared twice in the 
CRA. 


Object named was not of a type 
DOS supports, or isa SAM ESDS 
which cannot be exported. 


DEFAULTVOLUMES parameter 
was invalidly specified or ignored 
due to VOLUMES parameter over- 
ride. 


DEFAULTVOLUMES parameter 
was invalidly specified or ignored 
due to VOLUMES parameter over- 
ride. 


Informational message stating that 
the portability data set was created 
successfully. 


Space could not be obtained for the 
sort table. The objects are printed 
first in, first out. 


Informational message stating the 
number of objects that did not com- 
pare. 


Informational message stating that 
the exported entry contained no 
data. 


An invalid dump item was specified 
in the dump argument list. 


Invalid array header parameters 
were specified in the dump argu- 
ment list. 


The dump routine was invoked 
through a UDUMP macro. 


A dump was requested through a 
UDUMP macro. 


USECLASS was specified at the 
data or index level, but was ignored 
because it was not accompanied by 
space parameters (CYLINDERS, 
for example) at the same level. 


DEFAULTVOLUMES parameter 
was explicitly specified but was ov- 
erridden by explicit specification of 
the VOLUMES parameter at an- 
other component level. 


ORIGIN was specified along with 
the DEDICATE parameter. ORI- 
GIN was ignored. 


DEFAULTVOLUMES parameter 
was specified but was overridden 
by specifications of the VOLUMES 
parameter at another component 
level. 


DEFAULTVOLUMES parameter 
was specified but was overridden 
by specifications of the VOLUMES 
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parameter at another component 
level. 


IDC 12941 RCO-10 IDCRCO!L CKNAMES SAM ESDS encountered in CRA 
and bypassed for export because 
the SAM ESDS feature is not in- 
stalled or because NOCIFORMAT 
SAM ESDS cannot be exported. 


IDC 13291 100-49 IDCIOO! IDCIOCO Two or more segments of a spanned 
record are not at the same update 
level. 


IDC15021 DE0-5 IDCDE02 ©>MODELPRC Security information was sup- 
pressed when a model object was 
retrieved from the catalog. 


IDC 15431 ALO-18 IDCALOL CHECKPRC New KEY/RECORDSIZE values 
equal to old default values. 


IDC15441 ALO-19 IDCALOL CHECKPRC New KEY/RECORDSIZE values 
equal to old non-default values. 


IDCIS6I1 LC 1-2 IDCLCO2 ANSVPROC The UGPOOL request for a larger 
catalog work area failed. More 
space was required to process clus- 
ter associations. 


LOCPROC The UGPOOL request for a larger 
catalog work area failed. A catalog 
entry required more space. 


CDIPROC The UGPOOL request for a larger 
catalog work area failed. More 
space was required for block calcu- 
lations. 


VPROC The UGPOOL request for a larger 
catalog work area failed. More 
space was required to convert 
SPACEMAP to blocks. 


IDC 1562! LC 1-3 IDCLCO!L ENTPROC Only space entries were requested; 
however, an entry in the entry list is 
greater than six characters. 


IDC 15641 LCI-5 IDCLCO! RTEPROC Anentry retrieved from the catalog 
is not a type that can be listed. 


IDCI565] LC1-6 IDCLCOL ENTPROC An entry retrieved from the catalog 
and specified in the user’s entry list 
is not one of the types requested by 
the user. 


IDC 15661 LC 1-8 IDCLCOL ENTPROC Either (1) the correct password was 
not supplied for a cluster entry and 
so the data and index association 
information could not be processed, 
or (2) the correct password was not 
supplied for an entry and the user 
requested more information than 
merely entry names, or (3) another 
type of catalog locate error occur- 
red, 


GNXTPROC Either the correct password was not 
supplied for an entry and the user 
requested more information than 
merely entry names, or another 
type of catalog locate error occur- 
red. 


RTEPROC Either (1) the correct password was 
not supplied for a cluster entry, 
and, even though the user requested 
only entry names, the names of the 
data and index association were not 
returned by the catalog, or (2) the 
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Message 


IDC 15671 


IDC15741 


IDC1S75!1 


IDC15951 


IDC16141 


IDC 16271 


IDC 16441 


IDC 16451 


IDC 16461 


IDC 16531 


IDC 16611 


STID 


LCI-9 


PRO-22 


PRO-23 


XPO-6 


M PO-7 


M PO0-25 


BI0-5 


BI0-17 


BI0-6 
B10-8 


BI0-7 


BI0-14 


RC0-6 


Module 


IDCLCOL 


IDCLC02 


IDCRPOI 


IDCRPOlI 


IDCXPOI 


IDCMPOl 


IDCMPO1 


IDCBIOI 


IDCBIO! 


IDCBIOI 


IDCBIOI 


IDCRCOI 


Procedure 


RTEPROC 


CDIPROC 


VPROC 


CATCOMP 


CATCOMP 


CLUSPROC 


CLUSPROC 


DUPNPROC 


SORTPROC 


BLDPROC 


BLDPROC 


FINPROC 


EXPORTDR 
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Situation That Caused Message 


correct password was not supplied 
for a data or index entry associated 
with a cluster entry, and field in- 
formation other than entry names 
was not returned by the catalog, or 
(3) a non-supported entry type was 
returned from the catalog. 


Retrieval of a data or index entry 
associated with a cluster entry was 
attempted, using the control inter- 
val number of the associated entry 
contained in the cluster entry. How- 
ever, the entry could not be found 
in the catalog. 


Retrievel of a data or index entry 
associated with a cluster entry was 
attempted, using the control inter- 
val number of the associated entry 
contained in the cluster entry. How- 
ever, the entry could not be found 
in the catalog. 


Retrieval of the data set names 
associated with a data space was at- 
tempted using the control interval 
number of the associated entry con- 
tained in the data space. However, 
the entry could not be found in the 
catalog. 


More than 100 true name entries 
failed a comparison test during cat- 
alog reload. Processing continues 
but comparison does not. 


A true name record existed on a 
backup or target catalog without a 
corresponding record on the bac- 
kup or target catalog. 


Passwords were suppressed when 
the object to be exported was re- 
trieved from the catalog. 


The object name specified by the 
user does not match the object 
names found in the portable data 
set. 


The OBJECTS parameter was 
specified for a component being 
imported into an empty data set. 


The base cluster record identified 
in the message was too short to 
contain the entire alternate key. 


Multiple occurrances of the same 
alternate key have been encoun- 
tered in building an alternate index 
defined with the UNIQUEKEY at- 
tribute. 


The alternate index record 
identified in the message was too 
short to contain all the base cluster 
pointers. 


The alternate index was built but 
nonterminating errors were en- 
countered, 


Informational message stating that 
the data set exported was out-of- 
synch. 
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IDC 16621 


IDC 16631 


IDC 16641 


IDC 16671 


IDC16781 


IDC 16791 


[DC18701 


IDCI87t1 


IDCI8751 


IDC 18781 
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RCOQ-7 


RCO-8 


RCO-9 


RCO-12 


RCO-2 


RC0-4 


LRI-l 


LR1I-2 


LRI-15 


LRI-9 


IDCRCOI 


IDCRCO2 


IDCRCO02 


IDCRCOI 


IDCRCO! 


IDCRCOI 


IDCLROI 


IDCLRO2 


IDCLROI 


IDCLRO2 


IDCLROI 


IDCLRO2 


IDCLROI 


EXPORTDR 


CLUSPROC 


ALISPROC 


ASOCPROC 


NVSMPROC 


OBJVOLCK 


EXPORTDR 


EXPORTDR 


GETPRT 


IDCLRO02 


GETPRT 


IDCLRO2 


TCICTCR 


IDCLRO2 


CATOPEN 


CKEYRNG 


CRAOPEN 


CTTBLD 


GETPRT 


INTASOC 


Informational message stating that 
the data set was not exported and 
was out-of-synch. 


Catalog field could not be located 
for a path to a VSAM cluster. 


Catalog fteld could not be located 
for an OS/VS2 alias for a 
nonVSAM file or OS/VS2 genera- 
tion data group. 


Catalog field could not be located 
for an OS/VS2 alias fora 
nonVSAM file. 


An OS/VS catalog has been 
connected to a DOS system and 
contains nonsupported objects. 


Volumes are out of synch because 
data set is not on both volumes. 


An error occurred while processing 
an association for an object being 
exported. 


The timestamps or CI of a multivo- 
lume data set were not equal. 


An 1/O error occurred while 
reading the CRA. 


An 1/O error occurred while 
reading the CRA. 


An 1|/O error occurred while 
reading the catalog. 


An 1[/O error occurred while 
reading the catalog. 


The CI from the catalog record 
could not be found in the CTT ta- 
ble therefore it could not be trans- 
lated. 


The CI from the catalog record 
could not be found in the CCT ta- 
ble therefore it could not be trans- 
lated. 


IDCRCO04 encountered an error 
while searching for the catalog 
name in the cluster record of the 
catalog. 


IDCRC04 encountered an error 
while searching for the high key 
value in a given CRA record. 


IDCRCO04 encountered an error 
while searching for the owning cat- 
alog name in the CRA record. 


IDCRC04 encountered an error 
while searching for the entry type 
of the catalog Cl in the CRA re- 
cord. 


IDCRC04 encountered an error 
while searching for the entry type 
or the entry name in the CRA re- 
cord, 


IDCRCO04 encountered an error 


while searching for the associated 
entry type or entry name fields in 
the CRA records. 
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Message 


IDC18781 


IDC 1880! 


IDC 18851 


IDC1887] 


IDC1927] 
IDC20351 


IDC22851 


IDC25521 


IDC25531 


1DC25561) 


IDC25631 


STID 


LRI-9 


LRI-1t1 


LR1-17 


RCO0-22 


EX0-12 
TP6-3 


RC0-24 


DLO-2 


DLO-3 


DLO-6, 
DLO-7 © 


LC 1-4 


Module 


IDCLROI 


IDCLRO! 


IDCLROI 


IDCRCOI 


IDCPMO! 
IDCT P06 


IDCRCOI 


IDCDLOI 


IDCDLO1 


IDCDLO! 


IDCLC02 


IDCLCOI 


Procedure 


INTSORT 


INTVEXT 


PRTCMP 


PRTDMP 


PRTOJVL 


PRTVOL 


PRTVOL 


PRTMCWD 


SCANCRA 


TIMESTAMP 


MARGPARM 


IDCTP06 


IDCRCO! 


PARAMCHK 


PARAMCHK 


MORESP 


AUPROC 


VPROC 


INITPROC 
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Situation That Caused Message 


IDCRC04 encountered an error 
while searching for the name ina 
given CRA record. 


IDCRC04 encountered an error 
while searching for the extension 
pointer in a given CRA record. 


IDCRC04 encountered an error 
while searching for the used length 
field in a given CRA record. 


I[DCRC04 encountered an error 
while searching for the used length 
field in a given CRA record. 


IDCRC0O4 encountered an error 
while searching for the volume in- 
formation or high key value ina 
given CRA record. 


IDCRC04 encountered an error 
while searching for the volume ti- 
mestamp information in a given 
catalog or CRA record. 


Timestamp for the format-4 record 
could not be read for the CRA vol- 
ume. 


IDCRC04 encountered an error 
while searching for mismatched 
fields in a given CRA record. The 
CRA record had previously been 
read and had indicated that mis- 
matches existed. 


1/O error encountered ona CRA 
record. 

Volume timestamp could not be 
obtained. 


Margin values specified are invalid. 


An error was detected in the 
information transmitted in the error 
conversion table when attempting 
to convert a numeric error code to a 
prose message. 


The name list built for this CRA is 
empty. No other errors occurred. 
The CRA has nothing to export. 


The type of the entry to be deleted 
was retrieved from the catalog, but 
the type is not one the user is al- 
lowed to delete. 


The type of the entry to be deleted 

was retrieved from the catalog, but 
the type conflicts with the erase op- 
tion. 


No storage is available for a larger 
catalog work area. 


The allocation request conflicts 
with a nonVSAM or user catalog 
entry specified in the entry list. 


The allocation request conflicts 
with a space (volume) entry speci- 
fied in the entry list. 


Either the allocation request 
conflicts with the type specification 
of cluster, alternate index, path, 
space, nonVSAM, or user catalog, 
or the volume request conflicts with 
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Module 


Message 


IDC2616l 


IDC26181 


[DC2620I 


IDC 26211 


1DC26401 


IDC26421 


1DC26471 


1DC26481 


IDC2649I 


1DC26501 


IDC26511 


IDC26541 


IDC26551 


IDC26561 


1DC26601 


1DC26661 


IDC 26681 
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STID 


M PO-16 


MPO-18 


M P0-20 


MPO-21 


B10-! 


BI0-3 


BI0-8 


BI0-9 


BI0-10 


BIO-11 


BIO-12 


BIO-15 


BIO-16 


BIO-19 


RCO0-3 


RCO-11 


RCO-13 


IDCMPO! 
IDCRMO! 
IDCM PO! 


IDCRMOI 


IDCM PO! 


IDCRMOI! 


IDCBIOI 


IDCBIOL 


IDCBIOI 


IDCBIOI 


IDCBIO! 


IDCBI0! 


IDCBIO! 


IDCBIO! 


IDCBIOL 


IDCBIOI 


IDCRCO! 


IDCRC02 


IDCRCO1 


IDCRCOI 


Procedure 


CLUSPROC 
CLUSPROC 
CLUSPROC 


ALISPROC 


GDGPROC 


FVTPROC 


FVTPROC 


IDCRMOI 


LOCPROC 


LOCPROC 


INITPROC 
JCPROC 


FINPROC 
DEFPROC 


DEFPROC 


DEFPROC 


FINPROC 


CATPROC 


CATPROC 


CKNAMES 


CLUSPROC 


NVSMPROC 


SYNCH 


OBJVOLCK 
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the type specification of cluster, al- 
ternate index or path. 


A path import operation failed. 
A path import operation failed. 


An invalid object's subparameter 
was found. 


A recovery portable data set being 
imported contains objects not de- 
finable in DOS/VSE. 


A recovery portable data set being 
imported contains objects not de- 
finable in DOS/VSE. 


A recovery portable data set being 
imported contains a SAM ESDS. 
The SAM ESDS feature is not in- 
stalled and the data set cannot be 
imported. 


A recovery portable data set being 
imported contains a SAM ESDS. 
The SAM ESDS feature ts not in- 
stalled and the data set cannot be 
imported. 


The object named could not be 
imported. 


The file identified via OUTFILE is 


not an alternate index. 


The alternate index identified in 
the message is not related to the 
base cluster identified via INFILE. 


Storage was not available to obtain 
buffers and work areas. 


DLBL statements for sort work 
files are either missing or in error. 


A sort work area was obtained 
smaller than that required and job 
control for sort work files was miss- 
ing or in error. 


An internal sort could not be 
completed and job control for sort 
work files was missing or in error. 


Define of sort work files failed. 


The alternate index was not built 
due to severe errors. 


Catalog information was not 
returned for a locate request. 


A VSAM catalog locate failed with 
a nonzero return code. 


The object named is from an 
OS/VS volume and ts of a type that 
is not supported in DOS. 


The object named is from an 
OS/VS volume and contains asso- 
ciations not supported in DOS. 


The object named was not a 
nonVSAM data set or a user cata- 
log. 


The selected entry was not found in 
the selected CRA. 


A required volume was not 
supplied in the CRA keyword. 
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Message 


1DC26711 


[DC2673I 


IDC26751 


1DC26771 


1DC28721 


IDC28731 


IDC2876l 


IDC2879] 


IDC28821 


IDC28841 


IDC2886l 


IDC29501 


IDC29511 


IDC29521 


IDC29531 
IDC29541 


STID 
RCO-16 


RCO0-19 


RCO0-21 


RCO-| 


LRI-3 


LRI-4 


LR1-6 


LRI-10 


LRI-13 


LRI-7 


RCO-18 


TPI-1 


TPI-2 


TPI-3 


TP 1-4 
TP 1-6 


Module 
IDCRCOI 


IDCRCOI 


IDCLROI 


IDCRCOI 


IDCRCOI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCLROI 


IDCRCOI 


IDCT POI 


IDCTPOI 


IDCTPOl 


IDCTPOI 
IDCTPOS5 


Procedure 


CKCATNM 


BUILDCRV 


CRAOPEN 


DUPNAMCK 


EXPORTDR 


CRAOPEN 


CATOPEN 


CRAOPEN 


CRAOPEN 


CATOPEN 


CRAOPEN 


CTTBLD 


CATOPEN 


ERRCK 


IDCTPOI 


IDCTPOI 


BDCONV 


PUPCONV 


REDO 
IDCTPOS 
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The CRA has a different name than 
the others being processed. 


The volume serial number could 
not be obtained for CRA dname. 
The volume is not processed. 


The volume serial number cannot 
be obtained from INFILE dname. 
The volume Is not processed. 


The same name was found in more 
than one CRA. 


The data set was not exported 
because of the error indicated in 
previous messages. 


The catalog specified in the input 
for compare was not the owning 
catalog found in the CRA. 


Catalog could not be opened, 
therefore the compare option was 
ignored. 


The CRA opened belongs to a 
catalog other that the one specified 
in the compare. 


A verify was issued after opening a 
CRA and it failed. 


IDCRC04 could not find the 
catalog name from the cluster re- 
cord or the volume serial of the cat- 
alog so it could not lock out reset- 
ting of the catalog CRAs while they 
are being listed or the lock request 
failed. 


The lock request to prevent 
concurrent updates to the catalog 
and CRAs failed. 


LISTCRA encountered an error 
reading the catalog control record. 


A verify was issued after opening a 
catalog and it failed. 


CRA can not be opened or locked 
because of some errors encoun- 
tered. 


Either (1) no format list or static 
text identification was passed as in- 
put, or (2) no valid bits in 
FMTFLGS were turned on, or (3) 
the input or output length specified 
was less than I. 


The output column specified is not 
within the print line. 


For binary to decimal conversions, 
the input data length was more 
than 4 or the converted length was 
more than 16. 


For packed to unpacked conver- 
sions, the converted length was 
more than 15, or the input data 
length was more than 8. 


A REDO structure is nested. 


The requested static text entry was 
not in the specified module. 
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STID 


TP 1-7 


Message 


IDC 29551 


1DC30031 


IDC3004] 
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UV0-3 


UV0-4 


Module 
IDCTPO! 


IDCALOI 


IDCBIO! 


IDCDEOI 


IDCDE02 


IDCDLO! 


IDCLCOI 


IDCLROI 


IDCMPOI 
IDCPRO! 


IDCRCOI 


IDCRMOL 
IDCRPO! 


IDCRSO5 


IDCVYOI 


IDCXP01 
IDCALOI 


Procedure 


PUPCONV 


IDCALO! 


TERMPROC 


IDCDEO! 


MODELPRC 


CATOPEN 


IDCLCOI 


ERROR 
IDCMPO1 
IDCPROI 


TEXTPSET 


DELIMSET 


EXITTHE 


IDCRMOI 
IDCRPOl! 


DELIMSET 


CKERR 


iDCVY0O1 


IDCXPOI 
ALTERPRC 
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An invalid packed decimal field 


was passed by the caller. 


The VSAM catalog could not be 
opened, or another severe error oc- 
curred. 


Either (1) a severe error was 
encountered in processing the base 
cluster, or (2) the EXTERNAL- 
SORT parameter was specified but 
the job control for sort files was 
missing or in error. 


The VSAM catalog to contain the 
defined object could not be opened, 
or another severe error occurred. 


The VSAM catalog containing the 
model object could not be opened. 


The VSAM catalog could not be 
opened. 


A severe error occurred. Listing of 
the catalog was not attempted or 
terminated if begun. 


A severe error has occurred. 
A severe error occurred. 


Either (1) an error occurred 
opening the input or alternate out- 
put data sets, or (2) a unrecoverable 
error occurred while retrieving or 
printing a record, or (3) more than 
three 1/O errors occurred while re- 
trieving records. 


The static text subtitle line could 
not be retrieved. 


An incompatible use of delimiters 
was found during a data set print 
Operation. 


Function was not completed 
because a severe error was encoun- 
tered. 


A severe error occurred. 


Either (1) an error occurred 
opening the input or output data 
sets, or (2) a unrecoverable error 
occurred while copying the data set, 
(3) more than three I/O errors oc- 
curred while copying the data set, 
(4) an error occurred while attempt- 
ing a catalog reload, or (5) a nonre- 
lative record input data set did not 
have a non-empty relative record 
output data set. 


An incompatible use of delimiters 
was found during a data set copy 
operation. 


A severe error occurred which 
prevented further processing. 


The VSAM data set to be verified 
could not be opener, or the verify 
was not successful. 


A severe error occurred. 


Storage was not available for one of 
the following: the volume list or the 
PASSWALL field. 
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Message 


STID 


Module 


IDCDEOI 


IDCDE02 


IDCIOO! 


IDCIO02 


IDCLCOI 


IDCLRO!I 


IDCMPOlI 


Procedure 


IDCALOI 


INDEXPRC 


LOCATPRC 


IDCDEOI 


ALLCPROC 


KEYPROC 


MODELPRC 


NAMEPROC 


PROTPROC 


PUTREP 


BUILDACB 


BUILDDBK 


BUILDRPL 


CKNONOP 


DSDATA 


OPENRTN 


INITPROC 


ADDASOC 


BLDVEXT 


CTTBLD 


INITLZE 


INTASOC 


FPLPROC 


BPASPROC 


Situation That Caused Message 


Storage was not available for the 
CTGPL, CTGFV, and CTGFLs. 


Storage was not available for the 
index parameter list if KEYS was 
specified. 


Storage was not available for the 
catalog work area. 


Storage was not available for the 
CTGPL and CTGFV. 


Storage was not available for one of 
the following: CTGFLs, the vol- 
ume list, the file sequence list, or 
the device type list. 


Storage was not available for one of 
the following: the AMDSBCAT 
CTGFL and the AMDSBCAT 
field, or the key range list. 


Storage was not available for the 
catalog parameter list or the catalog 
work area. 


Storage was not available for the 
CTGFLs. 


Storage was not available for the 
CTGFLs needed to set up the pro- 
tection attributes, 


Storage was not available for the 
input work area. 


Storage was not available for the 
ACB or the EXLST. 


Storage was not available for the 
required I/O areas. 


Storage was not available for the 
input work area or the RPL. 


No storage is available for the input 
work area required to process span- 
ned, nonVSAM records. 


No space available to read the 
Label Cylinder. 


Storage was not available for the 
IDCSTR. 


Storage was not available for one of 
the following: catalog parameter 
lists, catalog work areas, or the stat- 
ic text used in the catalog listing. 


Storage was not available for the 
association table extension. 


Storage was not available for the 
VEXTTBL extension. 


Storage was not available for the Cl 
translate table. 


Storage was not available for the 
initial ASSOCTBL and 
VEXTTBL. 


Storage was not available for the 
association table extension. 


Storage was not available for 
CTGFLs. 


Storage was not available for the 
PASSWALL field. 
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Message 
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STID 


Module 


IDCPMOlI 


IDCRCOI 


IDCRCO02 


IDCRIOI 


IDCRMOI 


Procedure 


CLUSPROC 


CPLPROC 


CTLPROC 


DELTPROC 


FVTPROC 


LVLPROC 


TESTPARM 


IDCRCOI 


CLUSPROC 


CTLGPROC 


IDCRCO02 


LOCPROC 


NVSMPROC 


SAVEPROC 


GETSPACE 


IDCRIO2 


INREPEAT 


RHINIT 


SCANCMD 


ALISPROC 


BFPLPROC 


BPASPROC 


CLUSPROC 


CPLPROC 


CTLGPROC 


DELTPROC 
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Storage was not available for the 
catalog work area. 


Storage was not available for the 
CTGPL. 


Storage was not available for the 
catalog work area. 


Storage was not available for the 
catalog work area. 


Storage was not available for the 
CTGFV. 


Storage was not available for one of 
the following: the catalog work 
area, CTGFLs, or volume serial 
lists. 


Storage was not available for the 
Test Option Data Area. 


Storage was not available for one of 
the tables required by EXPOR- 
TRA. 


Storage was not available for the 
control record output buffer. 


Storage was not available for the 
catalog work area. 


Storage was not available for the 
output buffer area. 


Storage was not available for the 
CPL, FPL and the catalog work 
area, 


Storage was not available for the 
control record output buffer. 


Storage was not available for the 
input record save area. 


Storage was not available for The 
FDT. 


Storage was not available for one of 
the following: work space or the 
FDT. 


Storage was not available for the 
FDT. 


Storage was not available for the 
Reader/Interpreter Historical Data 
Area. 


Storage was not available for the 
FDT. 


Storage was not available for the 
catalog data record buffer. 


Storage was not available for the 
FPLs. 


Storage was not available for the 
PASSWALL information. 


Storage was not available for the 
buffer area or volume list. 


Storage was not available for the 
catalog parameter list. 


Storage was not available for the 
catalog parameter list. 


Storage was not available for the 
catalog work area. 
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FVTPROC Storage was not available for the 
FVT or FPLs. 


LVLRPROC Storage was not available for the 
volume serial list, the device types 
list, or the file sequence number 
list. 


NFVTPROC Storage was not available for the 
FVT or FPLs. 


NVSMPROC Storage was not available for the 
control record buffer. 


RANGPROC Storage was not available for the 
range list. 


UCATPROC Storage was not available for the 
data record. 


IDCRSO! IDCRSOI Storage was not available for 
automatic storage for modules 
IDCRS02 - IDCRSO7. 


INIT Storage was not available for any 
one of the following: the record ac- 
cess buffers (RAB), the CRA user 
buffer, record management and 
umacro work area, catalog manage- 
ment work area, IKQMDADS par- 
ameter list, the CIXLT table, the 
ULOINFO return area. 


IDCRSO3) GETTAB Storage was not available for the 
association work area. 


IDCRSO3 PROCVOL Storage was not available for the 
space bit map. 


IDCRS03 VERB Storage was not available for the 
GDG level difference string work 
area. 


IDCRSO4 = NINIT Storage was not available for the 
FIND work area. 


IDCRS04 NXPND Storage was not available to expand 
the FIND work area. 


IDCRSOS BLDRLST Storage was not available for the 
RESVOL table. 


IDCRSOS BLDVLST Storage was not available for the 
VOLSERTB. 


IDCRS06 WFDEF Storage was not available for the 
CPL, FPL, and DEFINE work 
area. 


IDCRSO7 RENMSETV Storage was not available for the 
RENAME volume list. 


IDCSA08 IDCSANQ0 Storage was not available for DTL 
(UENQ request). 

IDCXPO0! ALTRPROC Storage was not available for the 
CTGFV. 


CLUSPROC Storage was not available for the 
control record output buffer. 


CTLGPROC Storage was not available for the 
second catalog work area obtained 
when the first work area was too 
small. 


DELTPROC Storage was not available for the 
CTGPL or the catalog work area. 


LOCPROC Storage was not available for the 
CTGPL or the catalog work area. 
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Message STID 

IDC3006I UV0-6 

IDC30071 (See note 
at end 
of list) 


VSE/VSAM Access Method Services Logic 


Module 


IDCPROI 
IDCRPOI 
IDCALOI 


IDCBIOL 


IDCDEO! 


IDCDE02 


IDCDLO! 


IDCLC02 


IDCMPO! 


IDCRCO2 


IDCRMOI 


IDCRSOI 


IDCRS06 


IDCXPO01 


Procedure 


MORESP 


DELIMSET 


DELIMSET 


IDCALOI 


CHECKPRC 


LOCATPRC 


FINPROC 


IDCDEO! 


MODELPRC 


CATCALL 


FINDTYPE 


MORESP 


LOCPROC 


CTLGPROC 


DELTPROC 


CTLGPROC 


CTLGPROC 


DELTPROC 


INIT 


WFDEF 


WFDEL 


CTLGPROC 


DELTPROC 


MORESP 
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Storage was not available for the 
catalog work area. 


Beginning positioning failed. 
Beginning positioning failed. 


The catalog return code was 
nonzero for an alter request. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero for a locate request against 
the base cluster or alternate index, 
or for a define request for external 
sort work files. 


The catalog return code was 
nonzero for a define request. 


The catalog return code was 
nonzero for a request to locate a 
model object. 


The catalog return code was 
nonzero for a delete request. This 
message is not issued for a return 
code of 160, however, because 160 
indicates a normal condition. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero for a delete request. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero. 


The catalog return code was 
nonzero for a delete request. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero for a define or alter re- 
quest. 


The catalog return code was 
nonzero for a delete request. 


The catalog return code was 
non-zero for a locate request. 


The catalog return code was 
non-zero when defining the work- 
file. 


The catalog return code was 
non-zero when deleting the work- 
file. 


The catalog return code was 
nonzero for a delete, alter, or locate 
request. 


The catalog return code was 
nonzero for a delete request. 


The catalog return code was 
nonzero for a delete request. 
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Message 


1DC30091 


IDC3010! 


STID 


(See note 
at end 
of list) 


UVO0-II 


Module 
IDCALO! 


IDCBIOI 


IDCDEO! 


IDCDE02 


IDCDLO! 


IDCLCO02 


IDCMPOlI 


IDCRC02 


IDCRMOI 


IDCRSO! 


IDCRS06 


IDCXPO01 


IDCALOI 


IDCDEO! 


Procedure 


IDCALO! 


CHECKPRC 


LOCATPRC 


FINPROC 


IDCDEO! 


MODELPRC 


CATCALL 


FINDTYPE 


MORESP 


LOCPROC 


LOCPROC 


CTLGPROC 


DELTPROC 


CTLGPROC 


CTLGPROC 


DELTPROC 


INIT 


WFDEF 


WFDEL 


CTLGPROC 


DELTPROC 


MORESP 


IDCALOI 


IDCDEO! 
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The catalog return code was 
nonzero for an alter request. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero for a locate request against 
the base cluster or alternate index, 
or for a define request for external 
sort work files. 


The catalog return code was 
nonzero for a define request. 


The catalog return code was 
nonzero for a request to locate a 
model object. 


The catalog return was nonzero for 
a delete request. This message is 
not issued for a return code of 160, 
however, because 160 indicates a 
normal condition. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero for a delete request. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero. 


The catalog return code was 
nonzero for a delete request. 


The catalog return code was 
nonzero for a locate request. 


The catalog return code was 
nonzero for a define or alter re- 
quest. 


The catalog return code was 
nonzero for a delete request. 


The catalog return code was 
non-zero for a locate request. 


The catalog return code was 
non-zero when defining the work- 
file. 


The catalog return code was 
non-zero when deleting the work- 
file. 


The catalog return code was 
nonzero for a delete, alter, or locate 
request. 


The catalog return code was 
nonzero for a delete request. 


The catalog return code was 
nonzero for a delete request. 


The file identified in the DLBL 
statement does not match that giv- 
en in the CATALOG parameter. 


The file identified in the DLBL 
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Message 


IDC30121 


IDC30131 


IDC30i41 


IDC30161 


IDC30171 


IDC3018I 


IDC30191 


1DC30201 


[DC30211 


1DC30221 


1DC30231 
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STID 


TP6-9 


TP6-10 


TP6-1t1 


TP6-12 


TP6-13 


TP6-14 


TP6-15 


TP6-16 


TP6-17 


TP6-18 


TP6-19 


Module 
IDCDE0O2 


IDCDLOI 


IDCLCOI 


IDCMPOI 


IDCXPO1 


IDCT P06 


IDCT P06 


IDCTP06 


IDCT P06 


IDCT P06 


IDCTP06 


IDCTP06 


IDCT P06 


IDCTP06 


IDCT P06 


IDCT P06 


Procedure 


MODELPRC 


CATOPEN 


INITPROC 


RECPROC 


RECPROC 


CATERCNY 


CATERCNV 


CATERCNV 


CATERCNYV 


CATERCNV 


CATERCNV 


CATERCNV 


CATERCNV 


CATERCNV 


CATERCNV 


CATERCNV 
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Situation That Caused Message 


statement does not match that 
given in the CATALOG parameter. 


The file identified in the DLBL 
statement does not match that giv- 
en in the CATALOG parameter. 


The file identified in the DLBL 
statement does not match that giv- 
en in the CATALOG parameter. 


The file identified in the OUTFILE 
parameter does not match the name 
given in the IMPORT command or 
any paths over it. 


The file identified in the INFILE 
parameter does not match that giv- 
en in the EXPORT command or 
any paths over it. 


Verbalization of catalog return 
code 8. The entry name supplied by 
the user is not in the specified cata- 
log. 


Verbalization of catalog return 
code 8. The file name supplied by 
the user is already in the catalog. 


An error occurred during a VSAM 
catalog operation. 


Verbalization of catalog return 
code 4. An error occurred while a 
VSAM catalog was being opened or 
closed or the user catalog specified 
by the command cannot be found. 


Verbalization of catalog return 
code 20. The catalog or the catalog 
recovery area (CRA) is full. 


Verbalization of catalog return 
code 56. The maximum number of 
attempts to supply the correct pass- 
word was exceeded by the operator, 
or the user-specified verification 
routine failed to authorize use of 
the file. 


Verbalization of catalog return 
code 60. Invalid catalog action re- 
quest for the entry named. 


Verbalization of catalog return 
code 68. Either an attempt was 
made to extend a unique VSAM 
file, or a specified volume either 
cannot accommodate an initial al- 
location, or cannot be extended 
when required. 


Verbalization of catalog return 
code 72. Either an illegal system 
symbolic unit was assigned or no 
system symbolic unit was assigned. 


Verbalization of catalog return 
code 80. The object specified in the 
RELATE parameter of a DEFINE 
command does not exist, or is im- 
proper for the type of object being 
defined. 


Verbalization of catalog return 
code 84. An attempt to delete an 
entry failed because its expiration 
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date has not been reached, and the 
PURGE option was not specified. 


IDC30241 TP6-21 IDCTP06 CATERCNV Verbalization of catalog return 
code 148. A volume owned by an- 
other catalog was specified. 


IDC30251 TP6-22 IDCTP06 CATERCNV Verbalization of catalog return 
code 156. A volume does not con- 
tain a data space with sufficient 
room for allocation of another 
VSAM file. 


1DC30261 TP6-23 IDCTP06 CATERCNYV Verbalization of catalog return 
code 172. A DEFINE operation 
specified the name of a file with the 
UNIQUE attribute, but there is al- 
ready a file on the volume with the 
same name. 


1DC30271 TP6-24 IDCTP06 CATERCNV Verbalization of catalog return 
code 176. During the definition of 
a data space, an attempt was made 
to perform a VSAM allocate func- 
tion, but there was no space in the 
VTOC for an additional label. 


IDC3028I TP6-25 IDCTP06 CATERCNV Verbalization of catalog return 
code 184. The catalog is currently 
open and cannot be deleted. 


1DC30291 TP6-26 IDCTP06 CATERCNYV Verbalization of catalog return 
code 192, The maximum logical re- 
cord length specified is greater than 
32,761 for a nonspanned file. 


1DC30301 TP6-27 IDCTP06 CATERCNV Verbalization of catalog return 
code 196, 200. The data component 
control interval size specified is 
greater than 32,767; or the index 
component control interval size is 
greater than the maximum block 
size of the index device. 


IDC30311 TP6-28 IDCTP06 CATERCNV Verbalization of catalog return 
code 204. The KEY specification 
extends beyond the end of the max- 
imum logical record. 


1DC30321 TP6-29 IDCTP06 CATERCNV Verbalization of catalog return 
code 208. The buffersize specified 
during a DEFINE operation is too 
small to contain the minimum 
number of control intervals for the 
VSAM file being defined. 


1DC30331 TP6-30 IDCTP06 CATERCNV Verbalization of catalog return 
code 248. This condition arises 
when a function requires a volume 
that is not owned by the referenced 
VSAM catalog. 


IDC30441 TP6-39 IDCTP06 CATERCNV Verbalization of catalog return 
code 16. The CYLINDER parame- 
ter was specified in the DEFINE 
command but the extents found on 
the corresponding 
DLBL/EXTENT statements do not 
start or end on a cylinder boundary. 


IDC30451 TP6-40 IDCTP06 CATERCNV Verbalization of catalog return 
code 152. An attempt was made to 
delete a non-empty VSAM catalog. 


1DC30461 TP6-41 IDCTP06 CATERCNV Verbalization of catalog return 
code 100. An attempt was made to 
define a unique file on a volume 
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Message 


1DC3047] 


1DC30481 


IDC31711 


IDC3173 


IDC31901 


IDC32001 


IDC3201 


VSE/VSAM Access Method Services Logic 


STID 


TP6-42 


TP6-43 


DEO-24 


DE0-26 


ALO-24 


R10-1 


R10-2 


Module 


IDCTP06 


IDCTP06 


IDCDE02 


IDCMPO! 


IDCRMOlI 


IDCDEO!I 


IDCMPOI 


IDCRMOI 


IDCALO! 


IDCRIOI 


IDCRIOI 


Procedure 


CATERCNV 


CATERCNY 


ALLCPROC 


CLUSPROC 


CLUSPROC 


INTGCHK 


CLUSPROC 


CLUSPROC 


PARAMCHK 


SCANCMD 


BUILDFDT 


CONVERT 


NXTFIELD 


PACKCVB 
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that does not contain a catalog re- 
covery area (CRA), 


Verbalization of catalog return 
code 216. A space allocation at- 
tempt failed because the new extent 
specified ina EXTENT statement 
overlapped the volume table of 
contents (VTOC), an existing file or 
other extents specified in the DLBL 
statement. 


Verbalization of catalog return 
code 240. A DLBL or EXTENT 
statement is missing of in error ora 
system logical unit error was detect- 


ed. 


Value specified for CLASS, 
primary USECLASS, or secondary 
USECLASS ts invalid. 


OBJECTS parameter USECLASS 
has an invalid primary or secondary 
value. 


OBJECTS parameter USECLASS 
has an invalid primary or secondary 
value. 


A nonzero USECLASS was 
specified fora CLUSTER/AIX or 
component that has the UNIQUE 
allocation attribute. 


A nonzero USECLASS was 
specified fora CLUSTER/AIX or 
component that has the UNIQUE 
allocation attribute. 


A nonzero USECLASS was 
specified for CLUSTER/AIX or 
component that has the UNIQUE 
allocation attribute. 


One of the parameters specified on 
the command is invalid for the en- 
try type. 


The number of positional parame- 
ters found (PPARMCNT) exceeds 
the number defined in the descrip- 
tor for the current subparameter list 
(SUBCOUNT). 


The input constant length 
(UNITINDX) exceeds the maxi- 
mum length defined by the descrip- 
tor. 


The input constant length 
(UNITINDX) exceeds the maxi- 
mum length defined by the descrip- 
tor. 


The input constant length 
(UNITINDX) exceeds the maxi- 
mum length that the 
Reader/Interpreter can handle 
(UNITMAX). 


The input constant length 
(UNITINDX) exceeds the maxi- 
mum length defined by the descrip- 
tor. 
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IDC32021 R1I0-3 IDCRIOI ERRORI The remainder of a command was 
bypassed due to an error in it. 

ERROR2 The remainder of a command was 

bypassed due to an error in it. 

IDC32031 R10-4 IDCRIOI DSIDCHK A data set name does not have the 
correct syntax. 

1DC32051 R10-6 IDCRIO! SCANCMD The closing parentheses of a 


subparameter list was found before 
any parameters were found in the 
list or an opening parentheses was 
found before any keyword was 
found. 


1DC32071 R10-8 IDCRIOI ERRORI A severe error occurred. The 
condition code is set to 16, and the 
Reader/Interpreter will terminate 
processing. 


ERROR2 A severe error occurred. The 
condition code is set to 16, and the 
Reader/Interpreter will terminate 
processing. 


IDC32081 R10-9 IDCRIOI KWDPARM A keyword parameter, defined as 
having a subfield, does not have a 
left parentheses following the key- 
word. 


1DC32091 R10-10 IDCRIOI KWDPARM A keyword’s subfield does not have 
a closing parenthesis following it. 


POSPARM A list of constants is not delimited 
on the right by a closing parenthe- 
sis. 

IDC32101 R10-11 IDCRIOI INREPEAT The next repetition of a repeated 


subparameter list does not begin 
with a left parenthesis. 


IDC32111 R10-12 IDCRIO! KWDPARM The descriptor does not define the 
input keyword as part of the cur- 
rent parameter list. 


NXTFIELD An input keyword exceeds the 
maximum allowable length for a 
keyword. 


IDC32121 R10-13 IDCRIOI POSPARM A positional parameter that is not 
defined as a list begins with a left 
parenthesis. 


1DC32131 R10-14 IDCRIO! SETFLAG An internal table (PARMFLAG) 
indicates that the keyword just 
found was found previously in this 
command, 


1DC32141 R10-15 IDCRIOI GETDATA A numeric constant begins with a B 
or X, but an apostrophe does not 
follow directly after this character. 


IDC32161 R10-17 IDCRIO! ERROR| The remainder of a command, 
being scanned for syntax-checking 
purposes only, was bypassed due to 
an error in it. 


ERROR2 The remainder of a command, 
being scanned for syntax-checking 
purposes only, was bypassed due to 
an error in it. 


IDC32171 R10-18 IDCRIOI GETQUOTD A password-delimiting slash 
appears following a constant that 
does not allow a password. 


GETSIMPL A password-delimiting slash 
appears following a constant that 
does not allow a password. 
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Message 


IDC32181 


IDC32191 


1DC32201 


IDC32211 


1DC32231 


IDC32251 


1DC32261 


1DC32871 


IDC32881 


IDC32891 


IDC32911 


VSE/VSAM Access Method Services Logic 


STID 
R1I0-19 


R10-20 


R10-21 


R10-22 


R10-24 


R10-26 


R10-27 


100-16 


100-[1 


UV0-8 


M PO-15 


Module 
IDCRIO!I 


IDCRIOL 


IDCRIOL 


IDCRIO! 


IDCRIOI 


IDCRIOI 


IDCDEO! 


IDCRIO1 


IDCIO02 


IDCIO02 


IDCSA08 


IDCM POI 


IDCRMOI 


Procedure 


INREPEAT 


IDCRI02 


CONVERT 


PACKCVB 


CONVERT 


PACKCVB 


BUILDFDT 


NEEDNOTS 


INTGCHK 


NEEDNOTS 


BUILDACB 


BUILDACB 


IDCSANQ 


DVOLCHK 


DVOLCHK 
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The number of sublist repetitions 
(REPCOUNT) for the current re- 
peated sublist exceeds the maxi- 
mum repetitions allowed 
(REPMAX) for this parameter ac- 
cording to the descriptor. 


The input verb name does not 
match any name in IDCRILT or 
the command descriptor phase 
could not be found in the core im- 
age library. 


A numeric constant contains a 
invalid digit. 


A numeric constant contains an 
invalid digit. 

A numeric constant has a value 
outside the value range specified in 
the descriptor for this parameter. 


A numeric constant is too large to 
fit into a binary fullword. 


The number of constants found in a 
list (SCLRCNT) exceeds the num- 
ber allowed (LISTMAX). 


A parameter required for this 
command is missing, or parameter 
required when another parameter is 
coded is missing. 


A parameter required for this 
command is missing, or parameter 
required when another parameter is 
coded is missing. 


An input parameter conflicts with 
some other input parameter. 


During CRA OPEN, [IKQASNMT 
couldn’t mount the CRA volume 
because the operator cancelled the 
mount request. Any return code 
from IKQASNMT that is not 0 or 4 
will also cause this message. Exam- 
ples are: Lock Table full, GETVIS 
failure, or incorrect NEWPAC re- 
sponse. 


During CRA OPEN, IKQASNMT 
couldn’t successfully do an auto as- 
sign for the CRA. 


IKQLOCK passed back a supervi- 
sor lock manager error code. No 
message if lock is held by another 
task or is held by this task (i.e., re- 
cursion). See Appendix B, code 
246. 


DEFAULTVOLUMES parameter 
was specified for an object which 
has the UNIQUE or ORDERED 
attribute. 


DEFAULTVOLUMES parameter 
was specified for an object which 
has the UNIQUE or ORDERED 
attribute or has the default model 
reserved name 
(‘DEFAULT.MODEL.”). 
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Message 


1DC32921 


IDC32951 


1DC32971 


IDC32981 


IDC32991 
1DC33001 
IDC33011 


1DC3302I 


1DC33031 


IDC33041 
1DC33051 


IDC3306I 


1DC33071 


IDC33081 


STID 


DEO-32 


XPO0-8 


DEO-30 


ALO-5 


UV-12 


100-1! 


100-2 


100-3 


100-4 


100-5 


100-6 


100-7 


100-8 


100-10 


Module 
IDCDEO! 


IDCXPOI 


IDCRCOI 


[IDCDE02 


IDCDEO! 


IDCMPOl 


IDCALO! 


IDCMPO! 


IDCDEOI 


IDCIO02 


IDCIO02 


IDCIOO! 


IDCIO03 


IDCRS06 


IDC1002 


IDCIO02 


IDC1O02 


IDC1IO02 


IDC1IO02 


IDCIOO! 


Procedure 


INTGCHK 


CLUSPROC 


CKNAMES 


NAMEPROC 


INTGCHK 


CNCTPROC 


IDCALOI 


CLUSPROC 


INTGCHK 


BLDOCMSG 


BLDOCMSG 


BLDAMSG 


BLDAMSG 


RECERR 


BUILDDBK 


DSDATA 


DSDATA 


BUILDDBK 


DSDATA 


BUILDDBK 


VSAMERR 


Chapter 6: Diagnostic Aids 


Situation That Caused Message 


VOLUMES parameter is required 
with UNIQUE or ORDERED 
component and for default models. 


The requested file is NOCIFOR- 
MAT or CIFORMAT SAM. 


The requested file is NOCIFOR- 
MAT or CIFORMAT SAM. 


The name for a VSAM object was 
specified with the prefix 
“DEFAULT.MODEL.” but not 
followed by the valid qualifiers for 
the file type given. 


The name for a VSAM object was 
specified with the prefix 
“DEFAULT.MODEL.” but not 
followedby the valid qualifiers for 
the file type given. 


The specified name for the user 
catalog (connect) contains the pre- 
fix ‘~DEFAULT.MODEL.” 


An attempt was made to either 
rename a file to a default model 
name or rename a default model 
name. 


An attempt was made to either 
rename a file to a default model 
name or rename a default model 
name. 


Inconsistent parameters specified, 
modeled, or defaulted. 


An error occurred during open of a 
data set. 


An error occurred during close of a 
data set. 


An error occurred while accessing a 
data set. 


An error occurred while accessing a 
data set. 


A logical I/O error occurred while 
processing a CRA, catalog or the 
work file. 


The data set to be opened for 
update processing is nota VSAM 
data set. 


A Job Control statement specified 
for file to OPEN was not found. 


An attempt was made to open an 
ISAM data set for output. 


Cannot open an ISAM file for 
address processing. 


The data set to be opened for 
physical sequential processing is an 
ISAM data set. 


The data set to be opened for keyed 
processing is nota VSAM or ISAM 
data set. 


A record with the same key or 
relative record number as the input 
record already exists in the output 
data set. 


6-99 
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Message 


1DC33091 


IDC33101 


IDC33111 


1DC33121 


1DC33141 


IDC33 16! 


1DC33171 


IDC33181 


1DC33201 


IDC33211 
1DC33221 


IDC33231 
1DC33241 


1IDC33251 


1DC33261 
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STID 
100-12 


100-13 


100-14 


100-15 


100-17 


100-19 


100-20 


100-21 


100-23 


100-24 


100-25 


100-34 
100-36 


100-45 


100-46 


Module 
IDCIOO! 


IDC1O03 


IDC1O03 


IDC1O02 


IDCIOO! 


IDCIO02 


IDCIOO! 


IDC1IO02 


IDCIO03 


IDC1O02 


IDCIO02 


IDCIO02 


IDCIOO! 


IDC10O02 
IDC1002 


{[DCIOO! 


IDCIO02 


Procedure 


PUTNONVS 


PUTVSAM 
PTAMDS 


PTISDS 


IDC1003 


CKNONOP 


VSAMERR 


BUILDDBK 


VSAMERR 


DSDATA 


PTAMDS 


BUILDDBK 


CKNONOP 


DSDATA 


BUILDDBK 


CKNONOP 


IDCIOVY 


OPENCAT 
OPENCAT 


GETNONVS 


OPENRTN 
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Situation That Caused Message 


The length for a record to be 
written is invalid. 


Length invalid for RRDS. 


The key provided is longer than the 
key length of the data set. 


The key provided ts longer than the 
key length of the data set. 


The data set to be positioned is not 
a VSAM or ISAM data set. 


The DTF OPEN flag was not set by 
the system OPEN routines for mag- 
netic tape or for a sequential disk 
file. 


The record to be written has a lower 
key than the last record in the data 
set. 


The data set to be opened is not a 
VSAM catalog. 


Physical error detected ina VSAM 
file. 


1/O attempting to read the Label 
Cylinder. 


Physical error detected by VSAM 
POINT routines. 


(1) Invalid environment or 
DLBL/TLBL parameters specified, 
(2) the blocksize is less than one, (3) 
the blocksize is invalid for a fixed 
length record format file, (4) the 
blocksize is invalid for a variable 
length record format file, or (5) for 
SAM files, Fixed Unblocked, 
RECSZ is given but is not equal to 
BLKSZ. 


The blocksize specified for an 
ISAM file is less than the file’s true 
blocksize. 


Invalid parameters specified on the 
DLBL/TLBL statement. 


I. Invalid device type specified for 
prime data. 

2. Invalid device type specified 
for high level index of an ISAM 
file. 

3. Tape device specified as the 
high level index of an ISAM 
file. 


An open ABEND error was 
detected. 


The data set to be verified is not a 
VSAM data set. 


A user catalog open error occurred. 


A user catalog open error has 
occurred and problem determina- 
tion information has been returned 
by catalog management. 


The blocksize specified for the 
portable data set is different than 
that of the portable data set. 


The REPLACE option has been 
specified for output through a path. 
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Message 


1IDC33271 
1DC33281 


IDC33511 


IDC35001 


IDC35011 


1DC35031 


IDC35041 


IDC35051 


IDC35071 


IDC35131 


IDC35141 


IDC35151 


IDC35 161 


IDC35171 
IDC35 181 
IDC35191 


IDC35211 


IDC35221 


STID 


100-47 
100-48 


100-9 


DEO-3 


DEO-4 


DEO- | 


DEO-2 


DE0-6 


DEO-8 


DEO-14 


DEO-15 


DEO- 16 


DEO-17 


DEO-18 


DEO-19 


DE0-20 


DEO-22 


DE0-23 


Module 


IDCIOO! 
IDCIO02 


IDCIOO! 


IDCIO02 


[DC1003 


IDCRS06 


IDCDEO03 


IDCDE02 


IDCDE02 


IDCDEO2 


IDCDEO! 


IDCDEO! 


IDCDEO! 


IDCDE02 


IDCMPOI 


IDCDE02 


IDCDEO1 


IDCDE02 


IDCDEOlI 


IDCDEO! 


IDCDEOI 


IDCDEO1 


Procedure 


VSAMERR 
BUILDDBK 


VSAMERR 


CLOSERTN 
OPENRTN 
PTAMDS 


RECERR 
IDCDE03 


MODELPRC 


ALLCPROC 


KEYPROC 


IDCDEO! 
IDCDEO! 


IDCDEO1 
KEYPROC 
RANGPROC 
ALLCPROC 


IDCDEO1 


ALLPROC 
IDCDEOlI 
IDCDEOl! 


IDCDEOI 


IDCDEO! 
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Situation That Caused Message 


Duplicate record in the upgrade set. 


ISAM processing was requested for 
an FBA device. 


An error was detected by a VSAM 
macro. The error was not a dupli- 
cate record or a record out of se- 
quence. 


The ACB was not closed successful- 
ly. 

The ACB was not opened success- 
fully. 


A logical error occurred during a 
VSAM point operation. 


A logical 1/O error occurred while 
processing a CRA, catalog or the 
work file. 


The object parameter list (FDT) 
supplied is not a valid subcommand 
type. 

The entry type of an model object is 
not the same as that of the object 
being defined, or the entry type ofa 
model object conflicts with the 
specification of INDEXED, NON- 
INDEXED or NUMBERED. 


The number of elements in the 
volume list does not match the 
number of elements in the file se- 
quence list. 


The length of the key range list 
retrieved from a model exceeded 
the space allotted for the list by 
IDCDEOl1. 


Space allocation was incorrectly 
specified fora VSAM catalog, data 
set, or data space. 


The record size was required but 
not specified fora VSAM data set 
or data space. 


A file name was not specified with 
the UNIQUE attribute. 


The key ranges specified by the 
user overlap. 


The key ranges specified by the 
user overlap. 


The average record size exceeds the 
maximum record size. 


Key length and position were not 
specified for a key sequenced data 
set. 


Unequal record sizes were specified 
for a relative record data set. 


REUSE cannot be specified with 
UNIQUE or KEYRANGES. 


A REUSE conflict exists between 
data and index. 


A RECORDSIZE greater than 
32761 was specified for a nonspan- 
ned data set. 


SPANNED cannot be specified for 
a relative record data set. 
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Message 


IDC35241 


IDC35251 


1DC35271 


IDC35281 


[DC35371 


IDC3538] 


19DC35391 


1DC3540I 


IDC35411 


1DC35421 


1DC35451 


1IDC35461 
IDC35471 


1DC35701 


1DC35721 


1DC35731 


1DC35821 


1DC35831 


1DC35921 
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STID 
DEO-25 


ALO-23 


ALO-3 


ALO-4 


ALO-12 


ALO-13 


ALO-14 


ALO-15 


ALO- 16 


ALO-17 


ALO-20 


ALO-21 
ALO-22 


PRO-18 


PRO-20 


PRO-21 


PRO-14 


PRO-17 


XP0-3 


Module 
IDCDEO! 


IDCDE02 


IDCALO! 


IDCALOL 


IDCALO! 


IDCALOI 


IDCALOI 


IDCALO! 


IDCALOI 


IDCALOI 


IDCALOI 


IDCALOI 


IDCALOL 
IDCALOI 


IDCRPOI 


[DCRPO!I 


IDCRPO! 


IDCRPO! 


IDCRPO! 


IDCPROI 


IDCXP01 


Procedure 


INTGCHK 


KEY PROC 


CHECK PRC 


LOCATPRC 


LOCATPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 


CHECKPRC 
CHECKPRC 


IDCRPOI 


CATRELOD 


CATRELOD 


IDCRPO! 


DELIMSET 


DELIMSET 


CLUSPROC 
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Situation That Caused Message 


Key range values are longer than 
key length. 


Key ranges are not in ascending 
order. 


The password supplied is insuffi- 
cient to alter key values. 


The entry retrieved from the 
catalog was an invalid type for alter 
requests, or required fields could 
not be located. 


Passwords were suppressed when 
the object ot be altered was re- 
trieved from the catalog. 


UNIQUEKEY or UPGRADE was 
specified for a nonalternate index. 


UNIQUEKEY or UPGRADE was 
specified for a nonempty alternate 
index. 


KEYS or RECORDSIZE was 
specified for a nonempty object. 


A conflict between the control 
interval and KEYS or RECORD- 
SIZE exists. 


A conflict exists between the 
alternate index and the base cluster. 


Unequal record sizes were specified 
for a relative record data set. 


Invalid values were specified for 
KEYS or RECORDSIZE. 


Invalid value specified for KEYS. 


KEYS or RECORDSIZE is invalid 
with entry type. 


Delimiters were specified for a 
catalog reload. 


Target catalog is too small to 
contain the backup catalog during 
catalog reload. 


Either the catalog name, the 
volume serial number, or the device 
type did not match during a catalog 
reloud. 


The organization of the input data 
set is incompatible with that of the 
output data set. 


Invalid delimiters were specified 
for a data set copy operation. 


Invalid delimiters were specified 
for a data set copy operation. 
The object retrieved from the 


catalog for export is not a cluster or 
an alternate index. 
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Message 


IDC35931 


IDC35961 


1DC36021 


IDC36061 


1DC36071 


IDC36081 
1DC36091 


IDC36101 


IDC36121 


1DC36131 


STID 
XP0-4 


XP0-7 


MPO-9 


M PO- | 


MPO-13 


MPO-10 


M PO-5 


M P0-6 


MP0-8 


MPO-14 


Module 
IDCXPO! 


IDCRCOI 
IDCRCO2 


IDCXPO0I 


IDCMPOl 


IDCRMOIL 


IDCMPOl 


IDCRMOI 


IDCMPO! 


IDCMPOl 


IDCMPOlI 


IDCMPO! 


IDCMPOlI 


IDCMPOlI 


Procedure 


CLUSPROC 


SYNCH 
CLUSPROC 


CONTRBL 


NVSMPROC 


CLUSPROC 


IDCMPO! 


IDCRMOI 


CLUSPROC 


IDCRMOl! 


ALISPROC 


CLUSPROC 


GDGPROC 


NVSMPROC 


UCATPROC 


DUPNPROC 


CNCTPROC 


CLUSPROC 


CNCTPROC 


DUPNPROC 


CLUSPROC 
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Situation That Caused Message 


The catalog did not return the entry 
type, or data component name, or 
LRECL when the object to be ex- 
ported was located. 


No data association could be found. 


Either (1) the catalog did not return 
the entry type, data component 
name, or LRECL when the object 
to be exported was located, or (2) 
the entry type was not a cluster or 
alternate index. 


The catalog did not return the entry 
type, data component name or 
LRECL when the object to be ex- 
ported was located. 


The catalog did not return the entry 
type, or data component name 
when the object to be exported was 
located. 


The data set to be exported has 


been marked as not usable. 


Import of the data set failed after a 
successful define. 


Import of the data set failed after a 
successful define. 


The portable data set’s timestamp 
record was not valid, or the special 
record preceding the data records 
was not valid. 


The portable data set’s timestamp 
record was not valid. 


A catalog control record for an alias 
entry was not read. 


The special record preceding the 
data records was not valid. 


A catalog control record for an 
OS/VS generation data group was 
not valid. 


A catalog control record for a 
nonVSAM entry was not valid. 


A catalog control record for a user 
catalog was not valid. 


The temporary flag is not set in the 
catalog entry with the same name 
as the object being imported. If 
NEWNAME is specified, the tem- 
porary flag is not set in the entry 
with the new name. 


The VSAM catalog could not 
connect the user catalog. 


The VOLUMES parameter was not 
specified. 


The OBJECTS parameter, volumes 
list, or device list was not specified 
for connect of a user catalog. 


The catalog entry with the same 
name as the object being imported 
is not a cluster or alternate index. 


The open of the portable data set 
was not successful. 
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Message 


IDC36171 
IDC36191 


1DC36241 
IDC364 1] 


1DC36431 
1DC38831 


1DC42271 
IDC42281 
IDC4229] 
IDC42301 
1DC42321 
IDC42361 
1DC42371 
1DC49991 
IDC010021 
IDCOLOLTI 
IDCO1037) 
IDC1 10031 


IDCIIOIS1 


IDC 110221 
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STID 


MPO-17 
M PO-19 


MP0-24 
BlO-2 


BI0-4 
LRI-14 


R10-28 
R1I0-29 
RI0-30 
R10-3 1 
R10-33 


R10-37 


R10-38 


RSO-3 
RSO-12 
RSO0-47 
RS0-4 


RSO-16 


RS0-48 
RSO-22 


Module 
IDCRMOI 


IDCMP0O1 


IDCRMOI 


IDCRMO! 


IDCBIOI 


IDCBIOI 
IDCLRO! 


IDCRIOI 


IDCRIOI 


IDCRIOI 


IDCRIOI 


IDCRIOI 


IDCRIO! 


IDCRIOI 


IDCSAQO! 


IDCRSOlI 


IDCRSOI!I 


IDCRSO! 


IDCRS06 


IDCRS06 


IDCRS06 
IDCRS02 


Procedure 


IDCRMOI 


DUPNPROC 


ALTRPROC 


IDCRMOI 
LOCPROC 


OPENPROC 
ERROR 


GETNEXT 


GETNEXT 


MODAIIF 


MODALSET 


MODALIF 


IDCRIO03 


MODALIF 


PRNTERR 


INIT 


PROCCRA 


UPDCAT 


RECMGMT 


RECMGMT 


PROCTYPE 
PROCTYPE 
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Situation That Caused Message 


The open of the portable data set 
was not successful. 


The attributes of a predefined data 
set conflict with those of the data 
set to be imported. 


The catalog return code was 
nonzero when attempting to re- 
name a catalog entry. 


The UIOINFO issued to obtain the 
output data set name failed. 


The file identified in INFILE is not 
a base cluster. 


The base cluster is empty. 


More than 50 errors occurred while 
trying to complete the LISTCRA. 


An ELSE command appears 
without a matching IF-THEN com- 
mand (THENFLAG Is not on with 
DOFLAG off). 


An END command appears 
without a matching DO command 
(DOFLAG is off). 


An IF command relational 
expression does not follow the re- 
quired format. 


A SET command assignment 
expression does not follow the re- 
quired format. 


A THEN keyword does not appear 
in an IF command. 


End-of-file occurred, but EOFOK 
flag is off, indicating that end-of- 
file occurred in the middle of a 
command. 


The current IF command nesting 
level (NESTLVL) exceeds the max- 
imum level allowed (IFNSTMAX). 


UABORT error message printed 
via EXCP. See “ABORT Codes” 
section for ABORT codes. 


Informational message indicating 
the catalog to be reset and the ti- 
mestamp on the volume. 


Informational message indicating 
the CRA to be reset and the times- 
tamp on the volume. 


Informational message indicating 
that RESETCAT processing has 
been completed for the indicated 
catalog. 


IGNORE was specified and an 1/O 
error was encountered. 


IGNORE was specified and an I/O 
error was encountered. 


An object contains a dependency 
on a record that does not exist. 
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Message 


IDC110231 


IDC110291 


IDCIIO311 


IDC11033! 


IDC 110361 


IDC 11040! 


IDCIHIO411 


IDC 110421 


IDC1 10431 


IDC 110441 


IDC210091 


IDC21020! 


1DC210241 


IDC210251 


STID 
RS0-24 


RSO-23 


RSO-31 


RS0-33 


RS0-35 


RS0-46 


RSO-38 


RS0-39- 


RSO-40 
RSO-41 
RSO-42 
RSO-10 
RSO-21 
RSO-25 


RS0-26 


Module 
IDCRSO2 


IDCRS02 


IDCRSO3 


IDCRSO3 


IDCRSO3 


IDCRSO3 


IDCRS03 


IDCRS03 


IDCRSO3 


IDCRS03 


IDCRSO3 


IDCRSO! 
IDCRS03 


IDCRSOS 
IDCRSO7 


IDCRSO2 


IDCRSO3 


Procedure 


VERA 
VERC 
VERG 
VERR 
VERC 
VERG 


VLNRESET 


VLRESET 


CHKUNQ 


CHKUNQ 


VLNRESET 


CHKDSDIR 


VOLCHK 


VOLCHK 


VOLCHK 


VOLCHK 


VOLCHK 


INIT 


MARKUNUS 


ADDUPCR 
RENMSETV 


VERX 


VERB 
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Situation That Caused Message 


An entry is chained toa 

record of a type different 

than anticipated or the object 
noted consists of an 

imcomplete set of records. 

If the control interval number of 
the expected association is not giv- 
en then no association for that ob- 
ject exists in the base record; an as- 
sociation for that type is required 
for the entry name noted. 


The suballocated data 

space has been corrected to reflect 
what is on the volume. This correc- 
tion occurs if entries are deleted by 
RESETCAT or space stated as su- 
ballocated is not suballocated (that 
is, the space map is incorrect on en- 
try to RESETCAT). 


The unique data or index compo- 
nent has less space described than 
the data space. Informational mes- 
sage to indicate that space exists 
which is not in use. 


A unique file, ona 

volume not being reset has no 
corresponding DATA or INDEX 
component. 


The file named may have invalid 
space information. The extents oc- 
cupied by the named file are not in 
conflict with any other VSAM file 
or with the system; however, a self- 
checking field failed to check. 


The VSAM Format | Label did not 
have a corresponding header in the 
volume record. Therefore, the cata- 
log does not account for the space 
allocated to the file. 


The extents in the space header for 
the data space noted were not iden- 
tical to the extents in the corre- 
sponding Format | Label. 


The space header for the data space 
referred to a nonexistent Format | 
Label. 


The timestamp for the volume 
record did not match the timestamp 
in the VTOC. 


The attempt to scratch the file for 
the reason stated in message 
IDC110401 failed. 


A multivolume file 
existed on a volume prior to reset. 


A volume needed for the 

reset was not specified in a 
CRAFILES or CRAVOLUMES 
parameter. 


The alias chain fora USERCATA- 
LOG or NONVSAM entry is inval- 
id. 

The records associating the GDG 
file with the GDG base are in error. 
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Message 


IDC210261 


IDC210271 


1DC210301 


1DC210321 


1DC210341 


IDC210451 


IDC21046I 


IDC210471 


IDC310001 


1DC310041 
IDC310051 


1IDC3 10061 


1DC3 10071 


IDC3 10081 


IDC310101 


IDC310121 


IDC310131 


IDC310141 
IDC3 10161 
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STID 
RSO-27 


RS0-28 
RSO-32 


RS0-34 


RS0-36 


RSO0-43 


RS0-44 
RS0-45 


RSO- | 


RSO-5 
RS0-6 


RSO0-7 
RSO0-8 
RSO-9 
RSO-11 


RSO-13 


RSO-14 


RSO-15 
RSO-17 


Module 
IDCRSO2 


IDCRSO3 


IDCRSO03 


IDCRS03 


IDCRS02 
IDCRS03 


IDCRSO3 


IDCRSO7 


1DCRSO7 


IDCRSO7 


IDCRSO! 


IDCRS06 
IDCRSOI 


IDCRS07 


IDCRS07 


IDCRSOI 


{DCRSO! 


IDCRS06 


IDCRSO! 


IDCRS06 
IDCRSOI 


Procedure 


SETCI 


VLNRESET 


VLRESET 


MARKUNUS 


VERCI 
VERB 


VLNRESET 
VLRESET 


RENAMEP 


RENAMEP 


RENAMEP 


INIT 


WFDEF 
INIT 


CATEOV 


CATEOV 


INIT 


MERGECRA 


RECMGMT 


MERGECRA 


WFDEL 
INIT 
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Situation That Caused Message 


A previous message indicated an 
error which resulted in this entry 
being deleted from the catalog. 


The CRA extents or catalog 
extents have no matching extents in 
any data space. 


The entry noted claims space on 
volume. That space is not allocated 
to that entry. 


An object of the type 

specified was defined over the entry 
named as entryname. However, the 
records describing the object could 
not be found. Therefore, an object 
of the type specified was deleted 
from the given entryname’s descrip- 
tion. No name for the deleted ob- 
ject is given because the record with 
its name cannot be found. 


The space map, which 

indicates what space is available for 
suballocation on a volume, is not 
the correct length in the catalog. 


An attempt was made to reset an 
object which bears the same name 
as some other object in the catalog. 


An attempt was made to reset a 
unique object into a catalog which 
contains an object of the same 
name. 


An attempt was made to reset a 
unique object into a catalog which 
contained an object of the same 
name. 


The catalog specified for reset is not 
a recoverable catalog. 


DEFINE failed for the workfile. 


The workfile was defined in the 
catalog to be reset. 


A physical 1/O error when 
accessing the catalog was encoun- 
tered while the catalog was being 
extended. 


A logical 1/O error was encoun- 
tered while extending the catalog. 


An error was encountered when 
trying to access the file specified in 
the CATALOG parameter. 


The CRA was specified for reset, 
but it belongs to a catalog other 
than the catalog to be reset. 


The workfile relative record 
number limit has been exceeded. 


A preceding message indicates that 
either Open failed for the CRA, 
Close failed for the CRA, or the 
CRA does not belong to the catalog 
to be reset. 


DELETE failed for the workfile. 


The CRAFILES or CRAVO- 
LUMES parameter specified no 
CRA with the ALL option; there- 
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Message STID Module Procedure Situation That Caused Message 
fore, no volume was specified for 
reset. 

IDC310171 RSO-18 IDCRSO! INIT Some other task is open to the 
catalog requested to be reset. 

IDC3IO181 = =RSO-19 IDCRSOL UPDCAT RESETCAT required a volume 
that could not be allocated. 

IDC310191 RSO-20 IDCRSO!L INIT The CRAFILES (via dnames) or 


CRAVOLUMES parameter speci- 
fied the same volume serial number 
more than once 


IDC310351 RSO0-37  IDCRSOL UPDCAT Ina CRA, either the volume 
IDCRSO03 VLNRESET record for the volser indicated does 
not exist or one of its secondary re- 
cords does not exist. 


1DC310381 RSO0-49 IDCRSO|L UPDCRA Either Open or Close failed for the 
CRA. 
1DC310391 RS0-50 IDCRSOL INIT The DLBL job control 
IDCRS06 WFDEF statement named in a CATALOG, 


CRAFILES, WORKCAT, or 
WORKFILE parameter cannot be 
found. 


IDC310481 RSO-5I IDCRSO03) VOLCHK Error accessing the VTOC. 


Note: The listed procedures call UERROR to issue the 1DC30071 and 1DC30091 messages. 
UERROR issues the messages as follows: 


Message STID Module Procedure 
1DC30071 TP6-| IDCTP06 IDCTP06 
I1DC30091 TP6-2 IDCTP06 IDCTP06 
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Appendix A: Portable Data Sets Created by the EXPORT Command 


When a VSAM cluster or alternate index is exported via the Access Method 
Services EXPORT command, catalog information needed to define the 
VSAM data set plus all the records from the data component are written to a 
nonVSAM set called the portable data set. The following list shows the 
attributes of the portable data set. 

Attributes of Portable Data Sets 

Attribute Value 


LRECL The larger of: 
(a) Maximum VSAM data set record size +4 
(b) 264 (for nonRRDSs) or 268 (for RRDSs). 


BLKSIZE As specified by the user. The default 1s 2048. 
RECFM VBS 
DSORG PS 


DEVTYPE Tape or disk. 


The portable data set contains two major types of records: control records 
and data records. Control records contain one of two types of information: 
a timestamp or a dictionary. Data records also contain one of two types of 
information: a catalog work area or a data record from the data component 
of the cluster or alternate index exported. Figure A-1 shows the general 
layout of control records and data records in the portable data set. The 
types of records and the types of information within those records are 
explained in this appendix. 


Control Control Data Control Data Control Data 
Record Record Record Record Record Record Record 






lInformation 


| Dictionary 
| Information 












Catalog 
Work Area 














Catalog 


Tansee Work Area 














| Dictionary 
| Information 





| Dictionary 
Information 





Catalog 
Work Area 






! Other Dictionary information and 
Catalog Work Areas may appear here. 


8-Byte 
Special 
Record 





Data Records from Data Set 


Figure A-1. Layout of Control Records and Data Records in the Portable Data Set 
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Control Records 
Control records all have the same general format as shown in Figure A-2. 
The first four bytes of each control record contain header information. The 
next four bytes contain associated data. The remainder of the record con- 
tains the timestamp or dictionary information. 


Control Record Containing Timestamp Information 
The first record on every portable data set is a control record that contains 
timestamp information, as well as other fields. The format of this record is 
shown in Figure A-3. 


The first two bytes of the header contain the length of this control record. 
The next two bytes indicate that this control record contains timestamp 
information. There is no associated data, and those four bytes are reserved. 

















Variable Data—Timestamp or 


Header ee 
Dictionary 


Associated Data 





Figure A-2, General Format of Control Records 


0 4 8 27 


Z 3 


Header Associated Data Variable Data 
Figure A-3. Control Record Containing Timestamp Information 
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The format of the timestamp information is: 


Displacement! Description 


8 (8) Number of cluster components and paths being exported. 
9 (9) Flags: 

Bit Meaning When Set 

0 Reserved (zero). 

| Reserved. 

2 | indicates path associations are present. 

0 indicates no paths are present. 
3 If bit 2 ts I: 


| indicates that the base object has both data and index components. 
0 indicates that the base object has only a data component. 


4-7 Reserved. | 
10 (A) Access Method Services release number in EBCDIC. 


11 (B) 0 | indicates export CIMODE. 
0 indicates export RECORDMODE. 


i | indicates a file with NOALLOCATE attribute. 
0 indicates a file without NOALLOCATE attribute. 


2 | indicates a SAM ESDS file (in Cl-format). 
() indicates a file that is not SAM ESDS. 


3-7 Reserved. 


12(C) Time of EXPORT in EBCDIC, in the form hh.mm.ss, where hh is the 
number of hours, mm the number of minutes, and ss the number of seconds. 
20 (14) Date of EXPORT in EBCDIC, in the form mm/dd/yy, where mm is the 


month in digits, dd the day, and yy the year. 


| The displacement is from the beginning of the control record. 


Control Records Containing Dictionary Information 


X‘FF’ 


A control record containing dictionary information is written for the cluster 
or alternate index being exported and for each component within that 
cluster or alternate index. In addition, one control record is written for each 
path association of the object being exported. These records 1n essence 
describe the data record containing the catalog work area which follows. 
The format of control records containing dictionary information is shown in 
Figure A-4. 


The first two bytes of the header contain the length of this control record. 
The next two bytes indicate that this record contains dictionary information 
and the type of component that the associated catalog work area informa- 
tion describes. The type of component is indicated by ‘C’ for cluster, ‘D’ for 
data, ‘I’ for index, ‘G’ for alternate index, or ‘R’ for path. 


The associated data portion of the control record contains the length of the 
associated catalog work area (two bytes) and the number of records into 
which the associated catalog work area is broken (2 bytes). 


Number of 


Length of Catalog records for 
Work Area Catalog 
Work Area 


Dictionary and other information 





Header 


Associated Data Variable Data 


Figure A-4, Control Record Containing Dictionary Information 
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The variable data portion of the control record contains the dictionary 
information. This portion of the control record begins with a four-byte field 
that contains the number of entries in the dictionary. The entries themselves 
follow. Each entry consists of a pair of four-byte fields. The first four bytes 
contain the length of the associated catalog field in the catalog work area. 
(Remember, the catalog work area information is in a data record immedi- 
ately following one of these control records.) The second four bytes contain 
the displacement of that field within the associated data record. If an 
associated catalog field contains no information, both four-byte fields in the 
dictionary entry contain zeros. The dictionary entries always point to the 
associated fields in the order shown in the following list. 


Order of Associated Catalog Fields 


Associated Field in 


Order Catalog Work area | Description 

l ENTYPE Component type. 

Z ENTNAME Component name. 

3 DSATTR Data set attributes. 

4 OWNERID Data set owner. 

5 DSETCRDT Data set creation date. 

6 DSETEXDT Data set expiration date. 

7 BUFSIZE Minimum buffer size. 

8 LRECL Logical record size. 

9 SPACEPARM Primary and secondary space. 

10 PASSWORD Four eight-character passwords. 

It PASSPRMT Password prompting code name. 

12 PASSATMP Maximum number of attempts for password. 

13 USVRMDUL User security verification module. 

I4 USERAREC User authorization record. 

1S LOKEYV Low key on volume. 

16 HIKEYV High key on volume. 

17 VOLSER Volume serial numbers. 

18 AMDSBCAT AMDSB, from which the remaining fields are taken. 

19 UNUSED Reserved. Contains zeros. 

20 UNUSED Reserved. Contains zeros. 

21 UNUSED Reserved. Contains zeros. 

22 UNUSED Reserved. Contains zeros. 

23 UNUSED Reserved. Contains zeros. 

24 UNUSED Reserved. Contains zeros. 

25 UNUSED Reserved. Contains zeros. 

26 UNUSED Reserved. Contains zeros. 

27 UNUSED Reserved. Contains zeros. 

28 EXCPEXIT Exception exit. 

29 RGATTR Alternate index or path attributes. 

30 RELATE| Alternate index related name or pathentry name. 
PATHENTRY 

31 PASSREL Master password of pathentry component. 


Data Records 


Data records contain one of two types of information: the catalog work area 
or data records from the data component. 
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Data Records Containing Catalog Work Area 
Following each control record that contains dictionary information there is 
a data record that contains the catalog work area for a given component. 
The format of these records is shown in Figure A-5. 


The first two bytes of each record contain the total possible length of the 
catalog work area. The next two bytes contain the length of the work area 
used for this component. Following these first four bytes are the fields from 
the catalog work area. The order of these fields is basically as described in 
the preceding topic. If there is no information for one of the fields, the field 
is completely omitted. 


Figure A-6 shows the relationship of the dictionary and catalog work area 
information. ee 


Data Records Containing Data Records From the Data Component 
Following all of the control records and data records that contain dictionary 
information is a special record which marks the beginning of the data 
records from the data component. This special record is eight bytes in 
length. The record always has the format shown in Figure A-7. 


Following this special record are all of the data records from the data 
component being exported. 


Total 


Possible Length for this Component Information from Catalog Work Area 
Length 





Figure A-5. Data Record Containing Catalog Work Area 


Control Record Containing Dictionary Information 


Number 
00D4 | X‘FF’ | Type of x‘25° 
Records 


Data Record Containing Catalog Work Area Information 


4 
Component 


Figure A-6. Relationship of Dictionary and Catalog Work Area Information 
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Figure A-7. Special Record at Beginning of Data Records from the Data Component 
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Appendix B: Portable Data Sets Created by the EXPORTRA Command 


When the EXPORTRA command of Access Method Services executes, it 
produces a portable data set which contains catalog information obtained 
from a CRA (Catalog Recovery Area) and data records for VSAM clusters 
and alternate indexes, and also catalog information for user catalog point- 
ers. In addition, portable data sets created by EXPORTRA (referred to as 
recovery portable data sets in this appendix) on OS/VS systems may contain 
catalog information for nonVSAM, alias, and generation data group (GDG) 
base objects. The following list shows the attributes of the portable data set. 
Attribute Value 

LRECL The largest of: 


¢ Export RECORDMODE: Maximum VSAM data set record size + 16 


e Export CIMODE: Maximum VSAM data set data component control 
interval size + 16, or 


e 268 
BLKSIZE As specified by the user (the default is 2048) 
RECFM VBS 
DSORG PS 


DEVTYPE (Tape or disk) 


Each record of the recovery portable data set has a special 4-byte header 
added that precedes the record itself. Information for unrelated objects on 
the recovery portable data set is separated by one or more software ends of 
file. These ends of file are special records that consist only of the 4-byte 
header. Only Figure B-| indicates that this particular type of header pre- 
cedes each data record; the other figures do not show it. 


The recovery portable data set contains two major types of records: control 
records and data records. Control records contain one of two types of 
information: a timestamp or a dictionary. Data records also contain one of 
two types of information: a catalog work area or a data record from the data 
component of the cluster exported. Figure B-| shows the general layout of 
control records and data records in the recovery portable data set. The types 
of records and the types of information within those records are explained in 
this appendix. 


Control Records 
Control records all have the same general format as shown in Figure B-2. 
The first four bytes of each control record contain header information. The 
next four bytes contain associated data. The remainder of the record con- 
tains the timestamp, dictionary information, or logical record length. 


Control Record Containing the Logical Record Length 
The first record of every recovery portable data set is a control record 
containing the logical record length of the portable data set itself. The 
format of this record is shown in Figure B-3. 


Control Record Containing Timestamp Information 
The first record for each item on the recovery portable data set is a control 
record that contains timestamp information, as well as other fields. The 
format of this record is shown in Figure B-4. 


The first two bytes of the header contain the length of this control record. 
The next two bytes indicate that this control record contains timestamp 
information. There is no associated data, and those four bytes are reserved. 
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Figure B-f. Layout of Control Records and Data Records in the Recovery Portable Data Set 
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Figure B-3. Control Record Containing the Logical Record Length 
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Figure B-4. Control Record Containing Timestamp Information 
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The format of the timestamp information ts: 


Displacement! Description 
&(8) The maximum number of components associated with this item. 
9(9) Flags: 


Bit Meaning When Set 


O Reserved 
| | indicates an inhibited target. 
0 indicates a noninhibited target. 
2 | indicates path associations are present. 
0 indicates no paths are present. 
3s If bit 2 is |: 
| indicates that the base object has both data and index components. 
0 indicates that the base object has only a data component. 
4 | - always | fora recovery portable data set. 
5 | indicates a nonVSAM object. 
- O indicates an object other than a nonVSAM. 
6 | indicates a GDG base object. 
0 indicates an object other than a GDG base. 
7 | indicates a user catalog pointer. 
0 indicates a pointer for an object other than a user catalog. 


10(A) Access Method Services release number tn EBCDIC. 


11(B) 
QO | indicates export CIMODE. 
0 indicates export RECORDMODE. 
| | indicates a file with NOALLOCATE attribute. 
0 indicates a file without NOALLOCATE attribute. 
2 | indicates a SAM ESDS file (in Cl-format). 
0 indicates a file that is not SAM ESDS. 
3 Reserved, 
4 indicates that an empty file is being exported. 
0 indicates that a non-empty file is being exported. 
5-7 Reserved. 


12(C) Time of export in EBCDIC, in the form hh.mm.ss, where hh is the number 
of hours, mm the number of minutes, and ss the number of seconds. 
20( 14) Date of export in EBCDIC, in the form mm/dd/yy, where mm is the 


month in digits, dd the day, and yy the year. 


| The displacement is from the beginning of the control record. 


Control Records Containing Dictionary Information 
A control record containing dictionary information is written for each object 
being exported and for each component associated with that object. These 
records in essence describe the data record containing the catalog work area 
which follows. The general format of control records containing dictionary 
information is shown in Figure B-5. 


The first two bytes of the header contain the length of this control record. 
The next two bytes indicate that this record contains dictionary information 
and the type of component that the associated catalog work area informa- 
tion describes. The type of component is indicated by ‘C’ for cluster, ‘D’ for 
















Number of 
Records for 
Catalog 
Work Area 







Length of Catalog 


Work Area Dictionary and Other Information 


Header Associated Data Variable Data 


Figure B-5. Control Record Containing Dictionary Information 
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data, ‘I’ for index, ‘G’ for alternate index, ‘R’ for path, ‘A’ for nonVSAM, ‘B’ 
for GDG base, ‘X’ for alias, or ‘U’ for user catalog pointer. 


The associated data portion of the control record contains the length of the 
associated catalog work area (2 bytes) and the number of records into which 
the associated catalog work area is broken (2 bytes). 


The variable data portion of the control record contains the dictionary 
information. This portion of the control record begins with a four-byte field 
that contains the number of entries in the dictionary. The entries themselves 
follow. Each entry consists of a pair of four-byte fields. The first four bytes 
contain the length of the associated catalog field in the catalog work area. 
(Remember, the catalog work area information is in a data record immedi- 
ately following one of these control records.) The second four bytes contain 
the displacement of that field within the associated data record. If an 
associated catalog field contains no information, both four-byte fields in the 


dictionary entry contain zeros. 


The number of dictionary entries and their order depends upon the type of 
object being described. Dictionary formats are described for each possible 


kind of item in the following list. 


Order of Associated Catalog Fields 


Cluster or Alternate Index 


Order 
[ 


Ce sO TO HR WY LY 


—_- & 
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Associated Field in 
Catalog Work Area 


ENTYPE 
ENTNAME 
DSATTR 
OWNERID 
DSETCRDT 
DSETEXDT 
BUFSIZE 
LRECL 
SPACEPARM 
PASSWORD 
PASSPRMT 
PASSATMP 
USVRMDUL 
USERAREC 
LOKEYV 
HIKEYV 
VOLSER 
AMDSBCAT 
UNUSED 
UNUSED 


UNUSED 
UNUSED 


UNUSED 
UNUSED 


UNUSED 
UNUSED 
UNUSED 
EXCPEXIT 
RGATTR 
RELATE 


Description 

Component type. 

Component name. 

Data set attributes. 

Data set owner. 

Data set creation date. 

Data set expiration date. 

Minimum buffer size. 

Logical record size. 

Primary and secondary space. 

Four eight-character passwords. 

Password prompting code name. 

Maximum number of attempts for password. 
User security verification module. 

User authorization record. 

Low key on volume. 

High key on volume. 

Volume serial numbers. 

AMDSB from which the next 9 fields are taken. 
Reserved. Contains zeros. 


Reserved. Contains zeros. 


Reserved. Contains zeros. 


Reserved. Conatains zeros. 


Reserved. Contains zeros. 
Reserved. Contains zeros. 


Reserved. Contains zeros. 
Reserved. contains zeros. 
Reserved. Contains zeros. 
Exception exit. 

Alternate index or path attributes. 


Alternate index related name or 
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Order of Associated Catalog Fields 
Associated Field in 


Order Catalog Work Area Description 
PATHENTRY 
31 PASSREL 
NonVSAM 
| ENTYPE 
2 ENTNAME 
3 VOLSER 
4 DEVTYP 
5 FILESEQ 
6 OWNERID 
7 DSETCRDT 
8 DSETEXDT 
User Catalog Pointers 
| ENTYPE 
2 ENTNAME 
3 VOLSER 
4 DEVTYP 
Aliases 
I ENTYPE 
2 ENTNAME 
GDG Bases 
| ENTYPE 
2 ENTNAME 
3 GDGLIMIT 
4 GDGATTR 
5 OWNERID 
6 DSETCRDT 
d DSETEXDT 
Data Records 


path entry name. 
Master password of path entry component. 


Entry type. 

Entry name. 

Volume serial numbers. 
Device types. 

File sequence numbers. 
Data set owner. 

Data set creation date. 
Data set expiration date. 


Entry type. 

Entry name. 

Volume serial numbers. 
Device types. 


Entry type. 
Entry name. 


Entry type. 

Entry name. 

GDG limit value. 
GDG attributes. 

Data set owner. 

Data set creation date. 


Data set expiration date. 


Data records contain one of two types of information: the catalog work area 
or data records from the data component of a VSAM cluster. 


Data Records Containing Catalog Work Area 
Following each control record that contains dictionary information there is 
a data record that contains the catalog work area for a given component. 
The format of these records is shown in Figure B-6. 


The first two bytes of each record contain the total possible length of the 
catalog work area. The next two bytes contain the length of the work area 
used for this component. Following these first four bytes are the fields from 
the catalog work area. The order of these fields is basically as described in 


Total 
Possible 
Length 


Length for this Component 


Information from Catalog Work Area 


Figure B-6. Data Record Containing Catalog Work Area 
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the preceding topic. If there 1s no information for one of the fields, the field 
is completely omitted. 


Figure B-7 shows the relationship of the dictionary and catalog work area 
information. 


Data Records Containing Data Records From the Data Component 
For a VSAM cluster or alternate index, following all of the control records 
and data records that contain dictionary information 1s a special record 
which marks the beginning of the data records from the data component. 
This special record is eight bytes in length. The record always has the 
format shown in Figure B-8. 


Following this special record are all of the data records from the data 
component being exported. 


Associated Objects for User Catalog Pointers, NonVSAMs, and GDGs 
The aliases of a user catalog pointer or a nonVSAM are exported as associ- 
ated objects. Similarly, the nonVSAMs that belong to a GDG base are 
exported as associated objects of the GDG; these nonVSAMs may, in turn, 
have aliases. An item and its associated objects are preceded by one time- 
stamp control record and followed by one software end-of-file. 
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Figure B-7. Relationship of Dictionary and Catalog Work Area Information 
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Figure B-8. Special Record at Beginning of Data Records from the Data Component 
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